【実務・中級編】初心者向け：VB.NETの「GetType()」を用いたリフレクションの第一歩：型情報からプロパティ一覧を取得する基本 – Visual Basic (VB / VB.NET)解析バイブル

VB.NETの「GetType()」で極めるリフレクション：動的プロパティ取得による業務自動化ツールの堅牢化

業務効率化ツールや社内システムを開発していると、避けては通れない「変化」に直面する。
「出力するCSVの列が急に増えた」「データベースのテーブル設計が変更され、エンティティのプロパティが変わった」といった事態だ。そのたびに、愚直に手書きしたマッピングコードを1行ずつ修正し、再ビルドを繰り返すのは、プロフェッショナルとしての仕事とは言えない。

こうした「仕様変更に引きずられる泥臭い手作業」をゼロにする強力な武器が、VB.NETに備わっている「リフレクション（Reflection）」である。

今回は、リフレクションの入り口であり、実務で最も多用される「`GetType()`を用いたプロパティ一覧と型の動的取得」をテーマに解説する。単に動くコードを示すだけではない。実務の厳しい本番環境に耐えうる「堅牢性」と「パフォーマンス」を両立させた、プロフェッショナル仕様のコード設計を伝授しよう。

—

1. なぜ「リフレクション」が必要なのか？

リフレクションとは、一言で言えば「プログラム自身が、自分自身の構造（型、メソッド、プロパティなど）を覗き見る技術」だ。

通常、VB.NETのような静的型付け言語では、コンパイル時にすべての型やプロパティが決定している必要がある。しかし、実務では以下のような「動的な処理」が求められる局面が多々ある。

オブジェクトの内容を自動的にCSVやExcelへ出力する汎用ログ機能
データベースのレコードを、自動的に対応するクラスのプロパティにマッピングする処理
画面の入力項目と、データ保持用クラス（DTO）の値を動的に同期する処理

これらを、プロパティ名が変わるたびに書き直すのではなく、「プログラムが勝手にクラスを解析し、存在するプロパティを自動で処理する」ように仕向ける。これこそが、リフレクションがもたらす業務効率化の極致である。

—

2. `GetType()`の２つのアプローチ：インスタンスから得るか、型から得るか

VB.NETでリフレクションを開始する起点となるのが `Type` オブジェクトの取得だ。これには大きく分けて2つのアプローチがある。この違いを理解していないと、設計時にバグを誘発する。

① インスタンスから取得する：`Object.GetType()`

すでに生成されているオブジェクト（インスタンス）の実行時型情報を取得する。

Dim customer As New CustomerInfo()
Dim t As Type = customer.GetType()

用途: 動的に渡されたオブジェクトの「実際の型」を解析したい場合。
注意点: インスタンスが `Nothing`（Null）の場合、`NullReferenceException` が発生する。

② 型名から直接取得する：`GetType(型名)`

クラス名（型）から直接、静的に型情報を取得する。

Dim t As Type = GetType(CustomerInfo)

用途: インスタンス化する前に、クラスの構造そのものを定義として参照したい場合。
注意点: コンパイル時点でその型がプロジェクト内に存在（参照可能）している必要がある。

—

3. 実務でリフレクションを使う際の「3つの大罪」と対策

リフレクションは魔法の杖ではない。強力すぎるがゆえに、安易な実装はシステムを崩壊させる。プロジェクトリーダーとして、以下の3点には絶対に妥協してはならない。

罪①：パフォーマンスの無視（キャッシュの欠如）

リフレクションは、メタデータを探索するために内部で重い処理を行う。ループ処理の中で何万回も `GetType()` や `GetProperties()` を呼び出すと、処理速度は劇的に低下する。

対策: 一度取得した `PropertyInfo` のリストは、ディクショナリ等にキャッシュ（一時保存）して再利用する設計にする。

罪②：Null（Nothing）の考慮漏れ

オブジェクトのプロパティ値が `Nothing` の場合、その値を文字列に変換しようと `.ToString()` を呼んだ瞬間にシステムはクラッシュする。

対策: 値を取り出す際は必ず `Nothing` チェックを行い、安全なデフォルト値（空文字など）に置換する。

罪③：アクセス権限（BindingFlags）の誤解

デフォルトの `GetProperties()` は、「パブリック（Public）なインスタンスプロパティ」しか取得しない。非公開（Private）な情報や静的（Shared）なプロパティを取得したい場合は、明示的に `BindingFlags` を指定する必要がある。

—

4. 実戦向けプロダクションコード例：汎用オブジェクトダンプツール

それでは、実務でそのままログ出力やデータ連携のベースとして使える、極めて堅牢なリフレクションの実装例を示す。

このコードは、任意のオブジェクトを受け取り、そのオブジェクトが持つすべてのプロパティ名、データ型、そして現在設定されている値を動的に抽出し、フォーマットされたテキストとして出力するヘルパークラスである。

Imports System.Reflection
Imports System.Text

”’

”’ オブジェクトの構造を動的に解析するための堅牢なリフレクションヘルパー
”’

Public NotInheritable Class ObjectAnalyzer

‘ 外部からのインスタンス化を禁止
Private Sub New()
End Sub

”’

”’ 対象オブジェクトのパブリックプロパティ名、型、値を動的に解析し、文字列としてダンプします。
”’

”’ 解析対象のオブジェクト（Nothing許容） ”’ 解析結果のテキスト。対象がNothingの場合は特定の警告メッセージを返します。
Public Shared Function DumpProperties(target As Object) As String
If target Is Nothing Then
Return “[Warning] 解析対象のオブジェクトが Nothing です。”
End If

