很简单的问题

Question

在我的窗体上有一个image,我如何通过commondialog控件将图片保存?
如果不用commondialog控件,用命令如何实现呢?

Answer 1

SavePicture img.Picture, App.Path & "\aaa.bmp"

Answer 2

Private Sub Command3_Click()
Dim SaveFileName As String
On Error GoTo OUT
    With CommonDialog1
        .CancelError = True
        .DialogTitle = "选择文件保存的路径"
        .Filter = "图片文件|*.bmp"
        .ShowSave
    End With
    SaveFileName = CommonDialog1.Filename
    SavePicture Image1.Picture, SaveFileNameExit Sub
OUT:
    Select Case Err.Number
        Case "32755" '对话框选择了取消
        
    End Select
end sub