こんにちは！ 現場の第一線でコードを書き続けていると、「あ、ここはポリモーフィズム（多態性）だけでは綺麗に処理しきれないな……」という、ちょっぴりマニアックで頭を悩ませる壁にぶつかることがありますよね。
Excelのマクロ（VBA）の「記録ボタン」から一歩踏み出し、VB.NETの本質的なオブジェクト指向の世界へようこそ。ここをクリアすれば、あなたの書くコードの柔軟性と安全性は一気にプロの領域へ跳ね上がります。
今回は、実行時型情報（RTTI：Run-Time Type Information）のキモである `GetType` と `TypeOf…Is` 演算子をテーマに、現場で即戦力となる実務活用術を一緒に紐解いていきましょう。
—
1. なぜ「型（Type）」をダイナミックに知る必要があるのか？
通常、オブジェクト指向プログラミングでは、共通の親クラスやインターフェースを定義し、そのメソッドを呼び出すことで「中身が何であるか」を意識せずに処理します（これがポリモーフィズムですね）。
しかし、実務の現場ではこんなシチュエーションに出くわします。
- 外部から `Object` 型のデータが雑多に飛んでくる（プラグイン構造やJSONのデシリアライズなど）
- 画面のコントロールリストから特定の入力部品だけを抜き出してバリデーションしたい
- ログ出力の際、特定のクラスの時だけ詳細なプロパティをダンプしたい
こういうとき、「このオブジェクト、本当は何者なんだ？」と実行時（Runtime）に正体を暴く必要があるのです。そのための強力な武器が `TypeOf…Is` と `GetType` です。
—
2. 判定の二大巨頭：`TypeOf…Is` と `GetType` の使い分け
まずは、それぞれの特徴と「現場での正しい立ち位置」を整理しておきましょう。
① `TypeOf…Is` 演算子：スマートな「安全確認」
オブジェクトが特定の型（あるいはその派生型）であるかを `True` / `False` で返します。if文との相性が抜群に良く、実務で最も登場回数が多い主役です。
② `GetType` 演算子：厳密な「戸籍調べ」
型そのもの（`System.Type` オブジェクト）を取得します。継承関係を無視して「完全にその型と一致するか」を厳密に比較したいときに使います。
—
3. 実践！現場で使えるコードパターン
百聞は一見にしかず。GUIフォームやデータ処理を想定した、実務的なコードを見てみましょう。様々な型が混ざったリストを安全に処理するサンプルです。
Imports System
Module TypeCheckSample
Sub Main()
‘ さまざまな型のオブジェクトが混ざった雑多なリスト（Object型）
Dim items As Object() = {
“こんにちは、VB.NETの世界へ！”,
42,
DateTime.Now,
New System.Windows.Forms.Button()
}
Console.WriteLine(“=== オブジェクトの型判定と処理を開始します ===”)
For Each item As Object In items
ProcessItem(item)
5 Next
Console.ReadLine()
End Sub
”’
”’
Sub ProcessItem(obj As Object)
‘ 1. 何も入っていない（Nothing）場合のガード
If obj Is Nothing Then
Console.WriteLine(“[スキップ] オブジェクトがNothingです。”)
Return
End If
‘ 2. TypeOf…Is を使ったスマートな型判定とパターンマッチング
If TypeOf obj Is String Then
‘ String型であることが判明したので、安全にキャストして文字列操作
Dim str As String = DirectCast(obj, String)
Console.WriteLine($”[文字列検知] 文字数: {str.Length} -> contenido: {str}”)
ElseIf TypeOf obj Is Integer Then
‘ Integer型の場合
Dim num As Integer = CInt(obj)
Console.WriteLine($”[数値検知] 2倍の値にします: {num 2}”)
ElseIf TypeOf obj Is DateTime Then
‘ DateTime型の場合
Dim dt As DateTime = DirectCast(obj, DateTime)
Console.WriteLine($”[日時検知] 本日は何曜日？: {dt.DayOfWeek}”)
Else
‘ 3. GetTypeを使った完全一致の厳密な判定（例：特定のクラス単体を弾く場合など）
Dim targetType As Type = obj.GetType()
Console.WriteLine($”[その他] 未知の型が検出されました。完全修飾名: {targetType.FullName}”)
End If
End Sub
End Module
コードのここがポイント！
- `DirectCast(obj, String)`: 型が保証された後に安全にキャスト（型変換）を行っています。これにより、実行時エラー（`InvalidCastException`）の恐怖から解放されます。
- `Nothing` のガード: 型判定を行う前に `Nothing` チェックを忘れないのが、トラブルを未然に防ぐシニアエンジニアの流儀です。
—
4. 陥りやすい罠：パフォーマンスと設計のアンチパターン
ここで少し、裏側の仕組み（アーキテクチャ）の話をしましょう。
「型判定が便利だから」といって、コードのあちこちに `TypeOf…Is` を散りばめると、「オブジェクト指向の破壊」という深刻なバグの温床になります。
- アンチパターンの例:
クラスA、クラスB、クラスCごとに `If TypeOf … Is …` で処理を分岐しまくるコード。
これをしてしまうと、新しいクラスDを追加したときに、システム全体の分岐処理をすべて書き直すハメになります（Open-Closed原則の違反）。
- 正しいアプローチ:
基本はポリモーフィズム（オーバーライドやインターフェース）に任せ、「どうしても型が予測できない外部データの取り込み口」や「汎用的なログ・シリアライズ処理」の局所的な場面に限定して `TypeOf…Is` や `GetType` を使いましょう。
—
まとめ：ここをクリアすれば、VB.NETの基本はバッチリ！
今回は、`GetType` と `TypeOf…Is` を使った実行時型情報の制御について解説しました。
- `TypeOf obj Is ◯◯`: 安全かつ柔軟にオブジェクトの系譜を判定する（迷ったらまずはこれ！）。
- `obj.GetType()`: 型のアイデンティティを厳密に暴く。
- 過剰な型判定は避け、オブジェクト指向の美しさとバランスを取る。
この2つの演算子を自由自在に操れるようになると、APIのレスポンス解析や、動的なコントロール制御など、現場で「おっ、こいつデキるな」と思われるコードが書けるようになります。
基礎から本質まで、一歩一歩確実に自分のものにしていきましょう。あなたのVB.NETライフを、これからも心から応援しています！
