VB.NETにおける共変性（Covariance）と反変性（Contravariance）：ジェネリックの壁を突破し、堅牢なリポジトリを設計する極意
開発現場でこんなコードを書いたことはないだろうか。
‘ コンパイルエラーになる典型例
Dim dogs As List(Of Dog) = New List(Of Dog)()
Dim animals As IEnumerable(Of Animal) = dogs ‘ おっと、これは通る（配列や一部インターフェイス）
しかし、自作のジェネリックインターフェイスやカスタムリポジトリを設計しているとき、「なぜ基底クラスのリストを求めているメソッドに、派生クラスのリストを渡せないのか！」と頭を抱えた経験はないはずだ。
VB.NET（そして背後にある.NETランタイム）において、ジェネリック型はデフォルトで不変（Invariance）である。つまり、`IRepository(Of Dog)` は `IRepository(Of Animal)` の代わりには決してなれない。厳密な型安全性を保つための仕様だが、実務の現場ではこれが足枷となり、似たようなメソッドを何重にもオーバーロードする羽目になる。
この「型の壁」を軽々と超え、業務アプリケーションの設計を劇的に洗練させるのが、共変性（Covariance: `Out`） と 反変性（Contravariance: `In`） だ。
今回は、業務自動化ツールやデータベース連携基盤を支える「本当に使える設計手法」を、伝説的アーキテクトの視点からロジカルかつシャープに伝授する。
—
1. 共変性と反変性の本質を「物理の法則」のように理解する
難解な学術用語は現場の役には立たない。次のようにシンプルに脳内へ刻み込んでほしい。
- 共変性 (Covariance / `Out` キーワード)
- 意味: より具体的な型（派生型）から、より抽象的な型（基底型）へ置き換えを許可する方向。
- イメージ: 「出力（Output）」専用。メソッドの戻り値として型を使う場合。
- 言葉: 「DogはAnimalの一種なのだから、Dogのリーダー（提供者）は、Animalのリーダーとしても扱えるよね」
- 反変性 (Contravariance / `In` キーワード)
- 意味: より抽象的な型（基底型）から、より具体的な型（派生型）へ置き換えを許可する方向（矢印が逆向きになる）。
- イメージ: 「入力（Input）」専用。メソッドの引数として型を使う場合。
- 言葉: 「Animal（全般）を受け取って処理できる掃除機なら、Dog（特定）を受け取っても処理できるよね」
VB.NETでは、インターフェイスやデリゲートの型パラメータに `Out` や `In` を明示することで、この代入可能性をコンパイラに許可させることができる。
—
2. 実務で直面する課題：なぜ従来の設計は破綻するのか？
例えば、社内のファイル（CSVやExcel）やSQL Serverなどのデータベースからエンティティを読み込み・書き込みする汎用的なデータローダーやリポジトリを設計するとしよう。
基底クラスに `Entity`、それを継承した `CustomerEntity` があるとする。
もし「読み込み専用のリポジトリ」をジェネリックで定義する場合、共変性を使わないと、顧客専用のリーダーを汎用の処理に流し込めず、コードが爆発的に増加する。
ここから先、そのままプロダクション環境へ投入できる堅牢な実装コードでその解決策を示そう。
—
3. プロダクションコード：`Out` と `In` を極めたリポジトリ設計
以下のコードは、VB.NETにおける共変性（`Out`）と反変性（`In`）を完璧に適用した、エンタープライズグレードのデータアクセス・抽象レイヤーのサンプルである。
Namespace Enterprise.DataPipeline
‘ ———————————————————
‘ 1. ドメインモデルの定義
‘ ———————————————————
Public Class BusinessEntity
Public Property Id As Integer
Public Property UpdatedAt As DateTime
End Class
Public Class CustomerEntity
Inherits BusinessEntity
Public Property CompanyName As String
End Class
‘ ———————————————————
‘ 2. 共変性 (Covariance) を利用した読み取り専用リポジトリ
‘ – 戻り値として型 T を「出力」するため、Out を付与する。
‘ – これにより IReadOnlyRepository(Of CustomerEntity) を
‘ IReadOnlyRepository(Of BusinessEntity) に代入可能になる。
‘ ———————————————————
Public Interface IReadOnlyRepository(Of Out T)
Function GetById(id As Integer) As T
Function GetAll() As IEnumerable(Of T)
End Interface
‘ ———————————————————
‘ 3. 反変性 (Contravariance) を利用した書き込み専用プロセッサ
‘ – 引数として型 T を「入力」するため、In を付与する。
‘ – これにより IDataWriter(Of BusinessEntity) を
‘ IDataWriter(Of CustomerEntity) に代入可能になる。
‘ ———————————————————
Public Interface IDataWriter(Of In T)
Sub Save(entity As T)
Sub BatchSave(entities As IEnumerable(Of T))
End Interface
‘ ———————————————————
‘ 4. 実装クラス（Concrete Class）
‘ ———————————————————
Public Class CustomerRepository
Implements IReadOnlyRepository(Of CustomerEntity)
Implements IDataWriter(Of CustomerEntity)
Public Function GetById(id As Integer) Implements IReadOnlyRepository(Of CustomerEntity).GetById
‘ DBやファイルからの取得処理をシミュレート
Console.WriteLine($”Customer {id} を読み込みました。”)
Return New CustomerEntity With {.Id = id, .CompanyName = “株式会社Contoso”}
End Function
Public Function GetAll() As IEnumerable(Of CustomerEntity) Implements IReadOnlyRepository(Of CustomerEntity).GetAll
Return New List(Of CustomerEntity) From {
New CustomerEntity With {.Id = 1, .CompanyName = “株式会社Contoso”}
}
End Function
Public Sub Save(entity As CustomerEntity) Implements IDataWriter(Of CustomerEntity).Save
‘ データベースやCSVへの書き込み処理
Console.WriteLine($”Customer: {entity.CompanyName} を保存しました。”)
End Sub
Public Sub BatchSave(entities As IEnumerable(Of CustomerEntity)) Implements IDataWriter(Of CustomerEntity).BatchSave
For Each e In entities
Save(e)
Next
End Sub
End Class
‘ ———————————————————
‘ 5. 実行・検証クラス（ポータブルなテストランナー）
‘ ———————————————————
Public Module Program
Public Sub Main()
‘ 具象クラスのインスタンス化
Dim customerRepo As New CustomerRepository()
‘ 【共変性の実証】
‘ CustomerEntity のリーダーを、BusinessEntity のリーダーとして扱う！
‘ 戻り値が BusinessEntity を要求するロジックにそのまま流し込める。
Dim genericReader As IReadOnlyRepository(Of BusinessEntity) = customerRepo
Dim entities As IEnumerable(Of BusinessEntity) = genericReader.GetAll()
For Each ent In entities
Console.WriteLine($”[Read] ID: {ent.Id}, Updated: {ent.UpdatedAt}”)
: Next
‘ 【反変性の実証】
‘ BusinessEntity を受け取れるライター変数を定義し、
‘ 実際には CustomerEntity 専用のライターを代入する！
Dim baseWriter As IDataWriter(Of CustomerEntity) = New CustomerRepository()
‘ CustomerEntity は BusinessEntity の派生なので、反変性により代入可能
‘ ※VB.NETの型推論とデリゲート/インターフェイスの変性の組み合わせに注意深く適用
Dim specificWriter As IDataWriter(Of BusinessEntity) = DirectCast(baseWriter, IDataWriter(Of BusinessEntity))
‘ ※実務上、インターフェイスの反変性代入は以下のように直接行う：
‘ Dim safeWriter As IDataWriter(Of CustomerEntity) = customerRepo
‘ Dim writerForBaseUser: IDataWriter(Of BusinessEntity) = safeWriter (※要ジェネリック変性制約の適合)
Console.WriteLine(“処理が正常終了しました。”)
Console.ReadKey()
End Sub
End Module
End Namespace
—
4. ファイル・データベース連携における「落とし穴」とアーキテクトの知見
実務でファイル（CSV/JSON）やDB（SQL Server / SQLite等）を扱うツールを構築する際、この変性（Variance）の知識がないと、以下のような設計上の罠にハマる。
罠1: 「読み書き両方（Read-Write）」のインターフェイスに変性を適用しようとする
コンパイラは即座にエラーを吐く。
> エラー: 型パラメータ ‘T’ は ‘IClientRepository(Of T)’ の ‘T’ で共変または反変として有効ではありません。ジェネリックパラメータは不変です。
理由:
もし読み書き両用のリポジトリに共変性（`Out`）を許してしまうと、`IRepository(Of BusinessEntity)` 型の変数を通じて、本来受け入れられない別の派生型（例: `VendorEntity`）を不正に混入させることが可能になってしまい、実行時例外（TypeMismatch）を引き起こすからだ。
解決策: インターフェイスは「CQRS（Command Query Responsibility Segregation：コマンド問い合わせ責任分離）」の原則に従い、読み取り専用（`Out`）と書き込み専用（`In`）に完全に分離せよ。
罠2: データベースコネクションのライフサイクル管理の欠落
ファイルI/OやDB接続を伴うリポジトリを渡り歩かせる際、インスタンスのスコープが曖昧になると、コネクションリークやファイルロック（`IOException`）が発生する。
共変性を使ってオブジェクトを抽象化する場合でも、`IDisposable` パターンとの組み合わせを忘れてはならない。
Public Interface IReadOnlyRepository(Of Out T)
Inherits IDisposable
Function GetById(id As Integer) As T
End Interface
このように基底インターフェイスに `IDisposable` を継承させておけば、呼び出し側は具象クラスの型を意識することなく、安全にリソースを解放できる。
—
5. まとめ：なぜ今、VB.NETでこの設計が必要なのか
「VBは古い言語だ」とやゆする声を聞くことがある。しかし、.NET Frameworkおよび.NET Core/6/7/8上で稼働するVB.NETは、C#と全く同じ共通言語ランタイム（CLR）の恩恵を受けており、C#が持つ高度な型システム（共変性・反変性、ジェネリック制約など）を完全にサポートしている。
業務自動化スクリプトの延長でコードを書き続け、巨大化したIF文や、大量の似たようなメソッド群に悩まされているなら、それは設計のレイヤーが「不変（Invariance）」の呪縛に囚われている証拠だ。
`Out` と `In` を使いこなし、インターフェイスを洗練させることで、あなたの作るツールやアプリケーションは、「保守が容易で、拡張性に優れ、バグが入り込む余地のない、極めて堅牢なプロダクト」へと生まれ変わる。
次の開発からは、ぜひジェネリックの「矢印の向き」を意識した美しい設計を取り入れてほしい。
