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