我的集合有两项,一项是id,一项是content,
dim col as collection
col.Add "1", "111"
col.Add "2", "222"
如何遍历呢?
dim col as collection
col.Add "1", "111"
col.Add "2", "222"
如何遍历呢?
解决方案 »
- vb 打开公共对话框后,可否自动显示缩略图?
- 心在滴血,我该怎么办?
- 如何监测打印机的打印是否完成
- 急,高手请进!如何在VB中读取出Excel的数据,并保存到SQL中!加分100,在线等
- 分辨率改变后,可否让窗体上的控件大小,位置,按比例改变?
- 如何让文本框的大小随字数的变化而变化?
- 如何结束或取消一个进程???
- 行 17: 控件 ProgressBar1 的类 MSComctlLib.ProgressBar 不是一个已加载的控件类。
- 请问?怎么样编制NT或Windows2000的服务程序?
- 一个菜鸟级的问题,请各位关照!
- 关于MSFlexGrid控件
- 怎樣改變MsChart 控件中Series對象的顏色
For i = 1 To col.Count
List1.AddItem col.Item(i)
Next
Dim MyClasses As New Collection ' 建立一个集合对象(Collection)。
Dim Num ' 计数用变量,用来对对象的个数计数。
Dim Msg As String ' 提示信息用变量。
Dim TheName, MyObject, NameList ' 对象信息用变体。
Do
Dim Inst As New Class1 ' 建立 Class1 的新实例。
Num = Num + 1 ' 把计数变量 Num 加一,然后要求输入新对象个体的名称。
Msg = "Please enter a name for this object." & Chr(13) _ & "Press Cancel to see names in collection."
TheName = InputBox(Msg, "Name the Collection Items")
Inst.InstanceName = TheName ' 将名称送入对象实例。
' 若用户输入了名称,将它加入集合。
If Inst.InstanceName <> "" Then
' 将命名的对象加入集合。
MyClasses.Add item := Inst, key := CStr(Num)
End If
' 清除当前的引用,为对下一个对象做准备。
Set Inst = Nothing
Loop Until TheName = ""
For Each MyObject In MyClasses ' 建立名称列表。NameList = NameList & MyObject.InstanceName & Chr(13)
Next MyObject
' 将名称列表在消息框中显示出来。
MsgBox NameList, , "Instance Names In MyClasses Collection"For Num = 1 To MyClasses.Count ' 从集合中删除名字。
MyClasses.Remove 1 ' 因为每删除一个对象后,集合
' 会自动重排顺序,故每次迭代时只需删除第一个
Next ' 对象即可。
End Sub====================
免费的学习交流网站,欢迎大家访问!
http://www.j2soft.cn/
Dim i As Long
Dim myColl As Collection
Set myColl = New Collection
myColl.Add "a"
myColl.Add "b"
myColl.Add "c"
For i = 1 To myColl.Count
Debug.Print myColl(i)
Next
Set myColl = Nothing
End Sub
For Each i In col
List1.AddItem i
Next
Dim i As Long
Dim col As Collection
Set col = New Collection
col.Add "111", "1"
col.Add "222", "2"
col.Add "333", "3"
Debug.Print col("3")
Debug.Print col("1")
Debug.Print col("2")
Set col = Nothing
End Sub结果为:
333
111
222即把ID放值的后面,content值即可根据ID来取