VBA Collection

转自http://346386938.blog.163.com/blog/static/3843942020105150450830/

 

一般有四个方法：
(1) Add方法
添加一项到集合中。除了可以指定数据外还可以指定键值，通过键值可以访问集合中的成员。
(2) Count方法
返回集合中的项的个数。
(3) Item方法
通过集合中的索引(即集合中项的序号)或键(假设该项添加到集合时指定了)检索集合中的成员。
(4) Remove方法
通过集合中的索引或键删除集合中的成员。
可以使用With…End With构造和For Each … Next构造很方便地处理对象

 

Collection是我们在使用类时最常用到的对象。一个Collection对象代表一组相关的项目，虽然它的成员并不被强制要求是同一类型的的，但请记住，这通常并不能给我们带来额外的方便，相反，我们通常是用来收集同一类型的数据。

 

 

建立集合的方法和建立其它对象一样，如：

 

 

Dim col As New Collection

 

 

集合建立后，可以使用Add方法添加成员，用Remove方法删除成员，用Item方法从集合中返回特定成员。

 

 

Private Sub CommandButton1_Click()

 

 

Dim col As New Collection

 

 

Dim i%

 

 

Dim ct As Control

 

 

For Each ct In Me.Controls

 

 

    If Left(ct.Name, 7) = "TextBox" Then col.Add ct

 

 

Next ct

 

 

For i = col.Count To 1 Step -1

 

 

    MsgBox "下面删除成员" & col.Item(i).Name

 

 

    col.Remove i

 

 

Next i

 

 

End Sub

 

 

上面的代码先将窗体上所有的TextBox加入到集合中，然后再删除掉。Count属性返回集合的成员数量，Remove方法后面的参数是集合成员的索引号。成员的索引号通常是按照加入的顺序自然编号，从1开始，但可以在加入时使用Add方法的参数进行改变。Add方法的完整语法是：

 

 

object.Add item[, key][, before][, after]

 

 

item 必需的。任意类型的表达式，指定要添加到集合中的成员。

 

 

key 可选的。唯一字符串表达式，指定可以使用的键字符串，代替位置索引来访问集合中的成员。

 

 

before/after 可选的。表达式，指定集合中的相对位置。

 

 

下面语句向集合增加一个对象TextBox1，并定义该成员的关键字为tx1。

 

 

col.Add TextBox1, "tx1"

 

 

然后，下面两句都可以向集合中增加一个TextBox2，并把它放在成员TextBox1的前面。

 

 

col.Add TextBox2, , col.Count

 

 

col.Add TextBox2, , "tx1"

 

 

第一句中，因为只有一个成员，所以col.Count也是索引号