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