Dim sb As New StringBuilder()
Dim targetType As Type = target.GetType()

‘ 解析開始ログ
sb.AppendLine($”— Object Dump Start (Type: {targetType.FullName}) —“)

Try
‘ 1. 対象クラスのパブリックなインスタンスプロパティをすべて取得
‘ ※実務ではBindingFlagsを明示的に指定して、意図しないメンバの混入を防ぐ
Dim properties As PropertyInfo() = targetType.GetProperties(
BindingFlags.Public Or BindingFlags.Instance
)

If properties.Length = 0 Then
sb.AppendLine(” (有効なパブリックプロパティが存在しません)”)
Else
For Each prop As PropertyInfo In properties
‘ 2. インデックス付きプロパティ（Item等）は、引数が必要なためリフレクションではスキップする
If prop.GetIndexParameters().Length > 0 Then
Continue For
End If

‘ 3. プロパティ名とデータ型の取得
Dim propName As String = prop.Name
Dim propType As Type = prop.PropertyType

‘ 4. 安全な値の取得（読み取り不可能なプロパティの考慮）
Dim propValueStr As String = String.Empty
If prop.CanRead Then
Dim rawValue As Object = prop.GetValue(target, Nothing)

‘ Null（Nothing）の安全なハンドリング
If rawValue Is Nothing Then
propValueStr = “[Nothing]”
Else
propValueStr = rawValue.ToString()
End If
Else
propValueStr = “[Write-Only / Read不可]”
End If

‘ 5. 結果を整形して蓄積
sb.AppendLine($” Property: {propName,-20} | Type: {propType.Name,-15} | Value: {propValueStr}”)
Next
End If

Catch ex As SecurityException
sb.AppendLine($”[Error] セキュリティ制限によりリフレクションが拒否されました: {ex.Message}”)
Catch ex As Exception
sb.AppendLine($”[Error] 解析中に予期せぬ例外が発生しました: {ex.Message}”)
End Try

sb.AppendLine(“— Object Dump End —“)
Return sb.ToString()
End Function

End Class

このヘルパーを使用するテストコード

上記の解析ツールがどれほど強力に機能するか、以下のテスト用エンティティクラスを用いて実際に動かしてみよう。

‘ テスト用のエンティティクラス（顧客情報）
Public Class CustomerInfo
Public Property CustomerId As Integer
Public Property CustomerName As String
Public Property Email As String
Public Property RegisterDate As DateTime
Public Property IsActive As Boolean
‘ 読み取り専用プロパティも定義
Public ReadOnly Property StatusSummary As String
Get
Return If(IsActive, “有効な会員です”, “無効な会員です”)
End Get
End Property
End Class

‘ 実行プログラム本体
Module Program
Sub Main()
‘ 1. テストデータの作成
Dim clientData As New CustomerInfo() With {
.CustomerId = 99824,
.CustomerName = “神田総合開発”,
.Email = Nothing, ‘ あえてNothing（Null）を混入させる
.RegisterDate = New DateTime(2023, 10, 25),
.IsActive = True
}

‘ 2. リフレクションヘルパーによる動的解析の実行
Console.WriteLine(“動的リフレクションを実行します…”)
Dim dumpResult As String = ObjectAnalyzer.DumpProperties(clientData)

‘ 3. 結果の出力
Console.WriteLine(dumpResult)
Console.ReadLine()
End Sub
End Module

実行結果（コンソール出力）

—

5. プロフェッショナルが解説する「ここが設計の肝だ」

提示したコード例には、実務でバグを起こさないためのエッセンスが凝縮されている。

① `prop.GetIndexParameters().Length > 0` のフィルタリング

C#やVB.NETにおけるコレクションクラス等には、「インデクサ（VB.NETではデフォルトプロパティ）」が存在する。これは内部的には `Item` という名前のプロパティとして扱われるが、呼び出しに引数（インデックス番号など）を要求するため、単に `GetValue(target, Nothing)` を呼ぶと例外（TargetParameterCountException）でクラッシュする。
このコードでは、引数を要求するプロパティを事前に検知してスキップしている。

② `prop.CanRead` による事前検証

プロパティには、`WriteOnly`（書き込み専用）のものも定義できる。読み取り権限がないプロパティに対して値を取得しようとすると例外が発生するため、事前に `CanRead` プロパティで安全性を確認している。

③ 徹底した `Nothing` ハンドリング

`Email` プロパティのように、参照型で値が設定されていない場合でも、`rawValue Is Nothing` を検知して `[Nothing]` という安全な代替文字列に置換している。これにより、実用に耐えうる堅牢なログ出力を保証している。

—

まとめ：動的アプローチを「武器」にするために

リフレクションと `GetType()` は、VB.NETという静的な言語に「柔軟性」という大いなる翼を授ける。
今回紹介した動的プロパティ取得を応用すれば、CSV出力処理やデータベースへの一括インサート処理などを完全に共通化でき、今後の仕様変更に対して「コードを1行も書き直す必要がない」という究極の保守性を手に入れることができる。

しかし、その強力さゆえに、パフォーマンスコストや型安全性のトレードオフがあることを忘れてはならない。
アーキテクトとしての自覚を持ち、例外処理やパフォーマンス設計（キャッシュの導入など）を怠らず、美しく堅牢なシステムを構築してほしい。