こんにちは！開発現場で日夜コードと格闘していると、「あらかじめ設計図（クラス）を用意できないデータ構造」に出会うことってありませんか？
例えば、外部システムから日替わりで全く異なる項目数のCSVやJSONが飛んできたり、エンドユーザーが画面上で自由に定義した項目をそのまま高速にオブジェクトとして扱いたい場合などです。
「毎回 `Dictionary(Of String, Object)` で持てばいいじゃないか」と思いましたか？
確かにそれでも動きますが、数万件のデータをループさせたり、LINQでゴリゴリ集計したりする現場のプロダクトにおいて、辞書型ルックアップのオーバーヘッドやボクシング（型変換）のコストは、パフォーマンスを殺す致命傷になり得ます。
そこで登場するのが、`System.Reflection.Emit`（リフレクション・エミット）です。
今回は、VB.NETのコードから「その場でクラス（型）をコンパイルして生み出し、高速なオブジェクトとして使い倒す」という、極限のメタプログラミングの世界へあなたをご案内します。
ここをクリアすれば、VB.NETの裏側の仕組みまで見通せる「本物のエンジニア」に一歩近づけますよ。怖がららずに、一緒に一歩ずつ紐解いていきましょう！
—
1. なぜ「動的Emit」が必要なのか？（リフレクションの限界を超える）
通常、VB.NETでオブジェクトを扱うときは、以下のようにクラスを定義しますよね。
‘ 通常のクラス定義（コンパイル時には構造が決まっている）
Public Class UserData
Public Property Id As Integer
Public Property Name As String
End Class
しかし、「実行されるまでプロパティの数も名前も型も分からない」としたらどうでしょう？
通常の `Reflection` を使ってプロパティの値を無理やり動的に読み書きすることもできますが、これは毎回の実行時に名前解決のオーバーヘッドが発生し、圧倒的に遅いという弱点があります。
ここで `System.Reflection.Emit` の出番です。
Emitを使えば、プログラムの実行中（Runtime）に、まるでC#やVB.NETのコンパイラが行うように、直接メモリ上にIL（Intermediate Language：中間言語）を書き込み、本物の「型（Type）」を爆誕させることができます。
一度作ってしまえば、あとは通常のコンパイルされたクラスと全く同じ速度で動くため、パフォーマンスの妥協が一切不要になります。これがプロの現場でEmitが選ばれる理由です。
—
2. 【実践】VB.NETで動的型（クラス）を錬成するコード
百聞は一見にしかず。実行時に「任意の名前と型のプロパティを持つクラス」を動的に生成し、インスタンス化して値を入出力するコードを書いてみましょう。
以下のコードは、そのままコンソールアプリケーションなどで動かせる実用的なサンプルです。
Imports System
Imports System.Reflection
Imports System.Reflection.Emit
Module DynamicEmitSample
Sub Main()
Console.WriteLine(“=== 動的型生成（Emit）のデモを開始します ===”)
‘ 1. 動的アセンブリとモジュールを定義する（一時的な作業スペースのイメージ）
Dim assemblyName As New AssemblyName(“DynamicAssemblyEx”)
Dim assemblyBuilder As AssemblyBuilder = AppDomain.CurrentDomain.DefineDynamicAssembly(assemblyName, AssemblyBuilderAccess.Run)
Dim moduleBuilder As ModuleBuilder = assemblyBuilder.DefineDynamicModule(“DynamicModuleEx”)
‘ 2. 新しいクラス（例: “DynamicUser”）の型ビルダーを作成
Dim typeBuilder As TypeBuilder = moduleBuilder.DefineType(“DynamicUser”, TypeAttributes.Public Or TypeAttributes.Class)
‘ 3. 動的にプロパティ（Id As Integer, Name As String）を追加する
‘ ※裏側で「プライベートフィールド」と「Getter/Setterメソッド」が自動生成されます
CreateProperty(typeBuilder, “Id”, GetType(Integer))
CreateProperty(typeBuilder, “Name”, GetType(String))
‘ 4. 型を確定（ビルド）させる
Dim dynamicType As Type = typeBuilder.CreateType()
Console.WriteLine($”[成功] 動的型 ‘{dynamicType.FullName}’ が生成されました！”)
‘ 5. 生成した動的型のインスタンスを生成する
Dim instance As Object = Activator.CreateInstance(dynamicType)
‘ 6. リフレクション経由で値を設定する（生成された型なので、通常のプロパティ操作と同様に高速）
dynamicType.GetProperty(“Id”).SetValue(instance, 101)
dynamicType.GetProperty(“Name”).SetValue(instance, “VB.NET 匠のエンジニア”)
‘ 7. 値を取り出して確認する
Dim idVal As Integer = CInt(dynamicType.GetProperty(“Id”).GetValue(instance))
Dim nameVal As String = CStr(dynamicType.GetProperty(“Name”).GetValue(instance))
Console.WriteLine($”-> 取得した Id: {idVal}”)
Console.WriteLine($”-> 取得した Name: {nameVal}”)
Console.WriteLine(“=== デモ終了 ===”)
End Sub
”’
”’
Sub CreateProperty(tb As TypeBuilder, propertyName As String, propertyType As Type)
‘ ① プライベートフィールドの定義 (例: m_Id As Integer)
Dim fieldBuilder As FieldBuilder = tb.DefineField(“_” & propertyName.ToLower(), propertyType, FieldAttributes.Private)
‘ ② プロパティの定義
Dim propBuilder As PropertyBuilder = tb.DefineProperty(propertyName, PropertyAttributes.HasDefault, propertyType, Nothing)
‘ ③ Getter メソッドの定義とIL生成
Dim getMethodBuilder As MethodBuilder = tb.DefineMethod(“get_” & propertyName,
MethodAttributes.Public Or MethodAttributes.SpecialName Or MethodAttributes.HideBySig,
propertyType, 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 メソッドの定義とIL生成
Dim setMethodBuilder As MethodBuilder = tb.DefineMethod(“set_” & propertyName,
MethodAttributes.Public Or MethodAttributes.SpecialName Or MethodAttributes.HideBySig,
Nothing, New Type() {propertyType})
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)
End Sub
End Module
—
3. コードの心臓部：何が行われているのか？
上記のコード、特に `CreateProperty` の中身はアセンブリ言語や逆アセンブラを見ているようでクラクラしたかもしれませんね。ですが、本質はとてもシンプルです。
IL（中間言語）のスタックマシンモデル
.NETの世界では、計算や代入はすべて「スタック」という積み木のようなメモリ領域で行われます。
SetterのILを日本語に翻訳してみましょう：
1. `Ldarg_0` ：「自分自身（Me）」をスタックに積む。
2. `Ldarg_1` ：「渡された引数の値」をスタックに積む。
3. `Stfld` ：「積まれた値」を取り出して、フィールドに保存する。
4. `Ret` ：「おしまい！」
VB.NETの裏側でコンパイラがやっている苦労を、私たちがコードで直接エミュレートしているわけです。ここを乗りこなせるようになると、VB.NETの実行時挙動において死角がなくなります。
—
4. 現場で陥りやすい罠とエラー回避の極意
この領域に踏み込むと、いくつかの「洗礼」を受けることになります。代表的なトラブルシューティングを先回りしてお伝えしておきます。
罠1：型作成後の変更（TypeBuilderの罠）
- 症状: `typeBuilder.CreateType()` を呼んだ後に、うっかり別のプロパティを追加しようとしてエラーになる。
- 原因: `.NET` の仕様上、`CreateType()` が呼ばれた瞬間にその型は確定され、イミュータブル（変更不可）になります。
- 対策: 動的型のプロパティやメソッドは、必ず `CreateType()` を呼ぶ前にすべて定義しきってください。
罠2：メモリリーク（AppDomainの肥大化）
- 症状: ループ内で毎回 `DefineDynamicAssembly` を呼び続けたら、メモリ使用量が右肩上がりに増え続けてアプリがクラッシュした。
- 原因: 動的生成されたアセンブリは、それが属する `AppDomain` がアンロードされない限り、メモリ上に残り続けます。.NET Core / .NET 5+ 以降ではデフォルトの `AppDomain` から動的アセンブリを安全にアンロードするのが難しいため、無限に型を作り続ける設計は破綻します。
- 対策: 動的型は「アプリケーション全体でキャッシュ（再利用）」する仕組みを必ず挟み、同じ構造の型であれば既存の型を使い回すアーキテクチャにしてください。
—
まとめ
今回は、VB.NETによる `System.Reflection.Emit` を用いた動的型生成の極限テクニックについて解説しました。
- 通常の「リフレクション」は遅いが、Emitで動的生成された型は静的クラスと同等の速度を誇る。
- IL（スタックマシン）の基本動作を理解すれば、どんな構造のクラスも実行時に自在に生み出せる。
- 生成タイミングとメモリ管理（キャッシュ機構）の設計が実用化の鍵を握る。
マクロの記録や直感的なコーディングから一歩進み、このような「.NETのランタイムそのものを手懐ける技術」を習得すると、業務アプリケーションの可能性が無限に広がります。どんな特殊な仕様の要件が来ても、「私ならEmitで綺麗に高速に解決できますよ」と涼しい顔で言えるエンジニアになれます。
ここをクリアしたあなたなら、もうVB.NETの基礎はバッチリです！ぜひ実際の開発現場のパフォーマンスチューニングや特殊なデータバインディングに応用してみてくださいね。それでは、次のステージでお会いしましょう！
