VB.NETのRTTIを極める：`GetType`と`TypeOf…Is`による動的制御の「正解」
現場で「とりあえずキャスト」を繰り返すコードを見かけるたび、私は背筋が寒くなる。`DirectCast`や`CType`を闇雲に使うのは、時限爆弾を埋め込むようなものだ。
多態性（ポリモーフィズム）を活用した業務自動化ツールにおいて、オブジェクトの正体を実行時に見極めることは、バグを未然に防ぐための「最後の防波堤」である。今日は、実務においてこのRTTI（実行時型情報）をどう扱い、いかに堅牢なコードへ昇華させるか、その極意を伝授する。
—
1. `TypeOf…Is` と `GetType`：使い分けの哲学
結論から言えば、「条件分岐（制御）」には `TypeOf…Is` を使い、「メタデータや属性の解析（リフレクション）」には `GetType` を使う。これが鉄則だ。
`TypeOf…Is` がもたらす「安全なキャスト」
インターフェースや基底クラスを引数に取るメソッド内で、特定の具象クラスの機能にアクセスしたい場合、安易なキャストは例外（InvalidCastException）を誘発する。ここで登場するのが `TypeOf…Is` だ。
.net
‘ 悪い例：例外のリスクが常にある
Dim processor As IDataProcessor = GetProcessor()
Dim specific = DirectCast(processor, FileDataProcessor) ‘ 違った場合、ここでクラッシュ！
‘ 良い例：型チェックによる安全な分岐
If TypeOf processor Is FileDataProcessor Then
Dim fileProc = DirectCast(processor, FileDataProcessor)
fileProc.CleanupTempFiles()
End If
`GetType` が導く「メタプログラミング」
`GetType` は型そのものを表す `Type` オブジェクトを返す。これは「型による条件分岐」を超えた、動的なプロパティ制御やDB連携の自動化において真価を発揮する。
—
2. 実務で活きる：型に応じた動的処理の実装例
ファイル連携やデータベースへの書き込みを行うツールで、型に応じて処理を振り分けるための「保守性の高いパターン」を紹介する。
.net
Public Sub ProcessData(target As Object)
‘ 1. TypeOf…Is を使ったガード句と動的キャスト
‘ 継承関係を意識した安全なガード
If Not TypeOf target Is IExportable Then
Return ‘ 処理対象外は無視する「静かな設計」
End If
‘ 2. GetType を使ったログ出力やメタデータ判断
‘ 実行時の型情報をログに記録することで、障害調査を劇的に容易にする
Console.WriteLine($”Processing type: {target.GetType().Name}”)
‘ 3. 具象型に応じた詳細処理
Select Case True
Case TypeOf target Is CsvExporter
‘ CSV特有の処理
Case TypeOf target Is SqlServerExporter
‘ DB特有の処理
Case Else
‘ 未知の型へのフォールバック
End Select
End Sub
—
3. 現場のアーキテクトが教える「陥りがちな罠」
罠その1：過剰な型チェック（冗長性の代償）
`If TypeOf…Is` を羅列しすぎると、将来的な拡張性が死ぬ。新しい型を追加するたびに、すべての `If` 文を修正しなければならないからだ。
解決策： 型判定を多用する前に、インターフェースを見直せ。処理をインターフェース側に移動し、多態性（ポリモーフィズム）で解決できないかをまず考えるべきだ。
罠その2：パフォーマンスへの配慮
リフレクション（`GetType` を経由したプロパティの動的取得など）は、通常のメソッド呼び出しよりもオーバーヘッドがある。
解決策： 数万回ループするような処理の内部で `GetType` を呼び出すのは愚策だ。キャッシュするか、あらかじめ型を判定してから処理を分岐させる構造にせよ。
—
4. プロダクションコードにおける「防衛的設計」の極み
ファイルやデータベースを扱う際、型情報と組み合わせて「例外を握りつぶさない」設計が不可欠だ。
.net
”’
”’
Public Sub SafeSave(data As Object)
Try
‘ 型情報を元に処理を分岐
Dim handler As IDataHandler = GetHandler(data.GetType())
handler.Execute(data)
Catch ex As InvalidCastException
‘ 型情報を含めた詳細なエラーログ
Logger.Error($”型変換エラー: {data.GetType().FullName} はこのハンドラで処理できません。”)
Throw
Catch ex As Exception
‘ 汎用的な例外処理
Logger.Fatal(“予期せぬエラー:”, ex)
Throw
End Try
End Sub
最後に：型と向き合うということ
VB.NETにおける型操作は、単なる構文ではない。それは、「このコードが実行時にどう振る舞うべきか」という設計思想の具現化である。
「動けばいい」というコードは、数ヶ月後の自分を苦しめる。`TypeOf…Is` で安全を確保し、`GetType` でメタデータを制御する。この二つの武器を使いこなせば、君の作るツールは「場当たり的なスクリプト」から「プロダクション品質のソフトウェア」へと進化するはずだ。
コードを信じるな。コンパイラと、そして実行時の型情報を信じろ。それが、プロフェッショナルへの道だ。
