RTTIを制する者はVB.NETを制す：実行時型情報の極限活用術
古参のエンジニア諸君、今日もレガシーの海を渡っているか。
VBAからVB.NETへの移行、あるいはCOM相互運用によるWindows APIの直接制御……これらに共通するのは「型」という境界線との戦いだ。
多くのプログラマは、多態性（ポリモーフィズム）の美しさに酔いしれ、`DirectCast`や`CType`で力任せにキャストを繰り返す。だが、実行時エラーのスタックトレースを夜通し眺めた経験があるなら、そろそろ「実行時型情報（RTTI）」の真髄に触れるべき時だ。
今日は、`GetType`と`TypeOf…Is`演算子を使いこなし、堅牢かつ高速なオブジェクト制御を実現する「プロフェッショナルの作法」を伝授する。
—
1. TypeOf…Is：安全なゲートキーパー
`TypeOf…Is`は単なる型チェックではない。これは、未知のオブジェクトに対する「フィルタリング」の要だ。特にCOMオブジェクトや、不特定多数のデータソースを扱う際、明示的なキャストの前にこのゲートを置くことで、例外処理のオーバーヘッドを劇的に削減できる。
.net
‘ 不適切なキャストによる例外を未然に防ぐ：プロの護身術
Public Sub ProcessComponent(ByVal obj As Object)
‘ TypeOf…Is は内部的にILレベルで isinst 命令に変換されるため、非常に高速
If TypeOf obj Is IDisposable Then
‘ 期待するインターフェースを実装しているかを確認し、安全にリソースを解放する
Try
DirectCast(obj, IDisposable).Dispose()
Catch ex As Exception
‘ ログ出力等の例外ハンドリングは最小限に留めるのが鉄則
End Try
ElseIf TypeOf obj Is Control Then
‘ Windows API呼び出しを控えたUIコンポーネントの制御
‘ 必要に応じて Handle プロパティを取得し、NativeWindowへバインドする準備を行う
End If
End Sub
伝説のアーキテクトの知見：
`DirectCast`はILレベルで`castclass`を実行する。型が一致しなければ即座に`InvalidCastException`を投げる。この例外処理を繰り返すコードは、メモリとCPUの無駄遣いだ。「チェックし、キャストする」。この順序を徹底するだけで、アプリの安定性は段違いになる。
—
2. GetTypeとリフレクション：動的制御の領域へ
`GetType`は、コンパイル時に型が確定しない環境で真価を発揮する。プラグインアーキテクチャや、外部システムから送られてくるJSON/XMLの動的マッピングにおいて、リフレクションを用いた制御は避けられない。
ただし、`GetType`を頻繁に呼び出すのはパフォーマンスの自殺行為だ。
.net
‘ Typeオブジェクトのキャッシュを用いたパフォーマンス最適化
Private Shared _typeCache As New Dictionary(Of String, Type)
Public Function CreateInstanceDynamically(ByVal typeName As String) As Object
‘ リフレクションの呼び出しコストを抑えるためのキャッシュ戦略
If Not _typeCache.ContainsKey(typeName) Then
Dim t As Type = Type.GetType(typeName)
If t IsNot Nothing Then _typeCache.Add(typeName, t)
End If
‘ Activator.CreateInstance は遅い。本来はコンパイルされたデリゲートを
‘ キャッシュするのがベストだが、要件に応じて使い分けること。
Return Activator.CreateInstance(_typeCache(typeName))
End Function
—
3. レガシー連携における「型の境界」の突破
VBAやCOM経由でVB.NETを呼び出す際、渡されるのは往々にして`Object`型という名のブラックボックスだ。ここで`GetType`を使い、`Type.GetMethod`や`Invoke`を駆使すれば、VBA側からは見えない強力なバックエンド処理を隠蔽できる。
オブジェクトの明示的解放の極意
.NETのGCは優秀だが、メモリの逼迫を待つのはアマチュアのすることだ。`IDisposable`を実装したオブジェクト、特にWindows APIのハンドル（`IntPtr`）を扱うクラスは、RTTIで型を特定した瞬間に明示的な`Dispose()`を叩き込め。
.net
‘ インターフェースを動的に判別し、リソースを即時解放する
Public Sub SafeRelease(ByVal obj As Object)
‘ 型情報からIDisposableを探索するのではなく、演算子で判定する方が圧倒的に速い
Dim disposable As IDisposable = TryCast(obj, IDisposable)
If disposable IsNot Nothing Then
disposable.Dispose()
End If
‘ さらに、COMオブジェクトであればMarshal.ReleaseComObjectを併用する
‘ これこそが、Excelアドインや古いActiveXと戦う者の流儀だ
If System.Runtime.InteropServices.Marshal.IsComObject(obj) Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
End If
End Sub
—
最後に：コードは「生き物」である
VB.NETは「古い」と揶揄されることがある。だが、それは使い手が「道具」としてしか見ていないからだ。`GetType`でメタデータを読み解き、`TypeOf`で実行時の振る舞いを制御する。このレベルまで到達したとき、VB.NETは単なる言語を超え、Windowsという巨大なOSを操る魔法の杖に変わる。
型を怖がるな。型を支配せよ。
それが、我々シニアエンジニアが次世代に伝えるべき、コードの魂だ。
次の現場でも、堅牢なアーキテクチャを築くことを期待している。健闘を祈る。
