vb sortedlist 自定義排序

在 VB.NET 中，可以使用 `SortedList` 对象来存储键/值对，并且可以使用 `Comparer` 对象来自定义排序规则。

以下是一个示例，演示如何使用自定义排序规则对 `SortedList` 进行排序：

' 创建一个自定义排序规则类
Public Class MyComparer
    Implements IComparer

    ' 实现 Compare 方法，用于比较两个对象的大小
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
        Implements System.Collections.IComparer.Compare

        ' 将 x 和 y 转换为需要比较的类型
        Dim xValue As String = CType(x, KeyValuePair(Of String, Integer)).Key
        Dim yValue As String = CType(y, KeyValuePair(Of String, Integer)).Key

        ' 使用 String.Compare 方法进行比较，并返回比较结果
        Return String.Compare(xValue, yValue)

    End Function
End Class

' 使用自定义排序规则对 SortedList 进行排序
Dim mySortedList As New SortedList(New MyComparer())

' 添加键/值对
mySortedList.Add("B", 2)
mySortedList.Add("C", 3)
mySortedList.Add("A", 1)

' 遍历 SortedList，输出键/值对
For Each kvp As KeyValuePair(Of String, Integer) In mySortedList
    Console.WriteLine(kvp.Key & " - " & kvp.Value)
Next

在上面的示例中，我们创建了一个名为 `MyComparer` 的自定义排序规则类，并实现了 `IComparer` 接口中的 `Compare` 方法。在 `Compare` 方法中，我们使用 `String.Compare` 方法对键进行比较，并返回比较结果。

在创建 `SortedList` 对象时，我们将 `MyComparer` 对象作为参数传递，这样就会使用我们自定义的排序规则对键进行排序。

最后，我们遍历 `SortedList` 中的键/值对，输出它们的值。