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

Initialize 事件

在創(chuàng)建類的實(shí)例時(shí)發(fā)生此事件。

Private Sub Class_Initialize()
    語句
End Sub

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

說明

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

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 語句 | Terminate 事件

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