欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片



Terminate 事件

在所關聯(lián)的的實例終止時發(fā)生此事件。

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 SubEnd ClassSet X =New TestClass   ' 創(chuàng)建一個 TestClass 實例。
Set X =Nothing      ' 刪除實例。

要求

版本 5

請參閱

Class 對象 | Class 語句 | Initialize 事件

應用于:Class 對象

返回首頁