vb中集合概念及用法

Question

需要定义个数组类，根据不同类型对应相应的数组类型，要实现需要使用集合，可是对集合不了解希望大家帮忙。

Answer 1

Private Sub Form_Load()
Dim c As New Collection
Dim i As Integer
c.Add "1"
c.Add "2"
c.Add "3"
c.Add "4"
c.Add "5"
c.Add "6"For i = 1 To c.Count
    MsgBox c.Item(i)
NextEnd Sub

Answer 2

不好意思可能我没说清楚，要求实现一对多个不同类型客户端发送信息，在发送的同时把每个不同类型发送的信息存在一个数组里，随时要能对数组中信息进行删除和添加信息，现在一个能实现，多个就实现不了，快让交了，各位xdjm帮下忙

Answer 3

不同类型发送的信息
------------------
指得是信息结构相同，但是信息内容不同吗？还是一个消息整型数据，而另外一个消息就是类啊？如果结构或数据类型相同，处理起来相对容易一下，使用Collection对象就可以。
如果连结构或数据类型都不同的话，那就麻烦一些，需要先判断数据类型，在进行动态绑定。

Answer 4

关于Collection的例子如下：Private mCol As CollectionPrivate Sub Class_Initialize()    '初始化集合
    Set mCol = New CollectionEnd SubPrivate Sub Class_Terminate()    '释放内存
    Set mCol = NothingEnd SubPublic Property Get Item(varIndexKey As Variant) As Parameter    On Error GoTo Error_Item
    Set Item = mCol(varIndexKey)Exit PropertyError_Item:
    Set Item = NothingEnd PropertyPublic Property Get Count() As Long    Count = mCol.Count
End Property'这条语句的目的是使程序能使用 For Each语句进行枚举。
Public Property Get NewEnum() As IUnknown    Set NewEnum = mCol.[_NewEnum]
End PropertyPublic Function Add(ByVal sKey As String, _
                    Optional ByVal Value As String) As Parameter    Dim clsParameter As New Parameter    '-------------------------------------------------------
    '
    '向集合中加入一条策略
    '
    '-------------------------------------------------------
    With clsParameter        .Key = Trim(sKey)
        .Value = Value    End With    mCol.Add clsParameter, Trim(sKey)    Set Add = clsParameter    Set clsParameter = NothingEnd FunctionPublic Sub Remove(varIndexKey As Variant)    mCol.Remove varIndexKeyEnd Sub