當所有指向某物件實例的引用都從記憶體中移除,將所有指向該物件的 變數 設為 Nothing 或當最後一個物件參考超出 作用域時,會發生這種情況。
語法
私人子物件_Terminate ( )
物件佔位符代表一個物件表達式,會評估到 Apply To 清單中的物件。
註解
終止事件發生在物件卸載後。 如果應用程式異常終止,UserForm 或類別的實例被移除,則不會觸發終止事件。
例如,如果你的應用程式在移除所有現有的類別或 UserForm 實例之前,先呼叫 End 陳述式,該類別或 UserForm 不會觸發 Terminate 事件。
範例
以下事件程序會在使用者點擊客戶端區域關閉表單後,使用者 表 單會發出幾秒鐘的嗶聲。
Private Sub UserForm_Activate()
UserForm1.Caption = "Click me to kill me!"
End Sub
Private Sub UserForm_Click()
Unload Me
End Sub
Private Sub UserForm_Terminate()
Dim Count As Integer
For Count = 1 To 100
Beep
Next
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。