金字塔学院

# Terminate 事件

在所关联的类的实例终止时发生此事件。

Sub Class_Terminate() 语句 End Sub

当类初始化时，statements 部分由零个或多个将要运行的代码语句组成。

说明 下面的例子演示了 Terminate 事件的用法。

Class TestClass
  Sub Class_Initialize   ' 设置 Initialize 事件。
    MsgBox("TestClass started")
  End Sub
  Sub Class_Terminate   ' 设置 Terminate 事件。
    MsgBox("TestClass terminated")
  End Sub
End Class
Set X = New TestClass   ' 创建一个 TestClass 实例。
Set X = Nothing      ' 删除实例。
1
2
3
4
5
6
7
8
9
10
应用于