VB.NET对象列表的用法示例

这篇文章主要介绍了VB.NET对象列表的用法示例，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

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)更加有用。

感谢你能够认真阅读完这篇文章，希望小编分享的“VB.NET对象列表的用法示例”这篇文章对大家有帮助，同时也希望大家多多支持编程网，关注编程网精选频道，更多相关知识等着你来学习!