如何检测用户点击了关闭（X）按扭？

Question

谢谢

Answer 1

得用API函数.俺一看到API函数就头晕,当用到的时候才到网上现查.用过之后就全忘记了.
如果那位高手看到后,给俺指点一下.

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox MsgBox("quit?", vbYesNo + vbQuestion, "quit")
End Sub

Answer 3

正如楼上老兄说的方法，不过楼上说的不够详细
判断以哪种方式退出，看UnloadMode 的值
unloadmode 参数返回下列值：
常数                  值        描述
vbFormControlMenu    0     用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode           1      Unload 语句被代码调用。
vbAppWindows         2    当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager     3    Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm        4    MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 

Answer 4

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("您是否要退出系统 ？", 4 + 32 + 256, "考勤系统") = vbYes Then        End
    Else
        Cancel = True
    End IfEnd Sub

Answer 5

在职unload事件进行检测就行了