VB6中Collection的使用

其实网上有一篇写的很好了，标题叫【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