こんにちは。コードの海を渡り歩く皆さんに、今日は「VB.NETで魔法のようなコードを書く方法」を伝授しましょう。
VBAの「マクロの記録」から一歩踏み出し、プログラムがプログラム自身を理解する「メタデータ駆動型プログラミング」の世界へようこそ。これを知れば、君のコードはただの命令書から、自らルールを判断する賢いシステムへと進化します。
—
1. 属性（Attribute）とは何か？「メタデータ」という名札
VB.NETにおける「属性（Attribute）」とは、一言で言えば「コードに貼るラベル（付箋）」です。
通常、プログラムは「何をするか（処理）」を書きますが、属性は「このプロパティはどういう性質か（メタデータ）」を記述します。例えば、「この数値は100以下でなければならない」というルールを、コードの中にこっそり埋め込むことができるのです。
なぜこれが強力なのか？
もしバリデーション（入力チェック）を `If` 文で一つずつ書いていたら、項目が増えるたびにコードは肥大化し、修正地獄に陥ります。しかし、属性を使えば「ルールを貼るだけ」で済むようになる。これがプロの設計です。
—
2. 実践：独自の「バリデーション属性」を作ってみる
まずは、独自の属性クラスを定義しましょう。`Attribute` クラスを継承するのがお約束です。
Imports System
‘ 独自の属性クラスを定義
‘ AttributeUsageで、この属性がどこに貼れるかを指定します（今回はプロパティのみ）
Public Class RangeCheckAttribute
Inherits Attribute
Public Property MinValue As Integer
Public Property MaxValue As Integer
‘ コンストラクタでルールを保持
Public Sub New(min As Integer, max As Integer)
Me.MinValue = min
Me.MaxValue = max
End Sub
End Class
これだけで、君のプロジェクトに新しいルールが追加されました。次は、これを使ってみましょう。
—
3. 属性を貼って、プログラムに読み取らせる
先ほど作った `RangeCheck` 属性を、クラスのプロパティに貼り付けます。
Public Class UserProfile
‘ 属性を付与！これだけで「1歳〜120歳まで」というメタデータが宿ります
Public Property Age As Integer
End Class
さて、ここからが本番です。プログラムが実行中にこの「付箋」を読み取るには、「リフレクション（Reflection）」という技術を使います。
Imports System.Reflection
Public Sub ValidateObject(obj As Object)
Dim t As Type = obj.GetType()
‘ すべてのプロパティを走査する
For Each prop In t.GetProperties()
‘ プロパティに「RangeCheckAttribute」が貼られているか探す
Dim attr = prop.GetCustomAttribute(Of RangeCheckAttribute)()
If attr IsNot Nothing Then
Dim value As Integer = CInt(prop.GetValue(obj))
‘ 属性に設定されたルールでチェック実行！
If value < attr.MinValue OrElse value > attr.MaxValue Then
Console.WriteLine($”{prop.Name} は {attr.MinValue}〜{attr.MaxValue} の間で設定してください。”)
End If
End If
Next
End Sub
—
4. なぜこのテクニックが「伝説級」なのか？
このコードの何がすごいのか、気づきましたか？
1. 分離（Separation of Concerns）：
バリデーションの「ロジック（ValidateObjectメソッド）」と「ルール（属性）」が完全に切り離されています。
2. 拡張性：
新しい項目が増えても、`UserProfile` クラスに属性を貼るだけで、チェック機能は自動的に対応します。`ValidateObject` を書き換える必要はもうありません。
3. 宣言的記述：
「どうチェックするか」ではなく「どうあるべきか」を記述するスタイル。これがモダンな開発の極意です。
—
5. 初学者が陥りやすい罠とアドバイス
最後に、ここだけは気をつけてください。
- リフレクションは「諸刃の剣」：
リフレクションは実行時に型情報を探るため、直接メソッドを呼ぶより若干コストがかかります。大量のデータを高速処理するループの中で何度も呼び出すのは避け、必要な時だけ使うようにしましょう。
- `AttributeUsage` の設定：
`AttributeTargets.Property` なのか `Class` なのか、属性を貼る場所を正しく制限してください。制限を忘れると、意図しない場所に属性が貼られ、予期せぬバグの温床になります。
先輩からのメッセージ
VB.NETの属性とリフレクションを使いこなせれば、君はもう単なる「コード書き」ではありません。「フレームワークを作る側」の視座を手に入れたことになります。
最初は難しく感じるかもしれませんが、この「メタデータ駆動」の考え方は、将来C#へ移行しようが、他の言語を学ぼうが、君の背骨となる強力な武器になります。
さあ、恐れずに自分の属性を作ってみてください。コードに意志を宿らせる楽しさを、ぜひ体感してくださいね！
