泛型排序 (VB.NET)
Module _4_Generic_Demo
??? Sub Main()
??????? Dim list As New List(Of Person)
??????? list.AddRange(New Person() {New Person("Ken", 36), New Person("Allen", 56), New Person("Mary", 28)})
??????? Print2(list)
??????? list.Sort()
??????? Print2(list)
??????? list.Sort(New NameComparer)
??????? Print2(list)
??? End Sub
??? Sub Print(ByVal list As List(Of Integer))
??????? For Each i As Integer In list
??????????? Console.WriteLine(i)
??????? Next
??????? Console.WriteLine("--------------------------------------------------")
??? End Sub
??? Sub Print2(ByVal list As List(Of Person))
??????? For Each i As Person In list
??????????? Console.WriteLine(i.Name & " : " & i.Age)
??????? Next
??????? Console.WriteLine("--------------------------------------------------")
??? End Sub
End Module
Class Person
??? ‘Implements IComparable
??? Implements IComparable(Of Person)
??? Public Name As String
??? Public Age As Integer
??? Sub New(ByVal n As String, ByVal a As Integer)
??????? Name = n
??????? Age = a
??? End Sub
??? ‘Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo
??? ‘End Function
??? Public Function CompareTo(ByVal other As Person) As Integer Implements System.IComparable(Of Person).CompareTo
??????? Return Age - other.Age
??????? ‘Return Name.CompareTo(other.Name)
??? End Function
End Class
Class NameComparer
??? ‘Implements IComparer
??? Implements IComparer(Of Person)
??? ‘Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
??? ‘End Function
??? Public Function Compare(ByVal x As Person, ByVal y As Person) As Integer Implements System.Collections.Generic.IComparer(Of Person).Compare
??????? Return x.Name.CompareTo(y.Name)
??? End Function
End Class
如有错误 欢迎指正
原文:大专栏 泛型排序 (VB.NET)