Mega Code Archive
StringDictionary Class implements a hash table with the key and the value
<![CDATA[
Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class SamplesStringDictionary
Public Shared Sub Main()
Dim myCol As New StringDictionary()
myCol.Add("red", "R")
myCol.Add("green", "G")
myCol.Add("blue", "B")
PrintKeysAndValues1(myCol)
End Sub 'Main
Public Shared Sub PrintKeysAndValues1(myCol As StringDictionary)
Dim de As DictionaryEntry
For Each de In myCol
Console.WriteLine(" {0,-25} {1}", de.Key, de.Value)
Next de
End Sub
End Class
]]>