クラスの作成と使い方[ExcelのVBA]

Option Explicit

' クラスのメンバ変数
Private m_Value As Long ' 現在位置の保存用

' クラスのコンストラクタ
Private Sub Class_Initialize()
  Debug.Print ("--- コンストラクタ(クラス初期化時のイベント) ---")
  m_Value = 50
End Sub

' クラスのデストラクタ
Private Sub Class_Terminate()
  Debug.Print ("--- デストラクタ(クラス破棄時のイベント) ---")
End Sub

' クラスのプロパティ(取得用)
Public Property Get Position() As Long
  Position = m_Value
End Property

' クラスのプロパティ(変更用)
Public Property Let Position(ByVal vNewValue As Long)
  m_Value = vNewValue
End Property

' クラスのメソッド
Public Sub Add(ByVal vAddValue As Long)
  m_Value = m_Value + vAddValue
End Sub

Option Explicit

Private Sub CommandButton1_Click()
  Dim A As MyCls     ' クラスの定義(MyClsクラスのAオブジェクトの定義)
  Set A = New MyCls  ' クラスの生成(MyClsクラスのインスタンスを生成してAオブジェクトに代入)

    Debug.Print ("初期時のポジション:" & A.Position)

    ' Positionプロパティに70を代入する
    A.Position = 70
  
    ' Positionプロパティの値を取得
    Debug.Print ("現在のポジション:" & A.Position)

    ' MyClsクラスのAddメソッドでポジション(30)を加算する
    A.Add (30)
    
    ' Positionプロパティの値を取得
    Debug.Print ("現在のポジション:" & A.Position)
  
  ' クラスの破棄(厳密にはインスタンスへの参照を破棄)
  Set A = Nothing

End Sub

Option Explicit

' クラスのメンバ変数
Private m_Value As Long ' 現在位置の保存用

' クラスのイベント
Public Event Change() ' *** 現在の位置が変更されたらイベントが発生する

' クラスのコンストラクタ
Private Sub Class_Initialize()
  Debug.Print ("--- コンストラクタ(クラス初期化時のイベント) ---")
  m_Value = 50
End Sub

' クラスのデストラクタ
Private Sub Class_Terminate()
  Debug.Print ("--- デストラクタ(クラス破棄時のイベント) ---")
End Sub

' クラスのプロパティ(取得用)
Public Property Get Position() As Long
  Position = m_Value
End Property

' クラスのプロパティ(変更用)
Public Property Let Position(ByVal vNewValue As Long)
  m_Value = vNewValue
  RaiseEvent Change  '  *** イベントを発生させる
End Property

' クラスのメソッド
Public Sub Add(ByVal vAddValue As Long)
  m_Value = m_Value + vAddValue
  RaiseEvent Change  '  *** イベントを発生させる
End Sub

Option Explicit

' イベントとクラスを定義する
Private WithEvents A As MyCls

Private Sub A_Change()
  ' ラベルにメッセージを表示する
  Label1.Caption = "現在の位置は" & CStr(A.Position) & "です。"
End Sub

Private Sub CommandButton1_Click()
  ' 現在の位置を設定する
  A.Position = 70
End Sub

Private Sub UserForm_Initialize()
  Set A = New MyCls  ' クラスの生成
End Sub

Private Sub UserForm_Terminate()
  Set A = Nothing    ' クラスの破棄
End Sub