Question

VB问题，如何保存在PictureBox中绘制的图形？

Answer 1

Public Function FileExist(sFileN As String) As Boolean
Dim tempRv As Long
'获取文件属性
On Error Resume Next
tempRv = GetAttr(sFileN)
FileExist = Not CBool(Err)
End Function

‘以上放在程序最前

If sFileN = "" Then
'打开通用对话框
CommonDialog1.Filter = "*.bmp"
CommonDialog1.ShowSave

sFileN = CommonDialog1.FileName

' If sFName = vbNullString Then Exit Sub
'判断文件是否存在
If FileExist((sFileN & ".bmp")) Then
ret = MsgBox("文件已存在，是否替换原来的文件？", vbOKCancel, "Message")

If ret <> 1 Then
sFileN = ""
Exit Sub
End If
End If
End If

'保存文件
If (LCase$(Right$(sFileN, 4)) = ".bmp") Then
SavePicture Picture1.Image, sFileN
Else
sFileN = sFileN & ".bmp"
SavePicture Picture1.Image, sFileN
End If
我用过的，好使，你可以试试 ，别忘了加一个CommonDialog控件不会可以在追问我

Answer 2

SavePicture Picture1.Image, "c:\1.bmp"

追问

可以保存为JPJG格式的吗？

追答

去搜索下vb转换图片格式的代码 就可以保存为JPG了

追问

为啥我有图画出来，但是却保存不下来，保存的文件是空的，什么内容也没有。

追答

Private Sub Form_Load()
Picture1.AutoRedraw = True
End Sub

追问

我是说我用Picture1画好了图，然后用你的方法SavePicture Picture1.Image, "c:\1.bmp" 保存了，但打开了看却发现被保存的图上没有任何东西？是空的。为啥 ？

追答

不是回了吗？你试下能行不 不行我也不知道了。

Answer 3

SavePicture picture1.Picture, "c:\1.jpg"