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 Sub End Class Set 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è)
|