如何在 form.unload 得知窗口是按右上角关闭按扭关闭的。

Question

在queryunload 事件中有unload mode可以知道是怎么关闭的
调用unload代码关闭是0
sendmessage、按钮关闭是1

Answer 1

'        Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
'     Author:吴文智
'       Date:2001-11-16
'Description:要试用本例请在窗体中填加
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu '0
    MsgBox "用户从窗体上的“控件”菜单中选择“关闭”指令。或点X关闭"
Case vbFormCode '1
    MsgBox "Unload 语句被代码调用。"
Case Else
    'vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。
    'vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
    'vbFormMDIForm 4 MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。
End SelectEnd Sub