vb问题，请大家帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/28 03:32:02
在窗体中画图，怎么实现当关掉窗体的时候提示“是否保存”，点击“是”然后就能保存

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
dim r as integer
if filechanged then
r=msgobx("Save Changed?",vbYesNocancel,me.caption)
if r=vbyes then
'保存代码
elseif r= vbcancel then
cancel=1
end if
End Sub
其中filechanged是一个全局变量，如果文件被改变，则filechanged=true，否则filechanged=false

我想这样也许可以:
Private Sub Form1_UnLoad()
If MsgBox("是否保存?",VBYesNo,"提示") = VBYes Then
.....
End If
End Sub

'注意,要能正确保存Form窗体上的内容,请将窗体的AutoRedraw设为True,否则保存不下来
只能保存用 Print语句,绘图语句等在窗体上画下的内容

Private Sub Form_UnLoad(Cancel As Integer)
If MsgBox("是否保存?", vbYesNo, "提示") = vbYes Then
SavePicture Form1.Image, "C:\A.bmp"
End If
End Sub