【VB.NET極意】「GetType」と「TypeOf」の境界線：堅牢な型判定がバグを殺す
業務自動化の現場において、最も恐ろしいのは「想定外の型」が迷い込み、実行時に予期せぬ例外を吐くことだ。Excelのセルから読み込んだ値、データベースから取得したオブジェクト。これらは皆、君たちのプログラムにとって「未知の異物」になり得る。
今回は、VB.NETにおける「型チェックの鉄則」を伝授する。適当なキャスト（型変換）はバグの温床だ。なぜ `GetType()` と `TypeOf…Is` を使い分ける必要があるのか、その本質を叩き込んでほしい。
—
1. 概念の整理：静的な型 vs 動的な型
まず、この2つの演算子の「性格」を理解しなければならない。
- `TypeOf…Is`: 「そのオブジェクトは、その型、またはその派生型か？」を問う。多態性（ポリモーフィズム）を扱う際に使う。
- `GetType()`: 「そのオブジェクトの型そのものは何か？」を問う。厳密に型の一致を確認する際に使う。
現場の人間が犯す最大のミスは、継承関係にあるクラスに対して `GetType()` を使い、本来受け入れ可能なはずの派生クラスを「型不一致」として弾いてしまうことだ。
—
2. 実践レシピ：安全な型判定とダウンキャスト
ファイル操作やDB連携を行うツールでは、`Object`型でデータを受け取ることが多々ある。その際、以下の「安全な型チェックパターン」をテンプレートとして定着させろ。
推奨される実装例（SafeCastパターン）
Public Sub ProcessData(input As Object)
‘ 1. TypeOf を使って多態的にチェック（継承関係を考慮する）
If TypeOf input Is String Then
‘ 安全なダウンキャスト：DirectCastは型が確定している時に使う
Dim strValue As String = DirectCast(input, String)
Console.WriteLine($”文字列データ: {strValue.Length}文字”)
ElseIf TypeOf input Is Integer Then
Dim intValue As Integer = DirectCast(input, Integer)
Console.WriteLine($”数値データ: {intValue 100}”)
Else
‘ 期待しない型が来た場合のガード節
‘ ここで例外を投げるか、ログを出力して処理を中断する
Throw New ArgumentException(“処理対象外の型が渡されました。”)
End If
End Sub
なぜ `DirectCast` なのか？
よく `CType` を使う者がいるが、`CType` は変換の柔軟性が高すぎる。一方で `DirectCast` は「型が一致していないと例外を投げる」という、「失敗を早期に検知する」設計思想に基づいている。業務自動化ツールにおいて、中途半端な変換でデータが化けるより、即座にエラーで止まるほうが保守コストは圧倒的に低い。
—
3. なぜ `GetType()` を使ってはいけない場面があるのか
`GetType()` は「型が完全に一致（イコール）」であることを要求する。例えば、君が「`Control` 型のコレクション」を扱っている場合、`Button` も `TextBox` も `Control` の派生クラスだ。
ここで `TypeOf … Is Control` を使えば、どちらもTrueになる。しかし `input.GetType Is GetType(Control)` と書くと、派生クラスである `Button` は「False」になる。
この「型チェックの厳しすぎ」が、将来的な機能拡張を阻害する。
「ボタンもテキストボックスも処理したい」という要件に対し、コードを二重に書く羽目になるからだ。
—
4. プロの現場で生き残るための「鉄則」
現場でバグを埋め込まないために、以下の3点を心に刻め。
1. 「Object」で受け取った瞬間が勝負: 外部（Excel, CSV, DB）からデータを受け取った直後に型を判定し、適切な型へ変換（キャスト）すること。その後のロジック内で何度も型チェックを行うのは設計が負けている証拠だ。
2. `TryCast` の活用: 変換に失敗しても良い（nullを返して判定したい）場合は `TryCast` を使え。例外を発生させず、スマートにnull判定へ持ち込める。
- `Dim myObj = TryCast(input, MyClass)`
- `If myObj IsNot Nothing Then …`
3. ダウンキャストは最小限に: クラス設計の段階で、インターフェースを適切に定義し、型判定そのものを減らす努力をせよ。判定ロジックが多いコードは、コードそのものが「腐敗」しているサインだ。
—
まとめ
- `TypeOf…Is` は、「こいつは俺の処理できる仲間か？」という多態的なチェックに使う。
- `GetType()` は、「こいつは紛れもなくこの型そのものか？」という厳密な一致確認に使う。
- `DirectCast` で即座に型を固定し、安全な型安全性を確保する。
「動けばいい」というコードは、数ヶ月後の自分を苦しめる。型という概念を制する者は、VB.NETでの大規模な自動化ロジックを自在に制御できる。
さあ、今すぐ君のコードを見返し、曖昧なキャストを「型安全な設計」へとリファクタリングするんだ。それがプロのエンジニアの流儀だ。
