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



Terminate 事件

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

Private Sub Class_Terminate()
    
語(yǔ)句
End Sub

當(dāng)類初始化時(shí),statements 部分由零個(gè)或多個(gè)將要運(yùn)行的代碼語(yǔ)句組成。

說(shuō)明

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

Class TestClass
Private Sub Class_Initialize   ' 設(shè)置 Initialize 事件。
 MsgBox("TestClass started") End Sub Private Sub Class_Terminate   ' 設(shè)置 Terminate 事件。
 MsgBox("TestClass terminated") End SubEnd ClassSet X =New TestClass   ' 創(chuàng)建一個(gè) TestClass 實(shí)例。
Set X =Nothing      ' 刪除實(shí)例。

要求

版本 5

請(qǐng)參閱

Class 對(duì)象 | Class 語(yǔ)句 | Initialize 事件

應(yīng)用于:Class 對(duì)象

返回首頁(yè)