程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB.NET >> VB.NET中有用的通用對象列表

VB.NET中有用的通用對象列表

編輯:VB.NET

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

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

首先,我需要一個能代表集中的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對象來注明。我們會在相同集中的多類型中獲益。

下面我們將介紹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

編寫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 Boolean


If (b.Category = "Beer") Then

Return True

Else

Return False

End If

End  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方法負載:

1. Sort()

2. Sort(Icomparer(T)

3. 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 Integer

Return x.Category.CompareTo (y.Category)

End Function

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

Cabinet.Sort(AddressOf  sortCabinet) 
For Each result As Bottle In Cabinet

Console.WriteLine(result.Brand & " - " & result.Name)

Next

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved