保存窗体上的图

Question

欲保存在窗体上画出的坐标和图形，请问用公共对话框控件怎样写代码（保存）
谢谢

Answer 1

将窗体上的图形pain到picutrue，再用app的savepicture就行了

Answer 2

在这之前，需要将窗体的AUTOREDRAW属性设为TRUE，否则图像无法保存
SUB FORM_LOAD()
me.AutoReDraw=True
End Sub
然后画东西：
Sub Draw()
Me.Line(10,10)-)(30,30)
...    '再画点别的
me.refresh   '因为AutoReDraw=True所以必须要Refresh，否则画的东西显示不出来
end sub要开始保存了：
Sub Command1_click()  '假设这个按钮是用来保存的
Dim FileName as string
On Error Goto ErrLine '因为当用户在“保存”对话框中按“取消”会引发错误
Commondialog1.filter="位图文件|*.bmp"   'VB只能保存为BMP文件
Commondialog1.ShowOpen '打开“保存”对话框
FileName=Commondialog1.FileName
if Trim(FileName)<>"" then SavePicture Me.Image,FileName '文件名不为空才保存
ErrLine:
End Sub
 '因为当用户在“保存”对话框中按“取消”会引发一个错误，所以需要作出错处理。当然，这里我们什么也没有作，只是直接跳出保存的过程。
保存图片使用SavePicture 函数，后面要使用Me.Image而不是Me.Picture，切记！

Answer 3

多谢，还有问题：如果在窗体上还有若干text控件（输入有文字），想把它们一起保存下来的话要怎样做呢

Answer 4

用text控件数组，把所有文字写到一个文件里去。