VBAで、クラスを作成（コンストラクタ・デストラクタ）

サイト管理人

9年前

VBA のコンストラクタとデストラクタ

コンストラクタ

コンストラクタは、クラスからインスタンスが New によって作成される時に自動的に呼び出されるメソッドです。ただし、VBA の場合は、引数を設定することはできないので注意が必要です。

【構文】

Private Sub Class_Initialize ()

　　[ statements ]

End Sub

項目の説明

statements ・・・実行される一連のステートメントを指定します。

デストラクタ

デストラクタは、インスタンスを破棄する際、自動的に呼び出されるメソッドのことです。

【構文】

Private Sub Class_Terminate ()

　　[ statements ]

End Sub

項目の説明

statements ・・・実行される一連のステートメントを指定します。

クラス（コンストラクタ・デストラクタ）使用例

サンプルVBAソース

　
'クラスのプロパティ　
Private myStr As String

'クラスのメソッド
Public Sub myFunc()

    myStr = myStr & "myFunc!!" & Chr(13)

End Sub

'コンストラクタ
Private Sub Class_Initialize()

    myStr = myStr & "Class Start!!" & Chr(13)

End Sub

'デストラクタ
Private Sub Class_Terminate()

    myStr = myStr & "Class End!!" & Chr(13)
    MsgBox myStr

End Sub

'クラスのプロパティ　

Private myStr As String

'クラスのメソッド

Public Sub myFunc()

myStr = myStr & "myFunc!!" & Chr(13)

End Sub

'コンストラクタ

Private Sub Class_Initialize()

myStr = myStr & "Class Start!!" & Chr(13)

End Sub

'デストラクタ

Private Sub Class_Terminate()

myStr = myStr & "Class End!!" & Chr(13)

MsgBox myStr

End Sub

　
Sub Sample01_Class2()

    'インスタンス作成
    Dim cc As New Class2
    
    cc.myFunc
    
    'インスタンスを破棄
    Set cc = Nothing

End Sub

Sub Sample01_Class2()

'インスタンス作成

Dim cc As New Class2

cc.myFunc

'インスタンスを破棄

Set cc = Nothing

End Sub

VBA のコンストラクタとデストラクタ

コンストラクタ

項目の説明

デストラクタ

項目の説明

クラス（コンストラクタ・デストラクタ） 使用例

サンプルVBAソース

実行結果

クラス（コンストラクタ・デストラクタ）使用例