本文共 1182 字,大约阅读时间需要 3 分钟。
转自
一般有四个方法:
(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也是索引号
转载地址:http://naqbi.baihongyu.com/