VB.NETでのEmitによる動的型生成とコンパイル：実行時コード生成の極限テクニック
レガシーシステムとの連携、あるいは多種多様なスキーマを持つ外部データを扱う際、私たちは度々「リフレクションの遅延」という壁に突き当たる。`System.Reflection`を用いた動的なプロパティ設定や値の取得は、コードの柔軟性を担保する引き換えに、致命的なパフォーマンスの劣化を招く。特に、数万件単位のレコードをループ処理の中で動的オブジェクトにマッピングするような極限の現場において、リフレクションのオーバーヘッドはシステム全体を窒息させる。
この呪縛から逃れる唯一にして究極の手段が、`System.Reflection.Emit`を用いた実行時IL（Intermediate Language）生成である。
今回は、VB.NETの構文の裏側でCLR（Common Language Runtime）がどのように型を解釈しているかを完全に掌握し、あらかじめ定義されていない構造のデータを、静的にコンパイルされたクラスと同等の速度でオブジェクト化する極限のテクニックを解説する。
—
なぜリフレクションではなく `Reflection.Emit` なのか
シニアエンジニアであれば、`Dictionary(Of String, Object)` や `ExpandoObject` で動的データを扱う誘惑に駆られたことがあるだろう。しかし、これらは型安全性を放棄しているだけでなく、ボックス化（Boxing/Unboxing）の嵐を引き起こし、メモリフットプリントとGC（ガベージコレクション）の負荷を急増させる。
一方、`Reflection.Emit` を用いてメモリ上に動的アセンブリ、動的モジュール、そして動的型（Type）を生成した場合、生成された型は静的型と全く同等に扱われる。JIT（Just-In-Time）コンパイラによってネイティブコードにコンパイルされるため、実行速度はリフレクションと比較して数倍から数十倍、場合によっては数百倍のパフォーマンス差を生む。
—
実装：動的プロパティを持つ型のオンザフライ生成
以下のコードは、実行時に任意のプロパティ名とデータ型のペアを受け取り、それを持つクラスを動的にコンパイルしてインスタンスを生成するVB.NETの実装である。
ここでは、VB.NET特有の緩い構文に頼らず、厳密なIL命令を組み立てることで、パフォーマンスの限界を引き出す。
Imports System
Imports System.Reflection
Imports System.Reflection.Emit
Imports System.Collections.Generic
Namespace ExtremeDotNet.Emit
Public NotInheritable Class DynamicEntityBuilder
Private Sub New()
‘ 静的クラスとして設計
End Sub
”’
”’
Public Shared Function CreateDynamicObject(properties As IDictionary(Of String, Type)) As Object
‘ 1. 動的アセンブリとモジュールの定義（実行時のみ存在するためランタイム領域を使用）
Dim assemblyName As New AssemblyName(“DynamicAssembly_” & Guid.NewGuid().ToString(“N”))
Dim assemblyBuilder As AssemblyBuilder = AppDomain.CurrentDomain.DefineDynamicAssembly(assemblyName, AssemblyBuilderAccess.Run)
Dim moduleBuilder As ModuleBuilder = assemblyBuilder.DefineDynamicModule(“DynamicModule”)
‘ 2. 動的型の定義（Publicクラスとして生成）
Dim typeBuilder As TypeBuilder = moduleBuilder.DefineType(
“DynamicGeneratedType_” & Guid.NewGuid().ToString(“N”),
TypeAttributes.Public or TypeAttributes.Class
)
‘ 3. 各プロパティのフィールド、Getter、Setterの生成
For Each prop In properties
Dim propName As String = prop.Key
Dim propType As Type = prop.Value
‘ プライベートフィールドの定義 (例: _m_PropertyName)
Dim fieldBuilder As FieldBuilder = typeBuilder.DefineField(
“_m_” & propName,
propType,
FieldAttributes.Private
)
‘ プロパティの定義
Dim propBuilder As PropertyBuilder = typeBuilder.DefineProperty(
propName,
PropertyAttributes.HasDefault,
propType,
Type.EmptyTypes
)
‘ Getterメソッドの定義
Dim getMethodBuilder As MethodBuilder = typeBuilder.DefineMethod(
“get_” & propName,
MethodAttributes.Public or MethodAttributes.SpecialName or MethodAttributes.HideBySig,
propType,
Type.EmptyTypes
)
Dim getIl As ILGenerator = getMethodBuilder.GetILGenerator()
getIl.Emit(OpCodes.Ldarg_0) ‘ Me (this) をスタックにロード
getIl.Emit(OpCodes.Ldfld, fieldBuilder) ‘ フィールドの値を取得してスタックにロード
getIl.Emit(OpCodes.Ret) ‘ 値を返してリターン
‘ Setterメソッドの定義
Dim setMethodBuilder As MethodBuilder = typeBuilder.DefineMethod(
“set_” & propName,
MethodAttributes.Public or MethodAttributes.SpecialName or MethodAttributes.HideBySig,
Nothing,
New Type() {propType}
)
Dim setIl As ILGenerator = setMethodBuilder.GetILGenerator()
setIl.Emit(OpCodes.Ldarg_0) ‘ Me (this) をスタックにロード
setIl.Emit(OpCodes.Ldarg_1) ‘ 引数（設定する値）をスタックにロード
setIl.Emit(OpCodes.Stfld, fieldBuilder) ‘ フィールドに値をストア
setIl.Emit(OpCodes.Ret) ‘ リターン
‘ プロパティにGetterとSetterを紐付け
propBuilder.SetGetMethod(getMethodBuilder)
propBuilder.SetSetMethod(setMethodBuilder)
Next
‘ 4. 型を確定（CreateType）
Dim generatedType As Type = typeBuilder.CreateType()
‘ 5. インスタンスの生成
Return Activator.CreateInstance(generatedType)
End Function
End Class
End Namespace
—
コードの深層解説：なぜこのILが最速なのか
上記のコードにおいて、ILGeneratorが吐き出すバイトコードは、C#やVB.NETのコンパイラが裏側で吐き出しているものと何ら変わらない。
1. `OpCodes.Ldarg_0` (Load Argument 0)
インスタンスメソッドの第一引数には、常に自身の参照（`Me` / `this`）が暗黙的に渡される。これを評価スタックのトップに積む。
2. `OpCodes.Ldfld` / `Stfld` (Load/Store Field)
リフレクション経由の `PropertyInfo.GetValue` / `SetValue` は、内部で膨大なセキュリティチェックやオーバーヘッドを伴うメソッド呼び出し（Invoke）が発生する。しかし、Emitによって生成されたILは、メモリオフセットに直接アクセスする機械語へとJITコンパイルされるため、オーバーヘッドがほぼゼロになる。
—
実務における応用：メモリ最適化とアセンブリのキャッシュ戦略
ここで、アーキテクトとして見落としてはならない致命的な罠に言及する。
`AssemblyBuilderAccess.Run` で生成された動的アセンブリはマネージドヒープ上に常駐する。もし、外部データを受信するたびに安易に `DefineDynamicAssembly` を呼び出し続けると、AppDomain内に無数の動的型が生成され続け、最終的に `OutOfMemoryException`（OOM）を引き起こす。 型の定義は一度行えば、同一構造に対して再利用が可能である。
高度なキャッシュパターンの実装
本番稼働するシステムにおいては、スキーマ（プロパティ名と型の組み合わせ）のハッシュをキーとして、生成済みの `Type` をメモリ上にキャッシュする機構が必須となる。
Imports System.Collections.Concurrent
Public NotInheritable Class OptimizedDynamicEntityFactory
‘ 型定義のキャッシュ（スレッドセーフなConcurrentDictionaryを使用）
Private Shared ReadOnly _typeCache As New ConcurrentDictionary(Of String, Type)()
Public Shared Function GetOrCreateType(properties As IDictionary(Of String, Type)) As Type
‘ スキーマを一意に特定するシグネチャ（ハッシュ等）を生成
Dim cacheKey As String = GenerateCacheKey(properties)
‘ キャッシュヒットすれば即座に返す（ロック競合を最小化）
Dim cachedType As Type = Nothing
If _typeCache.TryGetValue(cacheKey, cachedType) Then
Return cachedType
End If
‘ キャッシュミスの場合は型を生成して登録
SyncLock _typeCache
If _typeCache.TryGetValue(cacheKey, cachedType) Then
Return cachedType
End If
Dim newType As Type = BuildTypeInternal(properties)
_typeCache(cacheKey) = newType
Return newType
End SyncLock
End Function
Private Shared Function GenerateCacheKey(properties As IDictionary(Of String, Type)) As String
Dim sb As New System.Text.StringBuilder()
For Each kvp In properties.OrderBy(Function(x) x.Key)
sb.Append(kvp.Key).Append(“:”).Append(kvp.Value.FullName).Append(“;”)
Next
Return sb.ToString()
End Function
Private Shared Function BuildTypeInternal(properties As IDictionary(Of String, Type)) As Type
‘ （前述のDynamicEntityBuilderの中核ロジックをここに配置）
‘ ModuleBuilderはアセンブリごとに1つ保持し、そこでTypeBuilderを回すのが効率的。
Return Nothing ‘ 実際の実装では型を返す
End Function
End Class
—
レガシー環境・API連携における真価
このテクニックが真価を発揮するのは、例えば「仕様が頻繁に変更される巨大なCSV/固定長ファイルのパーサー」や、「動的なJSONスキーマを持つNoSQLデータベースや外部REST APIとの高速なブリッジ層」をVB.NETで構築しなければならない場面だ。
レガシーなCOMコンポーネントや、型のない古いVBA資産から移行してきたデータ構造を、現代の.NET Core / .NET 8環境で高速にオブジェクト化し、LINQによるクエリの対象にしたい時、このEmitによる動的型生成は強力な武器となる。静的型としてのパフォーマンスを維持しながら、動的なスキーマに適応する――これこそが、アーキテクトが目指すべき「美しき自動化」の極致である。
妥協のないコードで、限界を超えろ。
