一个关于关闭窗体的问题，急急急！

Question

点击窗口右上角的退出键，执行Private Sub Form1_Unload(Cancel as Integer)
我要在这个过程中加一个MSGBOX来进行“是否退出”的选择
当选择NO时，怎么样才能不让这个过程继续下去，窗口不关闭呢？请指教，谢谢！

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("确认退出吗？", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then
        Cancel = -1
    End If
        
End Sub

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("是否退出", vbYesNo) = vbNo Then
        Cancel = 1
    End If
End Sub

Answer 3

晕！为什么CANCEL = 1 和 -1 都可以呢？那么CANCEL的默认值是多少呢？

Answer 4

Cancel取值：
cancel 一个整数。将此参数设定为除 0 以外的任何值，可在所有已装载的窗体中停止 QueryUnload 事件，并阻止该窗体和应用程序的关闭。