VB.NETにおける `ICloneable` の幻影と、真のディープコピー実装戦略
レガシーシステムからモダンな.NET環境への移行、あるいは長年稼働し続ける基幹システムの保守において、オブジェクトの複製（コピー）は避けて通れない命題である。
特に、業務ロジックが複雑化し、DTO（Data Transfer Object）やドメインモデルが多重のネスト構造を持つようになった現代において、「参照の共有」が引き起こす意図しない副作用――いわゆる「エイリアシング・バグ」は、幾多のエンジニアを苦しめてきた。
VB.NET初学者が真っ先に飛びつくのが `ICloneable` インターフェイスだが、実務の最前線において、このインターフェイスは「百害あって一利なし」のアンチパターンと言っても過言ではない。
本稿では、なぜ `ICloneable` が実務で使い物にならないのか、そして参照型の階層構造を持つオブジェクトを完全に隔離し、パフォーマンスと安全性を両立させたディープコピーをどう実装すべきか、その極限の知見を授ける。
—
1. なぜ `ICloneable` は実務で「封印」すべきなのか？
.NET Frameworkの黎明期から存在する `ICloneable` には、設計上の致命的な欠陥が一つある。それは、「返り値の型が `Object` であり、それがシャローコピー（浅いコピー）なのかディープコピー（深いコピー）なのかをシグネチャから一切判別できない」という点だ。
‘ 【アンチパターン】ICloneableの実装例
Public Class Order
Implements ICloneable
Public Property OrderId As String
Public Property Details As List(Of OrderDetail)
‘ このCloneメソッドは、Detailsの中身まで複製しているか？外からは絶対に分からない
Public Function Clone() As Object Implements ICloneable
Return Me.MemberwiseClone() ‘ これでは単なるシャローコピー！
End Function
End Class
上記のコードで `MemberwiseClone()` を実行した場合、`OrderId`（String型はイミュータブルなので一見安全だが）や `Details`（List型は参照型）の参照先アドレスだけが複製元と共有される。
結果として、複製された `Order` の `Details` を操作すると、元の `Order` のデータまで破壊されるという、デバッグが極めて困難な不具合を生む。
シニアエンジニアたる者、型安全性を放棄した `ICloneable` に依存してはならない。我々は、明確にディープコピーを保証する独自のアプローチを構築する必要がある。
—
2. 階層構造を持つオブジェクトのディープコピー実装
実務で遭遇する複雑なオブジェクトグラフ（オブジェクトのツリー構造）を完璧に複製するためには、以下の要件を満たす必要がある。
1. 型安全性の確保 (`Object` ではなく具体的な型を返す)
2. 循環参照の検知と回避 (自己参照や相互参照を持つグラフでの無限ループ防止)
3. パフォーマンスの最適化 (不必要なリフレクションの回避、あるいはシリアライゼーションの活用)
ここでは、リフレクションと再帰処理を用いた、最も制御しやすい手動ディープコピーの実装パターンを示す。
実装コード：堅牢なディープコピーエンジン
Imports System
Imports System.Collections.Generic
import System.Reflection
Namespace Enterprise.Core.Utilities
Public NotInheritable Class ObjectCopier
‘ プライベートコンストラクタでインスタンス化を禁止
Private Sub New()
End Sub
”’
”’
Public Shared Function DeepCopy(Of T)(ByVal source As T) As T
If source Is Nothing Then Return Nothing
‘ 循環参照を追跡するためのディクショナリ（参照型のみ）
Dim visited As New Dictionary(Of Object, Object)(New IdentityComparer())
Return DirectCast(DeepCopyRecursive(source, visited), T)
End Function
Private Shared Function DeepCopyRecursive(ByVal obj As Object, ByVal visited As Dictionary(Of Object, Object)) As Object
If obj Is Nothing Then Return Nothing
Dim type As Type = obj.GetType()
‘ 1. プリミティブ型および文字列、イミュータブルな型はそのまま返す
If type.IsPrimitive OrElse type Is GetType(String) OrElse type.IsEnum Then
Return obj
End If
‘ 2. すでにコピー済みのオブジェクトであれば、循環参照を防ぐために既存のコピーを返す
If visited.ContainsKey(obj) Then
Return visited(obj)
End If
‘ 3. 配列の処理
If type.IsArray Then
Dim elementType As Type = type.GetElementType()
Dim sourceArray As Array = DirectCast(obj, Array)
Dim length As Integer = sourceArray.Length
Dim destArray As Array = Array.CreateInstance(elementType, length)
‘ 循環参照マップに一時登録
visited(obj) = destArray
For i As Integer = 0 To length – 1
Dim val As Object = sourceArray.GetValue(i)
destArray.SetValue(DeepCopyRecursive(val, visited), i)
Next
Return destArray
End If
‘ 4. 一般的なクラス（参照型）の処理
‘ デフォルトコンストラクタが存在する前提。リフレクションのコストを抑えるため本来はIL生成やExpression Treesの利用も視野に入れる
Dim clonedObject As Object = Activator.CreateInstance(type, True)
visited(obj) = clonedObject
‘ すべてのフィールド（プライベート含む）を走査してコピー
Dim fields As FieldInfo() = type.GetFields(BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance)
For Each field As FieldInfo In fields
‘ ベースクラスのフィールドも再帰的に処理するため、親階層も遡る
Dim fieldValue As Object = field.GetValue(obj)
field.SetValue(clonedObject, DeepCopyRecursive(fieldValue, visited))
Next
Return clonedObject
End Function
End Class
”’
”’
Friend Class IdentityComparer
Implements IEqualityComparer(Of Object)
Public Shadows Function Equals(x As Object, y As Object) As Boolean Implements IEqualityComparer(Of Object).Equals
Return ReferenceEquals(x, y)
End Function
Public Function GetHashCode(obj As Object) As Integer Implements IEqualityComparer(Of Object).GetHashCode
Return If(obj Is Nothing, 0, obj.GetHashCode())
End Function
End Class
End Namespace
—
3. アーキテクチャの視点：パフォーマンスとメモリ最適化の極意
上記のコードは非常に堅牢であり、どのような複雑なネスト構造であっても正確にコピーを完了する。しかし、シニアエンジニアとしてパフォーマンスの限界についても言及しておかねばならない。
リフレクションの呪縛とJITコンパイル
`FieldInfo.GetValue` および `SetValue` を大量のオブジェクトグラフに対して実行すると、リフレクションのオーバーヘッドがボトルネックとなる。
もしこの処理が、毎秒数千回呼び出される高頻度なバッチ処理や、UIスレッド上のリアルタイム処理であるならば、リフレクションを排除し、`System.Linq.Expressions`（式木）を用いた動的メソッド生成（ILemit）によるアクセサのキャッシュを実装すべきである。
代替アプローチ：シリアライゼーションの活用
オブジェクト構造が純粋なデータホルダー（DTO）である場合、最も手っ取り早く、かつ高速にディープコピーを行う実務的テクニックとして「JSONシリアライゼーション」がある。
Imports System.Text.Json
Public Module FastCopier
”’
”’
Public Function JsonDeepCopy(Of T)(ByVal source As T) As T
‘ シリアライズとデシリアライズをインメモリで行うことで完全に独立したオブジェクトを生成
Dim jsonString As String = JsonSerializer.Serialize(source)
Return JsonSerializer.Deserialize(Of T)(jsonString)
End Function
End Module
【注意点】
このJSON方式は極めてシンプルかつメンテナンス性が高いが、以下の制約事項がある：
- プライベートフィールドやプロパティを持たないものは無視される（パブリックなプロパティ構造に依存）。
- 循環参照が含まれている場合、デフォルトでは `JsonException` がスローされる（設定でループ検出を有効にする必要あり）。
- 内部でマネージヒープ上に一時的な文字列バッファを大量に生成するため、ガベージコレクション（GC）のプレッシャーが高まる。メモリ逼迫環境では注意が必要。
—
4. 総括：現場で選ぶべき最適解
VB.NETにおけるオブジェクトの複製において、「銀の弾丸（シルバー・ブレット）」は存在しない。
- 小規模〜中規模のDTO、保守性を最優先する場合:
`System.Text.Json` を利用したシリアライゼーション方式が、コード量とバグのリスクの観点から最も現実解となる。
- 複雑なドメインモデル、プライベートフィールドの厳密なカプセル化、循環参照が存在する場合:
本稿で示した、`Dictionary(Of Object, Object)` による参照追跡を伴う再帰的リフレクションコピーを適用すべきである。
`ICloneable` という過去の遺物に惑わされることなく、メモリのライフサイクルとオブジェクトの参照関係を完全に掌握した上で、システム要件に最適化されたコピー戦略を構築してほしい。それこそが、レガシーとモダンをつなぐプロフェッショナル・エンジニアの流儀である。
