VB.NETで「並び替えの達人」になる：`IComparable(Of T)`でカスタムオブジェクトを操る
こんにちは。現場の最前線でコードを書き続けていると、ふと壁にぶつかる瞬間がありますよね。「この独自に作ったクラス、どうしてListの`Sort`メソッドで並び替えられないんだろう？」と。
Excel VBAの「マクロの記録」から一歩踏み出し、VB.NETという強力な武器を手に取った皆さん。ここを乗り越えれば、あなたはもう初心者ではありません。今日は、「オブジェクトに自らの順序を教え込む」という、極めて実務的なテクニックを伝授します。
—
なぜ、そのままでは並び替えられないのか？
例えば、`Employee`（社員）クラスを作ったとしましょう。`Name`（名前）と`Salary`（給与）プロパティを持つこのクラスを、`List(Of Employee)`に入れて`Sort()`を呼んでも、コンパイラはこう言います。
> 「このオブジェクトの、何を基準に順番を決めればいいのかわからない！」
数値や文字列なら比較のルールが決まっていますが、あなたの作ったクラスは「未知のデータ」です。そこで登場するのが、.NET Frameworkが用意した「比較の契約書」、`IComparable(Of T)` インターフェイスです。
—
ステップ1：IComparable(Of T) を実装する
クラスに「私は比較可能です」と宣言させ、そのルールを記述します。
Public Class Employee
Implements IComparable(Of Employee) ‘ 比較契約を締結する
Public Property Name As String
Public Property Salary As Integer
‘ IComparableが要求する唯一のメソッド
Public Function CompareTo(other As Employee) As Integer Implements IComparable(Of Employee).CompareTo
‘ 他のオブジェクトが空なら、自分の方が大きいとみなす
If other Is Nothing Then Return 1
‘ 給与(Salary)を基準に昇順で並び替えるロジック
‘ 戻り値: 負の値(自分の方が小さい), 0(同じ), 正の値(自分の方が大きい)
Return Me.Salary.CompareTo(other.Salary)
End Function
End Class
なぜこの書き方なのか？（エンジニアの視点）
ここで重要なのは、`Return Me.Salary.CompareTo(other.Salary)` という記述です。
VB.NETの型（IntegerやStringなど）には、すでに`CompareTo`メソッドが組み込まれています。これを利用することで、車輪の再発明をせず、最も効率的かつ安全に比較処理を記述できるのです。
—
ステップ2：LINQとSortで自由自在に使う
実装ができれば、あとは魔法のように動きます。
Dim staffList As New List(Of Employee) From {
New Employee With {.Name = “佐藤”, .Salary = 300000},
New Employee With {.Name = “鈴木”, .Salary = 450000},
New Employee With {.Name = “田中”, .Salary = 250000}
}
‘ 1. List.Sortメソッドを使う（IComparableが定義されているのでこれだけでOK）
staffList.Sort()
‘ 2. LINQを使って「名前順」など、別の基準で即座に並び替える
‘ インターフェイスの実装に関わらず、柔軟にソート可能
Dim sortedByName = staffList.OrderBy(Function(e) e.Name).ToList()
—
陥りやすい罠と解決策
実務でよくあるのが、「異なる基準で並び替えたい」というケースです。例えば、「今日は給与順、明日は名前順」という要件ですね。
`IComparable`はクラスの「デフォルトの順序」を定義するものですが、これに縛られすぎると柔軟性が失われます。そんな時は、`IComparer(Of T)` という別のインターフェイスを実装したクラスを別途作るのが正解です。
‘ 名前順で比較するためのクラス
Public Class NameComparer
Implements IComparer(Of Employee)
Public Function Compare(x As Employee, y As Employee) As Integer Implements IComparer(Of Employee).Compare
Return x.Name.CompareTo(y.Name)
End Function
End Class
‘ 使い分け
staffList.Sort(New NameComparer())
—
最後に：ここをクリアすれば、もう怖くない
この「インターフェイスを実装して振る舞いを拡張する」という考え方は、VB.NETのオブジェクト指向の核心です。
1. `IComparable`：クラスの「自然な順序」を定義する。
2. `IComparer`：特定の条件下での「別の順序」を定義する。
この2つを使い分けることができれば、大規模な業務システムのデータ処理も、まるでパズルを解くように軽やかにこなせるようになります。
最初は少し難しく感じるかもしれません。でも、一度自分の手で実装してみれば、`.NET`の世界がグッと広がるはずです。大丈夫、ここまで読んだあなたなら必ず習得できます。
さあ、エディタを開いて、あなたのクラスに「順序の魂」を吹き込んでみてください。応援しています！
