VBA 及 VB6 及Access中均会用到集合 Collection的常用代码集

2019-07-07 09:42:00
zstmtony
转贴
94

VBA 及 VB6  及Access中均会用到集合 Collection ,下面是集合用到的常用代码


Sub test()
'    Dim s As Collection '定义s变量为集合对象
'    Set s = New Collection '初始化集合对象s (否则无法使用)

    Dim s As New Collection '推荐这句代码,直接初始化,可以不用再Set了

    '集合s中添加元素的方法
    For i = 1 To 10
        s.Add i '对于集合s,用Add方法可以加入集合元素
            '当然事实上你可以添加任意内容来代替本例中的i
    Next


    '读取集合中元素的方法    
    For i = 1 To s.Count '可以用Count属性返回集合中元素总个数
        t = s(i) '读取集合s中第i个变量存入临时变量t中
        t = s.Item(i) '正规的代码写法应该是这样子(效果一样,推荐用上一句更简明)
        Debug.Print s(i) '在立即窗口中观察s(i)的值
    Next
    
    '下面是集合s中元素删除的方法
    For i = 1 To s.Count '遍历集合元素
        s.Remove (1) '每次删去第1个……直至全部删除完毕 或直接简写为: s.Remove 1
'        s.Remove (s.Count) '或者每次删除最后一个,直至全部删除完毕(推荐用上一句,不容易错)
'        或简写为 s.Remove s.Count       
        Debug.Print s.Count '在立即窗口中观察集合s中剩余元素个数
    Next
    
End Sub

分享