Private Sub Command2_Click()
On Error Resume Next
CommonDialog1.DialogTitle = "保存为bmp文件"
CommonDialog1.Filter = "位图文件(*.bmp)"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
If Err <> 32755 Then
Dim SaveBmpName As String
SaveBmpName = CommonDialog1.FileName
SavePicture Picture1.Image, SaveBmpName
End If
End If
End Sub
以上代码~只可保存~bmp格式的~
我想把它~可以保存~GIF应该怎么~改写？
參考答案:CommonDialog1.Filter = "位图文件(*.bmp)" 修改为：
CommonDialog1.Filter = "图片文件(*.bmp *.gif)|*.bmp;*.gif"