メタデータの支配者たれ：VB.NETにおけるカスタム属性とリフレクションによる「静的構造」の動的昇華
長年、VB6の `Form_Load` の泥沼から、現代の .NET Core/6+ の非同期ストリームまでを渡り歩いてきた諸君へ。
「コードを書き換える」のは三流だ。二流は設定ファイルで挙動を変える。だが、一流は「型そのものに意味を刻み込み、リフレクションでその真意を読み解く」。今回は、VB.NETという枯れた、しかし強力な言語を使い、メタデータ駆動型のアーキテクチャを構築する極意を授けよう。
1. なぜ「属性（Attribute）」が重要なのか
多くの現場では、バリデーションロジックやデータベースのマッピングを `If` 文の羅列や巨大な `Select Case` で処理している。それはシステムの腐敗を招く。
属性（`Attribute`）とは、コードに対する「ラベル」ではない。コードに付与する「契約（Contract）」である。 実行時にメタデータを解析することで、ビジネスロジックを個別の型から引き剥がし、汎用的なエンジンへと昇華させることが可能になる。
2. 実装：カスタム属性の設計とメタデータの抽出
まずは、プロパティに対するバリデーションを抽象化する例を示そう。
Imports System.Reflection
‘ 1. カスタム属性の定義
‘ AttributeUsageで適用対象を厳格に制限するのがプロの作法
Public Class RequiredFieldAttribute
Inherits Attribute
Public Property ErrorMessage As String
Public Sub New(message As String)
Me.ErrorMessage = message
End Sub
End Class
‘ 2. ターゲットクラスへの付与
Public Class UserProfile
Public Property FullName As String
End Class
3. リフレクションの最適化：パフォーマンスの重みを知れ
リフレクションは強力だが、頻繁に呼び出せばアプリケーションの喉元を締めることになる。`Type.GetProperties()` は非常に重い処理だ。これをループ内で呼ぶのは自殺行為である。
解決策は「キャッシュ」の一択だ。初回ロード時にメタデータを解析し、デリゲートとしてメモリに保持する。
Public NotInheritable Class MetadataEngine
‘ メタデータをキャッシュしてリフレクションのオーバーヘッドを抑える
Private Shared _cache As New Dictionary(Of Type, List(Of PropertyInfo))
Public Shared Function Validate(obj As Object) As List(Of String)
Dim errors As New List(Of String)
Dim type = obj.GetType()
‘ キャッシュ層を確認
If Not _cache.ContainsKey(type) Then
_cache(type) = type.GetProperties().Where(Function(p) p.GetCustomAttribute(Of RequiredFieldAttribute)() IsNot Nothing).ToList()
End If
For Each prop In _cache(type)
Dim attr = prop.GetCustomAttribute(Of RequiredFieldAttribute)()
Dim value = prop.GetValue(obj)
If value Is Nothing OrElse String.IsNullOrWhiteSpace(value.ToString()) Then
errors.Add(attr.ErrorMessage)
End If
Next
Return errors
End Function
End Class
4. レガシー・Windows APIとの共鳴
この設計は、レガシーシステムとの連携においても真価を発揮する。例えば、特定のクラス構造を Windows API 構造体にマッピングする際、カスタム属性でメモリ配置（Layout）を定義しておけば、`Marshal.StructureToPtr` を使った低レイヤー操作も動的に制御できる。
ここで重要なのは、オブジェクトのライフサイクル管理だ。`Marshal` を使う際は、必ず `IDisposable` パターンを実装し、`IntPtr` を `Marshal.FreeHGlobal` で確実に解放すること。VB.NETのガベージコレクタを過信するな。メモリリークは管理者の無能を証明する刻印となる。
5. アーキテクトからの提言
あなたが構築すべきは、ただ動くコードではない。「拡張性という名の重力」に耐えうるアーキテクチャだ。
- 型安全を維持せよ: リフレクションの多用は `RuntimeBinderException` を誘発する。可能であれば `Expression Trees` を使い、動的コンパイルによるパフォーマンスの最適化を図れ。
- メタデータは「読み取り専用」に: 属性内の値は、実行中に変更してはならない。それはシステムの状態を不可解にする最大の要因だ。
- VB.NETの特権を活かせ: `Option Strict On` は必須だ。VBは柔軟すぎて、油断すれば「動くゴミ」が量産される。厳格な型定義と、今回紹介したメタデータ駆動の設計を組み合わせれば、堅牢性と柔軟性は両立できる。
コードを記述する際、一瞬だけ手を止めろ。「このロジックは、このクラスに書くべきか？ それとも、属性としてクラスを定義すべきか？」。
その問いこそが、君をただのコーダーから、システムを統べるアーキテクトへと引き上げる境界線だ。健闘を祈る。
