一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

.NET中自己构建一个ArrDictionary

时间:2008-01-12 编辑:简简单单 来源:一聚教程网

以下是ArrDictionary类:
Public Class ArrDictionary
      Private objCollection As New Collection
      Private objDic As New DictionaryEntry
      Private strKey, strValue As String
      Public i As Integer
      Public Function Item(ByVal Index As Integer) As Object
     Try
         Item = objCollection.Item(Index)
     Catch ex As Exception
         Item = "错误,无此项!"
     End Try
      End Function
      Public Function Item(ByVal Key As String) As Object
     Try
         Item = objCollection.Item(Key)
     Catch ex As Exception
         Item = "错误,无此项!"
     End Try
      End Function
      Public Sub Add(ByVal Key As String, ByVal Value As String)
     objDic.Key = Key
     objDic.Value = Value
     objCollection.Add(objDic, objDic.Key)
     i += 1
      End Sub
      Protected Overrides Sub Finalize()

热门栏目