怎样处理关闭窗口的事件

Question

我想实现这样的操作,用户点击关闭窗口,我能决定是应该关闭或不关闭该窗口.

Answer 1

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("确认要退出系统吗", vbQuestion + vbYesNo, "退出确认") = vbNo Then
        Cancel = -1
    Else
        End
    End If
End Sub

Answer 2

sinom(毛毛.小狮子) 强烈同意，呵呵

Answer 3

在FORM的QUERY UNLOAD事件中判断
如果决定不关，就吧CANCEL变量设位TRUE
就不会管了

Answer 4

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("您真的要退出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton1) = vbNo Then
    Cancel = 1
End If
End Sub