83.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 25 行

利用 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 窗体正在关闭。