vb unloadmode 怎么用

vb unloadmode 怎么用

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case vbFormControlMenu
' 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
' 用户从系统菜单上点关闭时发生Case vbFormCode
' 1 Unload 语句被代码调用。
' 程序调用时Unload发生Case vbAppWindows
' 2 当前 Microsoft Windows 操作环境会话结束。
' 计算机关闭/重启/注销时发生Case vbAppTaskManager
' 3 Microsoft Windows 任务管理器正在关闭应用程序。
' 从任务管理器中点结束任务时发生Case vbFormMDIForm
' 4 MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。
' MDI窗口关闭时其子窗口发生Case vbFormOwner
' 5 因为窗体的所有者正在关闭，所以窗体也在关闭。
' 所有者关闭时其自动关闭,可在调用Show时加入第二个参数测试End SelectEnd Sub

unloadmode 参数返回下列值： 常数 值 描述 vbformcontrolmenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 vbformcode 1 unload 语句被代码调用。 vbappwindows 2 当前 microsoft windows 操作环境会话结束。 vbapptaskmanager 3 microsoft windows 任务管理器正在关闭应用程序。 vbformmdiform 4 mdi 子窗体正在关闭，因为 mdi 窗体正在关闭。 vbformowner 5 因为窗体的所有者正在关闭，所以窗体也在关闭。