vb6的dictionary类

最新推荐文章于 2025-05-05 19:52:53 发布

zhugejianzhan

最新推荐文章于 2025-05-05 19:52:53 发布

阅读量375

点赞数

本文链接：https://blog.youkuaiyun.com/csdnharrychinese/article/details/132223044

版权

本文介绍了VB6中利用MicrosoftScriptRuntime库实现的Dictionary类，以及如何使用它进行key-value操作，同时提到了VB6没有原生Dictionary和Set类的情况。作者还分享了VBCorLib项目，展示了VB6模拟C#基本类库的示例。

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

vb6的dictionary类

vb6 原生容器, 除了array还有collection, 没有原生的dictionary和set类, 在microsoft script runtime库(scrrun.dll) 中有一个dictionary类, 功能还算强大, 可以较好处理key-value这样的字典, 我甚至觉得用它也完全可以代替原生的collection类.
microsoft script runtime库(scrrun.dll)中还包含了FileSystemObject 和 File 和 TextStream 常用的类.

sub DictionaryTest()
        dim  dict as new dictionary 
        dim i as integer 
        dim txt as string 
        
        call dict.add("a","a1")  ' 增加一个key-value 
        call dict.add("d","d1")  
        
        dict.item("d") ="d2"  ' 修改指定key的value
        dict("d") ="d3"       ' 另一种方法去修改指定key的value 
        
        for i=0 to dict.count -1   '遍历dictionary, 下标要从0 开始 
            txt=dict.keys()(i) ' 使用 keys() 返回key的数组, 然后获取指定下标的key 
            txt=dict.items()(i) ' 使用 items() 返回value的数组, 然后获取指定下标key对应的value
            txt=dict.items(i) ' 获取指定下标key对应value的另一种方法, 使用 dic.items()(i) 可以简写成 dict.items(i)
        next i 
    end sub