5.2.3.7 Excel VBA 窗体的 QueryUnload 事件介绍

即将要卸载窗体的时候，窗体对象就会收到一个伽eryUnload事件。通过检查

UnloadMode参数可以了解窗体卸载的原因。以下是QueryUnloed事件处理过程的代码:

Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)

Select Case UnloadMode

Case vbFormControlMenu

，用户关闭窗体

Case vbFormCode

，代码终止窗体

Case vbAppWindows

，当前窗口进行正在终止

Case vbAppTaskManager

，任务粉理器关闭程序

Case vbFormMDlForm

，MDI父窗体关闭窗口

Case vbFormOwner

父窗体被关闭

End Select

End Sub

当然，可以通过将Cancel参数设置为True拒绝卸载窗体:

Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer)

拒绝用户关闭窗口

Select Case UnloadMode

Case vbFormControlMenu,vbAppTaskManager

Cancel一True

End Select

End Sub