http://zhidao.baidu.com/question/168007708.html
在这个例子中,我想如果在picture1有加载过图片,在关闭程序时就弹出
unload事件,没有加载就不弹出unlaod事件
rivate Sub Form_Unload(Cancel As Integer)
If Picture1.Picture = ("") Then
End
End If
Dim a As Integer
a = MsgBox("文件已改变,是否保存", 1 + 32)
If a = 1 Then
mnusave_Click
Else
End
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Picture1.Picture = 0 Then
End
End If
Dim a As Integer
a = MsgBox("文件已改变,是否保存", 1 + 32)
If a = vbYes Then
mnusave_Click
Else
End
End IfEnd Sub