執行時の闇を照らす灯火：VB.NETにおける「GetType()」とリフレクションの極限アーキテクチャ
システム開発の現場において、我々はしばしば「コンパイル時には確定しない、あるいは未知の構造を持つオブジェクト」と対峙することになります。特に、長年運用されてきたレガシーなVBAシステムを.NETにマイグレーションする局面や、動的に変化するデータベーススキーマと結合する汎用的なデータインポート・エクスポートエンジンを構築する際、静的なコード記述だけでは限界を迎えます。
この限界を突破する鍵が、.NET Frameworkが提供する強力なメタデータ探索エンジン「リフレクション（Reflection）」です。
本稿では、リフレクションの入り口である `GetType()` および `Type` クラスを徹底的に解剖します。単なる入門書の引き写しではない、メモリ効率、実行パフォーマンス、そしてレガシーCOMインターオペラビリティ（相互運用）までを見据えた、極限のシステムアーキテクト視点による実装技術を提示します。
—
1. 概念の解剖：`GetType` 演算子と `Object.GetType()` メソッドの峻別
VB.NETにおける型情報の取得には、大きく分けて2つのアプローチが存在します。これらは似て非なるものであり、コンパイル時と実行時の挙動において決定的な違いがあります。
1.1 `GetType` 演算子（コンパイル時評価）
Dim t As Type = GetType(System.String)
`GetType` 演算子は、コンパイル時に確定している型の `Type` オブジェクトを直接取得します。コンパイル時点で型メタデータへの参照が解決されるため、オーバーヘッドは極めて小さく、型安全性が保証されます。
1.2 `Object.GetType()` メソッド（実行時評価）
Dim obj As Object = “Hello World”
Dim t As Type = obj.GetType()
一方、すべての .NET オブジェクトの基底クラスである `System.Object` に定義されている `GetType()` メソッドは、実行時のインスタンス（実体）の実際の型を解決します。
変数宣言が `Object` やインターフェースであっても、実際にヒープ領域に確保された具象クラスのメタデータを参照するため、ポリモーフィズムが適用されたオブジェクトの真の姿を暴くことができます。
アーキテクトの視点：型メタデータのライフサイクル
`.NET` において、`Type` オブジェクトはアプリケーションドメイン（AppDomain）ごとに一意であり、ランタイム（CLR）によってキャッシュされます。同一の型に対して `GetType` を何度呼び出しても、返される `Type` インスタンスの参照先は同一です。しかし、実行時呼び出しである `Object.GetType()` は、オブジェクトヘッダーから型ハンドルを解決する僅かなオーバーヘッドを伴うことを記憶に留めておいてください。
—
2. 実践：プロパティメタデータの動的探索と抽出
それでは、具体的なコードを用いて、任意のオブジェクトからプロパティ名、型、そしてその実行時の値を動的に抽出する堅牢な実装を示します。
このコードは、社内システム管理者が汎用ログ出力エンジン、あるいはデバッグ用のオブジェクト状態監視（ダンプ）ツールを実装する際の基盤となるものです。
2.1 高性能かつ堅牢なプロパティ・スキャナーの実装
以下のコードは、指定されたオブジェクトの全プロパティを解析し、その詳細をログに出力するモジュールです。システム開発で実用できるよう、`Null`（`Nothing`）のハンドリング、インデクサ（引数を持つプロパティ）の除外、アクセス権限の制御（`BindingFlags`）を網羅しています。
Imports System.Reflection
Imports System.Text
Public Module ObjectInspector
”’
”’
”’ 解析対象のオブジェクト（Nothing不可）
”’
Public Function InspectProperties(target As Object) As String
If target Is Nothing Then
Throw New ArgumentNullException(NameOf(target), “解析対象のオブジェクトがNothingです。”)
End If
‘ 1. 実行時インスタンスから型情報を取得
Dim targetType As Type = target.GetType()
Dim sb As New StringBuilder()
sb.AppendLine($”=== Object Inspection ===”)
sb.AppendLine($”[Full Name] : {targetType.FullName}”)
sb.AppendLine($”[Assembly] : {targetType.Assembly.GetName().Name}”)
sb.AppendLine($”—————————————-“)
‘ 2. 探索条件（BindingFlags）の定義
‘ インスタンスプロパティ、パブリック、および非パブリック（プライベート含む）を指定
Dim flags As BindingFlags = BindingFlags.Instance Or
BindingFlags.Public Or
BindingFlags.NonPublic
‘ 3. プロパティ情報の取得
Dim properties() As PropertyInfo = targetType.GetProperties(flags)
For Each prop As PropertyInfo In properties
‘ インデクサ（Itemプロパティなど引数を必要とするもの）はスキップ
If prop.GetIndexParameters().Length > 0 Then
Continue For
End If
Dim propName As String = prop.Name
Dim propType As String = prop.PropertyType.Name
Dim accessors As String = GetAccessModifiers(prop)
Dim propValue As String = “Unreadable”
‘ 4. 読み取り可能かどうかの判定
If prop.CanRead Then
Try
‘ 実行時に値を動的取得（ボクシングに注意）
Dim val As Object = prop.GetValue(target, Nothing)
propValue = If(val Is Nothing, “Nothing”, val.ToString())
Catch ex As TargetInvocationException
‘ プロパティのGetter内部で例外が発生した場合のハンドリング
propValue = $”[Exception in Getter: {ex.InnerException?.Message}]”
Catch ex As Exception
propValue = $”[Read Error: {ex.Message}]”
End If
Else
propValue = “[Write-Only]”
End If
sb.AppendLine($”{accessors} {propName} As {propType} = {propValue}”)
Next
sb.AppendLine($”========================================”)
Return sb.ToString()
End Function
”’
”’
Private Function GetAccessModifiers(prop As PropertyInfo) As String
Dim hasGet As Boolean = prop.CanRead
Dim hasSet As Boolean = prop.CanWrite
Dim getMethod As MethodInfo = prop.GetMethod
Dim setMethod As MethodInfo = prop.SetMethod
Dim getStr As String = If(hasGet, If(getMethod.IsPublic, “Get”, “Private Get”), “-“)
Dim setStr As String = If(hasSet, If(setMethod.IsPublic, “Set”, “Private Set”), “-“)
Return $”[{getStr}/{setStr}]”
End Function
End Module
2.2 テスト用エンティティと実行コード
上記モジュールを駆動させるためのテスト用クラスと、呼び出しコードです。
‘ テスト用ダミークラス
Public Class Employee
Public Property ID As Integer
Public Property Name As String
Private Property Salary As Decimal ‘ プライベートプロパティ
Public ReadOnly Property IsActive As Boolean
Get
Return True
End Get
End Property
Public Sub New(id As Integer, name As String, salary As Decimal)
Me.ID = id
Me.Name = name
Me.Salary = salary
End Sub
End Class
‘ 実行エントリーポイント
Module Program
Sub Main()
‘ テストオブジェクトのインスタンス化
Dim emp As New Employee(1024, “黒鉄 零治”, 850000D)
‘ インスペクターの実行
Dim report As String = ObjectInspector.InspectProperties(emp)
‘ 結果の出力（コンソール、またはトレースログ）
Console.WriteLine(report)
Console.ReadLine()
End Sub
End Module
出力結果：
=== Object Inspection ===
[Full Name] : YourNamespace.Employee
[Assembly] : YourAssembly
—————————————-
[Get/Set] ID As Int32 = 1024
[Get/Set] Name As String = 黒鉄 零治
[Private Get/Private Set] Salary As Decimal = 850000
[Get/-] IsActive As Boolean = True
========================================
—
3. 深淵の知見：メタデータ操作におけるメモリと速度の壁
リフレクションは、極めて強力である反面、その乱用はエンタープライズアプリケーションのパフォーマンスを著しく低下させる両刃の剣です。システムアーキテクトとして、以下の最適化手法と内部挙動を完全に掌握しておく必要があります。
3.1 メモリ（GC）のプレッシャー：ボクシングの罠
上記コード内の `prop.GetValue(target, Nothing)` に注目してください。このメソッドは、戻り値として `System.Object` を返却します。
もし対象プロパティが `Integer`（`Int32`）や `Decimal` などの値型（Value Type）であった場合、CLRはヒープ領域にメモリを確保し、値を包み込む「ボクシング（Boxing）」を強制的に発生させます。
数万行のデータをループ処理する中でリフレクションを用いて値を取得すると、大量の一時オブジェクトがヒープに生成され、ガベージコレクション（GC）の発生頻度が跳ね上がります。これが「リフレクションは遅い」と言われる最大の要因の一つです。
対策：デリゲートのコンパイルとキャッシュ
パフォーマンスが要求されるホットパス（頻繁に実行される箇所）では、リフレクションで毎回プロパティにアクセスするのではなく、初回アクセス時に `System.Delegate.CreateDelegate` を使用して、プロパティの `Getter` メソッドをデリゲート（関数ポインタ）に変換してキャッシュします。
‘ Getterメソッドのデリゲート化による高速化手法の概念
Dim getMethod As MethodInfo = prop.GetMethod
Dim getter As Func(Of Employee, String) =
DirectCast(Delegate.CreateDelegate(GetType(Func(Of Employee, String)), getMethod), Func(Of Employee, String))
‘ 2回目以降は、ネイティブコードと同等の速度でアクセス可能
Dim name As String = getter(emp)
3.2 レガシーCOM（VBA/ActiveX）相互運用におけるリフレクション
VBAやレガシーなVB6で作成されたCOMオブジェクト（ActiveX DLLなど）を、VB.NETからリフレクションを用いて動的に操作する場合、通常の `.NET` オブジェクトに対するリフレクションは機能しません。COMオブジェクトの実体は `System.__ComObject` というラッパーであり、`.NET` の型システムからはその内部プロパティが見えないためです。
この場合、`GetType()` で取得した型に対して操作するのではなく、以下のいずれかのアプローチを採る必要があります。
1. `Microsoft.VisualBasic.Interaction.CallByName` の利用
内部的にCOMの `IDispatch` インターフェースを介して遅延バインディング（Late Binding）を実行します。
‘ VBAでおなじみのCallByNameは、.NETのCOM相互運用でも極めて有効
Dim comValue As Object = CallByName(comObject, “PropertyName”, CallType.Get)
2. `Type.GetTypeFromProgID` または `Type.GetTypeFromCLSID` からのダイナミックキャスト
レガシーなレジストリ情報を基に型メタデータを動的に生成し、`Activator.CreateInstance` で生成します。
—
4. 総括：モダン化への架け橋としてのリフレクション
リフレクションは、単なる「動的なプロパティ取得ツール」に留まりません。
それは、「コードが自分自身の構造を客観的に認識し、適応する」という、メタプログラミングの第一歩です。
- 保守開発において：ブラックボックス化したレガシーコンポーネントの構造をプログラム自身に走査させ、自動的にインターフェース定義書（MarkdownやXML）を生成する。
- マイグレーションにおいて：VBAのデータ構造をVB.NETのクラス構造へとマッピングし、データの移行検証を自動化する。
これらの高度なタスクは、すべて `GetType()` という一歩から始まります。
しかし、その強力な力の背後には、メモリ管理（ボクシングの抑制）やアクセス制御、COM相互運用の複雑さといった、CLR（Common Language Runtime）の深い理解が不可欠です。
この技術を武器とし、既存資産の延命から、次世代アーキテクチャへの円滑な移行を主導してください。システムを完全に支配するのは、仕様書ではなく、コードの真実を知る者だけです。
