本页面由网页陶吧 龙犊收集整理 时间是: 02/05/06 下午 05:58:50.
页面地址: vsevtTerminate.htm
标题: Terminate 事件  •  文件大小: 2100  •  更新时间: Sun, 05 Feb 2006 03:21:32 GMT

Terminate 事件

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

Private Sub Class_Terminate()
    
语句
End Sub

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

说明

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

Class TestClass
  Private Sub Class_Initialize   ' 设置 Initialize 事件。
    MsgBox("TestClass started")
  End Sub
  Private Sub Class_Terminate   ' 设置 Terminate 事件。
    MsgBox("TestClass terminated")
  End Sub
End Class
Set X = New TestClass   ' 创建一个 TestClass 实例。
Set X = Nothing      ' 删除实例。

要求

版本 5

请参阅

Class 对象 | Class 语句 | Initialize 事件

应用于:Class 对象