Terminate 事件

在通过将引用对象的所有 变量 设置为 Nothing 或最后一次引用对象超出 范围时，从内存中删除对对象实例的所有引用时发生。

语法

Private Sub对象_Terminate ( )

对象占位符表示一个对象表达式，该表达式的计算结果为“应用于”列表中的对象。

备注

在卸载对象后发生 Terminate 事件。 如果由于应用程序异常终止而从内存中删除 UserForm 或类的实例，则不会触发 Terminate 事件。

例如，如果应用程序在从内存中删除类或 UserForm 的所有现有实例之前调用 End 语句，则不会为该类或 UserForm 触发 Terminate 事件。

示例

以下事件过程导致“UserForm”在用户点击客户端区域以消除该窗体之后发出了几秒中的哔哔声。

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

另请参阅

• 事件（Visual Basic 加载项模型）
• 事件 (Visual Basic for Applications)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。