PART 07 — クラスモジュール
Property Get/Let・カプセル化・Javaクラスとの対比

' ── clsProduct.cls ──────────────────────────────────────
Option Explicit

' プライベートフィールド（外部から直接アクセス不可）
Private m_Id    As Long
Private m_Name  As String
Private m_Price As Long

' ── ID（読み取り専用）──
Public Property Get Id() As Long
    Id = m_Id
End Property

' ── 名前（読み書き可・バリデーションあり）──
Public Property Get Name() As String
    Name = m_Name
End Property
Public Property Let Name(ByVal v As String)
    If Len(Trim(v)) = 0 Then Err.Raise 5, , "名前を空にできません"
    m_Name = Trim(v)
End Property

' ── 価格（読み書き可・0以上チェック）──
Public Property Get Price() As Long
    Price = m_Price
End Property
Public Property Let Price(ByVal v As Long)
    If v < 0 Then Err.Raise 5, , "価格は0以上にしてください"
    m_Price = v
End Property

' ── 初期化メソッド（コンストラクタ相当）──
Public Sub Init(ByVal id As Long, ByVal name As String, ByVal price As Long)
    m_Id    = id
    Me.Name  = name
    Me.Price = price
End Sub

' ── 表示用文字列 ──
Public Function ToString() As String
    ToString = "[" & m_Id & "] " & m_Name & " ¥" & m_Price
End Function

' ── Class_Initialize（New 時に自動実行）──
Private Sub Class_Initialize()
    m_Price = 0   ' デフォルト値設定
    Debug.Print "clsProduct 生成"
End Sub

' ── Class_Terminate（Set Nothing / スコープ抜け時に自動実行）──
Private Sub Class_Terminate()
    Debug.Print "clsProduct 解放"
End Sub

Option Explicit

Sub UseProductClass()
    ' インスタンス生成
    Dim p As clsProduct
    Set p = New clsProduct

    ' Init メソッドで初期化
    p.Init 1, "ノートPC", 89800

    ' Property でアクセス
    Debug.Print p.ToString   ' → [1] ノートPC ¥89800

    p.Price = 79800           ' Property Let 経由で設定
    Debug.Print p.Price       ' → 79800

    ' 解放
    Set p = Nothing
End Sub