VB之Collection---Collection集合
集合是方法将一系列相关的项构成组的一种方法。Visual Basic 中集合可用于跟踪很多事情，例如程序中加载的窗体（窗体集合），或者在窗体中的所有控件（控件集合）。
Visual Basic 提供的类属 Collection 类可用来定义自己的集合。需要多少集合对象，就可以建立多少 Collection 对象－ 即 Collection 类的实例。还可使用集合对象作为自己的集合类和对象模型的基础，它将在本章后面的“创建自己的集合类”和“对象模型”中讨论。
例如，集合是跟踪多窗体的最好方法。在“创建用户界面”中的“多文档界面 (MDI) 应用程序”里讨论用户可以打开任何数目文档窗口的应用程序。以下代码段演示如何使用集合对象的 Add 方法，对用户建立的 MDI 子窗体列表进行管理。该代码假定已经存在一个名为 mdiDocument 的窗体，其 MDIChild 属性设置为 True。
'父 MDIForm 中的模块级集合。
Public colDocuments As New Collection
'建立新的 MDI 子文档窗体的代码。
Private Sub mnuFileNew()
Dim f As New mdiDocument
Static intDocumentNumber As Integer
intDocumentNumber = intDocumentNumber 1
'下面的语句创建窗体。
f.Caption = "Document" & intDocumentNumber
'给集合添加对象引用。
colDocuments.Add f
f.Show
End Sub
colDocuments 的作用象是内置窗体集合的一个子集，它只包含窗体 mdiDocument 的一些实例。每添加一个新窗体，自动调节集合的大小。可使用 For Each ... Next 在集合内进行迭代。如果赋予窗体一个可以检索的键，那么可提供一文本字符串作为 Add 方法的第二个参数，如本节后面部分所述。
在变量 colDocuments 的声明中，New 关键字导致当该变量第一次被引用时，在代码中创建集合对象。因为集合是类，而不是数据类型，所以必须建立集合实例，并且在变量中记录对该实例（对象）的引用。
象其它任何对象一样，当包含其引用的最后一个变量被设置成 Nothing 或不可见时，Collection 对象将被撤消。它包含的所有对象引用将被释放。因此，变量 colDocuments 在父 MDIForm 中声明，于是它将存在于程序存活期中的整个过程。
asp 字符串转数组注意 如果使用集合来跟踪窗体，当窗体被卸载之后，应使用集合的 Remove 方法从集合中删除该对象引用。只要对该窗体的引用仍然存在，就不能收回窗体使用的内存，并且 Collection 对象保存的引用象对象变量中的引用一样完好。
集合对象的构成
Collection 对象将每一项存储于 Variants 对象中。于是，能够添加到 Collection 对象里的内容列表就和能够存储到 Variants 中的内容列表是相同的。这包括标准数据类型、对象和数组－但不包括用户定义类型。
不管 Variants 中存储的是什么，它都占 16 字节，因此使用 Collection 对象不如使用数组的效率高。然而，不能 ReDim 一个 Collection 对象，ReDim Collection 对象能够使代码更清楚、更容易维护。此外，集合对象按键能进行快速的查，而数组却不能。
注意 准确一点说，即使是把数据存储在其它地方，Variants 也总是只占 16 个字节。例如，如果把字符串或数组赋给 Variants，Variants 将包含一个指向字符串和数组数据备份的指针。在 32 位系统中，指针只使用了 Variants 的 4 个字节，而且 Variants 中实际上不存在数据。
若要存储一个对象，Variants 将包含该对象引用，就象对象变量所做的一样。对字符串和数组来说，也只使用 Variants 的 4 个字节。
数字数据类型存储在 Variants 中。不管什么样的数据类型，Variants 仍然占 16 个字节。
除了 Variants 大小之外，还有很多情况需要使用 Collection 对象来存储上面列出的所有数据类型。应该知道进行权衡：使用 Collection 对象能够编写清楚且容易维护的代码－ 所花费的仅是将一些项存储在 Variant 中。
集合对象的属性和方法
每个集合对象都有属性和方法，使用它们能够插入、删除和检索该集合中的项。
属性或方法 描述
Add 方法 给集合添加项。
Count 属性 返回集合中项的数目。只读。
Item 方法 通过索引或关键字，返回项。
Remove 方法 通过索引或关键字，从集合中删除项。
这些属性和方法仅仅是集合最基本的功能。例如，要确保集合只包含一种对象，Add 方法并
不能检查将要添加到集合里的对象类型。通过建立自己的集合类能够提供更强健的功能，以及额外的属性、方法和事件，正如本章后面的“创建自己的集合类”中所述。
集合中的增加、删除和检索的基本功能需要关键字和索引。关键字是一个 String 的值。它可以是能转换成字符串的名字、驾驶执照号、社会安全号或者简单的整数。Add 方法允许将关键字与项相关联，如本节后面部分所述。
索引是长整型，介于 1 和集合中项的数目之间。使用 before 和 after 命名的参数，可以控制项索引的初始值，但是随着其它项的增加和删除，其值会发生改变。
注意 索引从 1 开始的集合称为基于 1，如“Visual Basic 中的集合”中所述。
使用索引能够在进行集合的项中迭代。例如，假定变量 mcolEmployees 中包含对集合对象的一个引用，下列代码使用两种方法把 Employee 对象集合中所有雇员的薪水提高 10%。
Dim lngCt As Long
For lngCt = 1 To mcolEmployees.Count
mcolEmployees(lngCt).Rate = _
mcolEmployees(lngCt).Rate * 1.1
Next
Dim emp As Employee
For Each emp In mcolEmployees
emp.Rate = emp.Rate * 1.1
Next
提示 为改善性能，应使用 For Each 对 Collection 对象中的项进行迭代。使用 For Each 迭代要比使用索引快很多倍。这并不是对所有集合都正确－ 它取决于集合内部存储数据的方法。
给集合添加项
Add 方法用于将项添加到集合。语法是：
Sub Add (item As Variant [, key As Variant] [, before As Variant]
[, after As Variant] )
例如，使用工作定单 ID 属性作为关键字，将工作定单对象添加到工作定单集合里，代码可编写为：
colWorkOrders.Add woNew, woNew.ID
这里假定 ID 属性是字符串。如果属性是数字（例如 Long），则应使用 CStr 函数将它转换成关键字所要求的字符串值：
colWorkOrders.Add woNew, CStr(woNew.ID)
Add 方法支持命名的参数。为了添加一项作为第三个元素，代码可编写为：
colWorkOrders.Add woNew, woNew.ID, after:=2
可以使用 before 和 after 命名的参数管理有序的对象集合。例如，before:=1 将在集合的开始插入一项，因为集合对象是基于 1 的。
从集合中删除项
Remove 方法用于从集合中删除项。语法是：
object.Remove index
index 参数可以是所删除项在集合中的位置，或者是该项的关键字。如果集合中第三个元素的关键字是“W017493”，则可使用这两条语句中的任何一条删除它：
colWorkOrders.Remove 3
- 或 -
colWorkOrders.Remove "W017493"
从集合中检索项
Item 方法用于从集合中检索特定项。语法是：
[Set] variable = object.Item(index)
和 Remove 方法一样， index 可以检索项在集合中的位置，或者是该项的关键字。使用 Remove 方法中的相同示例，这两条语句中的任一条都可检索集合中的第三个元素：
Set woCurrent = colWorkOrders.Item(3)
- 或 -
Set woCurrent = colWorkOrders.Item("W017493")
如果使用整数作为关键字，在将它们传递到 Item 或 Remove 方法之前，必须使用 CStr 函数将其转换成字符串。通常集合对象都假定整数是索引。
提示 Collection 对象不能决定所传递的值是索引还是键。如果想把值解释为键，并且包含该值的变量是除 String 以外的任何值，可以使用 CStr 函数进行转换。如果想把值解释为索引，并且包含该值的变量不是整型数据类型中的一种，使用 CLng 进行转换。
Item 是缺省方法
对于集合对象来说，Item 方法是缺省方法，因此当访问集合中的项时，可忽略它。所以前面的代码示例也可以写成：
Set woCurrent = colWorkOrders(3)
- 或 -
Set woCurrent = colWorkOrders("W017493")
重点当添加和删除集合对象元素时，集合对象会自动地维护其数字索引编号。因此给定元素的数字索引随之改变。不能在程序中存储数字索引值，并用它检索同一个元素。为达到该目的，应使用键。
使用 Item 方法调用属性和方法
为了使用对象引用，不能从集合中检索该对象引用，并把它放到对象变量中。当对象仍然在集合里时能够使用其引用。
例如，假设上述代码中的 WorkOrder 对象具有 Priority 属性。下面的语句都可用于设置工作定单的优先级：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。