泛型排序 (VB.NET)
泛型排序 (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("-----------------