mycollection

Option Explicit On
''' 

''' 可以取出key值的collection
''' 
''' 
  
  
Public Class MyCollection
    Private colKey As New Collection
    Private colVal As New Collection
    Public ReadOnly Property Count() As Long
        Get
            Count = colKey.Count
        End Get
    End Property
    Default Public ReadOnly Property Item(ByVal index As Integer) As String
        Get
            Item = colVal(index)
        End Get
    End Property
    Public Sub Add(ByVal Item, Optional ByVal Key = Nothing, Optional ByVal Before = Nothing, Optional ByVal After = Nothing)
        colKey.Add(Key, Key, Before, After)
        colVal.Add(Item, Key, Before, After)
    End Sub
    Public Sub Remove(ByVal index As Integer)
        colKey.Remove(index)
        colVal.Remove(index)
    End Sub
    Public Function getKey(ByVal value As String) As String
        getKey = Nothing
        For i As Integer = 1 To colVal.Count
            If colVal(i).ToString = value Then
                getKey = colKey.Item(i)
            End If
        Next
    End Function
    Public Sub Clear()
        colKey.Clear()
        colVal.Clear()
    End Sub
    ''' 

    ''' 返回一个boolean值,确定该Mycollection对象是否包含具有特定键的元素
    ''' 
    ''' 
    ''' 
  
  
    ''' 
  
  
    Public Function Contains(ByVal key As String) As Boolean
        Contains = colVal.Contains(key)
    End Function

    ''' 

    ''' 返回一个boolean值,确定该Mycollection对象是否包含特定的元素
    ''' 
    ''' 
    ''' 
  
  
    ''' 
  
  
    Public Function ContainsV(ByVal val As String) As Boolean
        For i As Integer = 1 To colVal.Count
            If colVal(i).ToString = val Then
                Return True
            End If
        Next
        Return False
    End Function

End Class