VB.NET同所有編程語言一樣具有一樣的編程基礎(chǔ)框架。這對于一個剛剛接觸VB.NET語言而又有其他語言基礎(chǔ)的開發(fā)人員來說，是非常有用的。因?yàn)橹挥没ê苌俚臅r間就可以快速的掌握這一功能強(qiáng)大的語言。今天我們就來詳細(xì)了解一下VB.NET List的相關(guān)知識。#t#

要使用VB.NET List，我們需要了解如何部署.NET框架所提供的多種方法。這也將是本文要介紹的內(nèi)容。我已經(jīng)編寫好了三個示例——使用ForEach, FindAll,和Sort——來闡述同樣列表類的工作原理。

***步是要創(chuàng)建一個同用列表。你可以從多種途徑獲取數(shù)據(jù)，但是最簡單的方法是添加。文本中，我們會編寫代碼以便為舉例中的集來分類。因此，下面我們就來講講創(chuàng)建集的代碼。

首先，我需要一個能代表集中的Bottle的對象。為此而編寫的代碼是完全符合標(biāo)準(zhǔn)的，而且事實(shí)上，VB.NET 2008 Express Intellisense會為你寫好大部分的代碼。以下是我的對象：

Public Class Bottle "internal
Properties"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  

為了創(chuàng)建集，我需要添加項(xiàng)目：

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中的標(biāo)準(zhǔn)代碼。但是，要通過定義我們自己的Bottle對象來注明。我們會在相同集中的多類型中獲益。

下面我們將介紹ForEach, FindAll, 和Sort方法。

我們使用這些方法的時候，就會發(fā)現(xiàn)其中的樂趣了。首先，讓我們部署ForEach方法。微軟文件包含了其使用句法定義。

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

微軟進(jìn)一步將委派行為定義為一種可以將對象傳遞的行為進(jìn)行演示的一種方法。目前的VB.NET List要素是單獨(dú)傳送到Action(T)代表的。

***件要做的事就是需要編寫被委派方法的代碼。對這一關(guān)鍵點(diǎn)存在誤區(qū)是大部分人對于VB.NET感到困惑的原因。該項(xiàng)功能或子程序是所有用于Of類型對象的自定義編碼所完成的場所。當(dāng)我們能夠正確使用這一功能時，過程就很簡單。在我們的舉例中，對它的使用很簡單。Bottle的整個示例都被傳送了，且子程序會從中抽選出任何需要的數(shù)據(jù)。

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

編寫ForEach方法本身是很簡單的，只需要填寫代表的地址就可以了。

Cabinet.ForEach
(AddressOf displayBottle) 

FindAll稍微有些復(fù)雜。微軟關(guān)于FindAll的說明如下：

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

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

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

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

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。微軟使用了一些你或許并不熟悉的術(shù)語對其進(jìn)行解釋。其實(shí)有四個不同的Sort方法負(fù)載：

1. Sort()

2. Sort(Icomparer(T)

3. Sort(Comparison(T)

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

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

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

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

Sort方法實(shí)際上對原始VB.NET List進(jìn)行了重新排列。所以這就是該執(zhí)行該方法后發(fā)生的一個過程。

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

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