VB中大Collection包小Collection，这个例子叫【人生无常，大肠包小肠】

kittenchen

于 2022-07-11 17:33:11 发布

阅读量385

点赞数

分类专栏： VB 文章标签：开发语言其他

本文链接：https://blog.csdn.net/kittenchen/article/details/125726255

版权

VB 专栏收录该内容

1 篇文章

订阅专栏

这篇博客介绍了如何在VB中利用Collection数据结构来实现大集合包含小集合的功能。作者通过一个生动的例子——【人生无常，大肠包小肠】，演示了如何创建并操作全局和局部Collection，以及如何通过索引和名称调用集合内的元素。在代码示例中，展示了如何在大集合中添加小集合，并进行数据的读取，为理解集合的使用提供了清晰的指导。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个其实对我还是有用处的，全局先定义一个大集合，根据需要不断的添加小集合到大的集合里，可以用索引调用，也可以用名称调用。

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