我們要如何使用List(of T)編程，我們需要了解如何部署.NET框架所提供的多種方法，在下面的文章中我們加以分析。我用三個示例演示——使用ForEach, FindAll,和Sort——來闡述同樣列表類的工作原理。

VB.NET對象列表***步是要創建一個同用列表。你可以從多種途徑獲取數據，但是最簡單的方法是添加。文本中，我們會編寫代碼以便為舉例中的集來分類。因此，下面我們就來講講創建集的代碼。首先，我需要一個能代表集中的Bottle的對象。為此而編寫的代碼是完全符合標準的，而且事實上，VB.NET 2008 Express Intellisense會為你寫好大部分的代碼。以下是我的對象：

Public Class Bottle "internalProperties"Public Property Brand() As String  
Public Property Name() As String  
Public Property Category() As String  
Public Property Size() As Decimal  
Public Sub New( _  
End Sub  
End Class  

為了創建集，我需要添加項目：

Dim Cabinet As List(Of Bottle) = _ "New List(Of Bottle)Cabinet.Add(New Bottle( _  
"Castle Creek", _  
"Uintah Blanc", _  
"Wine", 750))  
Cabinet.Add(New Bottle( _  
"Zion Canyon Brewing Company", _  
"Springdale Amber Ale", _  
"Beer", 355))  
Cabinet.Add(New Bottle( _  
"Spanish Valley Vineyards", _  
"Syrah", _  
"Wine", 750))  
Cabinet.Add(New Bottle( _  
"Wasatch Beers", _  
"Polygamy Porter", _  
"Beer", 355))Cabinet.Add(New Bottle( _  
"Squatters Beer", _  
"Provo Girl Pilsner", _  
"Beer", 355))  

所有的這些都是VB.NET1.0中的標準代碼。但是，要通過定義我們自己的Bottle對象來注明。我們會在相同集中的多類型中獲益。

下面我們將介紹VB.NET對象列表 ForEach, FindAll, 和Sort方法。我們使用這些方法的時候，就會發現其中的樂趣了。首先，讓我們部署ForEach方法。微軟文件包含了其使用句法定義。

Dim instance As List Dim action As Action(Of T)instance.ForEach(action)  

微軟進一步將委派行為定義為一種可以將對象傳遞的行為進行演示的一種方法。目前的List(T)要素是單獨傳送到Action(T)代表的。***件要做的事就是需要編寫被委派方法的代碼。對這一關鍵點存在誤區是大部分人對于VB.NET感到困惑的原因。該項功能或子程序是所有用于Of類型對象的自定義編碼所完成的場所。當我們能夠正確使用這一功能時，過程就很簡單。在我們的舉例中，對它的使用很簡單。Bottle的整個示例都被傳送了，且子程序會從中抽選出任何需要的數據。

Sub displayBottle(ByVal b As Bottle) Console.WriteLine(b.Brand & " - " & b.Name)End Sub  

VB.NET對象列表編寫ForEach方法，只需要填寫代表的地址就可以了。

Cabinet.ForEach(AddressOf displayBottle)  

FindAll稍微有些復雜。微軟關于FindAll的說明如下：

Dim instance As List Dim match As Predicate(Of T)Dim returnValue As List(Of T)  
returnValue = instance.FindAll(match)  

現在，在我們的句法中出現了不同的要素，Predicate(T)。據微軟稱，這將代表定義了一套標準以及能確定指定對象是否符合這些標準的方法。換句話說，我們可以創建任何能在列表中找尋數據的代碼。我編寫的Predicate(Of T)可以對Beer種類進行搜尋：

Function findBeer(ByVal b As Bottle) _ As BooleanIf (b.Category = "Beer") Then  
Return True  
Else  
Return FalseEnd IfEnd Function  

FindAll返回的是整個List(T)而不是調用列表中每個項目的代表代碼。這個List(T)只包含匹配Predicate(T)的數據。對第二個List(T)的定義和操作也取決于我們編寫的代碼。重復一遍，我的代碼是為免冗繁而簡化了。

Dim sublist As List(Of Bottle) sublist = Cabinet.FindAll(AddressOf findBeer)For Each result As Bottle In sublist  
Console.WriteLine(result.Brand & " - " & result.Name)  
Next   

本文探討的***一個方法是Sort。微軟使用了一些你或許并不熟悉的術語對其進行解釋。其實有四個不同的Sort方法負載：

Sort()  
Sort(Icomparer(T)  
Sort(Comparison(T)4. Sort(Int32,Int32,Icomparer(T)   

這讓我們能夠用.NET框架中定義的Sort方法編寫自己的代碼或者只是通過使用起始位置和計數參數來收集集合的一部分。

在這個例子中，我為自己的比較器編寫了另一個代表。由于我希望通過我的分類方式來分類，于是就只是抽去了傳所送的Bottle對象中每個例子的值。

Private Shared Function sortCabinet( _ ByVal x As Bottle, ByVal y As Bottle)   
As IntegerReturn x.Category.CompareTo(y.Category)  
End Function  

Sort方法實際上對原始List(T)進行了重新排列。所以這就是該執行該方法后發生的一個過程。

Cabinet.Sort(AddressOf sortCabinet) For   
Each result As Bottle In CabinetConsole.WriteLine(result.Brand & " - " & result.Name)  
Next  

這些方法被選擇用來闡述List(T)中編寫框架方法代碼的主要方式。你會發現它們使得List(T)更加有用。

【編輯推薦】

1. 實例講述VB.NET使用Log4Net
2. 三分鐘學會VB.NET轉換形態
3. VB.NET獲取硬盤信息四大法寶
4. 講述VB.NET調用Excel的好處
5. 簡單例子概述VB.NET新窗體