关于Arraylist的Sort方法,有三个重载,都必须保证排序内容满足了Icomparer接口。
关于如何使用,见下面代码:
1 Dim mycompare As New Mycomparerowcells '进行排序 2 paimingarray.Sort(mycompare) 3 4 5 Public Class Mycomparerowcells 6 Implements IComparer 7 8 ' Calls CaseInsensitiveComparer.Compare with the parameters reversed. 9 Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _ 10 Implements IComparer.Compare 11 Return New CaseInsensitiveComparer().Compare(x.cells(10).value, y.cells(10).value) 12 End Function 'IComparer.Compare 13 End Class 'myReverserClass
说明,先建立一个类,该类实现Icomparer接口,并实现其中的Compare方法。