vb 退出提示

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim msgRes As VbMsgBoxResult
msgRes = MsgBox("是否退出?", vbQuestion + vbYesNo + vbDefaultButton2, "退出")
If msgRes = vbNo Then Cancel = 1
End Sub

1.用queryunload的好处：可以获得从哪里关闭（例如：从窗口的“×”关闭、从代码unload关闭、VB IDE的关闭等等……）
2.定义一个VbMsgBoxResult ：主要是容易处理其他事情，否则全部写在一句话里面比较烦，当然在这里是简单的，很多人不知道有这个东西……所以拿出来下
3.vbDefaultButton2：默认按钮为第二个，即默认按钮为“No”（否）

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("是否退出?", vbInformation + vbYesNo) = vbNo Then Cancel = 1
End Sub

在unload事件里注意设置Cancel的值就是了，上次全国计算机等级考试的上机考试就涉及到这个问题。自己试一下Cancel取不同值效果就知道了哈，很简单的。