其实网上有一篇写的很好了,标题叫【VB之Collection---Collection集合类"】,有兴趣的自己去搜索一下
我只是举个例子,说白话的举例,这个例子叫【人生无常,大肠包小肠】
就是大Collection包小Collection
话不多说,直接上代码
Option Explicit
'定义全局大集合,方便在各个子函数内使用
Dim BigCollection As New Collection
'这里随便用了一个按钮来试了
Private Sub Command1_Click()
On Error Resume Next
'定义一个小集合,准备给大肠包
Dim SmallCollection As New Collection
'往小集合里添加测试数据,实际中你们自己去加
SmallCollection.Add "1", "2"
SmallCollection.Add "3", "4"
'把小集合当作一个项加入大集合,并给取个名字,叫lily吧
BigCollection.Add SmallCollection, "lily"
'测试一下
'这个调用看的明白吗,如果往里再加其它集合如luck之类的,一样的
Debug.Print BigCollection.Item("lily").Item("2")
Debug.Print BigCollection.Item("lily").Item("4")
'输出的结果就是1和3
End Sub
上一篇:属性页设计指南
下一篇:没有了