'程序说明：
'当程序执行到 End 语句或是按下了 Alt+F4 组合键或是
'右上角X时，VB会先询问Sub Form_QueryUnload接着询问
'Sub Form_Unload(Cancel As Integer)。
'如果询问时发现 Cancel 为0（默认为0）才会退出程序。
'这样我们在Sub Form_Unload()中把Cancel设为非0的值
'就能避免直接关闭程序。
'--------------------------------------------
'这是十分有用的，例如我们为了防止正在编辑的文件没
'有存盘就退出，可以在程序中加上这段代码，然后另定
'义一个变量记录是否已经存盘，如果已经存盘就正常退
'出，否则提示存盘的信息。
'--------------------------------------------
'这是一个保险的办法，可用 QueryUnload 事件阻止从 Windows 中的退出。
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim IntR As Integer
IntR = MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
If IntR = vbNo Then Cancel = -1
End Sub
'Unload事件，当窗体从屏幕上删除时发生
'说明:
'将 cancel 设置为任何非零的值可防止窗体被删除，但
'不能阻止其它事件，诸如从 Microsoft Windows 操作
'环境中退出等。
'-------------------------------------------
'Private Sub Form_Unload(Cancel As Integer)
'Dim IntR As Integer
'IntR = MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
'If IntR = vbNo Then Cancel = -1
'End Sub
'-------------------------------------------
