VBA 及 VB6 及Access中均會用到集閤 Collection的常用代碼集

2019-07-07 09:42:00
zstmtony
轉貼
481

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

分享