VB之Collection---Collection集合类

你看到的这个文章来自于http://www.cnblogs.com/ayanmw

由于要对一些数据进行处理，比较麻烦，实现某个算法要处理大量不同的不同类型的数据。

所以考虑到一些因素，又在使用VB6（可惜微软不支持VB6了，改为DotNet框架了 ），所以使用 VB6 自带的 Collection集合（类） 最好。

其实Collection 也是有Key 和 Value一一对应的关系的。而且 还有 ID 顺序。

现在不是流行 key-value的数据库么，collection如果可以保存到文件，那么不久完美了么？？ 反正 现在当作 key value的实时处理数据的库来用 还是很好的。

从VB6的 《类生成器实用工具》 创建 collection挺方便，唯一不方便的是，默认不把 collection当作类来使用。其实 这就是一个类而已么。一般collection只有一个就行，add多个元素。但是collection也可以 创建多个，就是collection下有collection，下又有 一些 class，复杂程度稍微高一点。

下面是一个简单的collection配合一个class的例子。

'FileName : OneKeyCls.cls
Option Explicit

Public Key As String

'FileName : OneKeyCol.cls
Option '局部变量，保存集合
Private mCol As Collection

Public Function Add(Key String,Optional sKey String) As OneKeyCls
    创建新对象
    Dim objNewMember Set objNewMember = New OneKeyCls
    
    
    设置传入方法的属性
    objNewMember.Key = Key
    If Len(sKey) = 0 Then
        mCol.Add objNewMember
    Else
        mCol.Add objNewMember,sKey
    End If
    
    
    返回已创建的对象
    Set Add = objNewMember
    Nothing
    
    
End Function

下面 做了 错误处理！当 没有 关键字 的时候 就会返回Nothing了。
Property Get Item(vntIndexKey As Variant) As OneKeyCls
    Err.Clear
    On Error GoTo GetItemError
    引用集合中的一个元素时使用。
    vntIndexKey 包含集合的索引或关键字，
    这是为什么要声明为 Variant 的原因
    语法：Set foo = x.Item(xyz) or Set foo = x.Item(5)
    Set Item = mCol(vntIndexKey)
    Exit Property
    
GetItemError:
    Debug.Print Err.Source & " : Error Was found in Item(vntIndexKey as Variant) as oneKeyCls . " & vbCrLf & Err.Description &  : " & Err.Number
    Set Item = Nothing
End Property



Get Count() Long
    检索集合中的元素数时使用。语法：Debug.Print x.Count
    Count = mCol.Count
End Property


Sub Remove(vntIndexKey As Variant)
    删除集合中的元素时使用。
    vntIndexKey 包含索引或关键字，这是为什么要声明为 Variant 的原因
    语法：x.Remove(xyz)


    mCol.Remove vntIndexKey
End Sub


Get NewEnum() As IUnknown
    本属性允许用 For...Each 语法枚举该集合。
    Set NewEnum = mCol.[_NewEnum]
Private Sub Class_Initialize()
    创建类后创建集合
    Set mCol = New Collection
Sub Class_Terminate()
    类终止后破坏集合
    End Sub

使用范例：

    Dim Cars New OneKeyCol
    Cars.Add 10.1",2"
    Cars.Add 10.22010.3200key"
    Debug.Print Count:" & Cars.Count

    
    
    Debug.Print Cars.Item(").Key
    Debug.Print TypeName(Cars.Item(300"))  Error Nothing
    
    
    Dim i
    Dim key1 按照 index 索引 进行遍历,效率要比下面的方法低一点
    For i = 1 To Cars.Count
        Set key1 = Cars.Item(i)
        Debug.Print key1.Key
    Next
    
    推荐这种遍历方法
    For Each key1 In Cars
        Debug.Print key1.Key
    Next