利用 UnloadMode 来控制窗体的卸载

在QueryUnload事件中,Visual Basic提供了UnloadMode参数,利用这个参数,我们可以控制窗体的卸载.下面的这个例子,就只能通过点击按钮来卸载窗体.

Option Explicit

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> 1 Then
Cancel = True
End If
End Sub

unloadmode 参数返回下列值：
常数                 值       描述
vbFormControlMenu    0     用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode           1     Unload 语句被代码调用。
vbAppWindows         2    当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager     3    Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm        4    MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。