Question

如何在VB中实现图片的另存为功能

我现在做了一个vb程序，其中有一个图片框picture2，其中显示着一张bmp文件。我想做一个command2按钮，这个按钮的功能就是在点击后弹出一个另存为对话框，让我可以把picture2图片框中的图片保存下。哪位高手可以帮我编写下command2的代码？感激不尽

Answer 1

添加一个CommonDialog1文件系统控件（见图）！

Private Sub Command2_Click()

   On Error GoTo errh

    

    CommonDialog1.Filter = "JPG格式|*jpg;Bmp格式|*.bmp;Gif格式|*.gif"

    CommonDialog1.ShowSave

    SavePicture Picture1.Image, CommonDialog1.FileName

    Exit Sub

errh:

MsgBox "错误！保存没用成功"

End Sub

Answer 2

Private Sub Command2_Click()
Dim sSavePath As String

On Error GoTo ErrDlg
With CommonDialog1
.DialogTitle = "保存图片"
.CancelError = True
.Filter = " (*.bmp)|*.bmp"
.Flags = &H4
.ShowSave
sSavePath = .FileName
End With

If sSavePath <> "" Then
SavePicture Picture1.Picture, sSavePath
End If

ErrDlg:
End Sub

向工程添加部件:microsoft common dialog control 6.0

Answer 3

使用一个保存对话框控件，工程-部件-控件 找到microsoft common dialog control 6.0 。

Private Sub Command2_Click()
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
SavePicture Picture2.Image, CommonDialog1.FileName
End If
End Sub

Answer 4

Private Sub Command2_Click()
Dim strFilename As String
On Error GoTo errHandler

With CommonDialog1
.Filter = "JPEG 图片|*.jpg|位图(*.bmp)|*.bmp"
.ShowSave
.CancelError = False
strFilename = .FileName
If Trim$(strFilename) <> "" Then
SavePicture Me.picture2.Image, strFilename
End If
End With
Exit Sub

errHandler:
MsgBox Err.Description
End Sub