Imports System
Imports System.Collections
Public Class SamplesHashtable
Public Shared Sub Main()
Dim myHT As New Hashtable()
myHT.Add(0, "zero")
myHT.Add(1, "one")
myHT.Add(2, "two")
myHT.Add(3, "three")
myHT.Add(4, "four")
PrintIndexAndKeysAndValues(myHT)
Dim myKey As Integer = 2
Console.Write("The key ""{0}"" is ", myKey)
If(myHT.ContainsKey(myKey))
Console.WriteLine("in the Hashtable.")
Else
Console.WriteLine("NOT in the Hashtable.")
End If
Dim myValue As String = "three"
Console.Write("The value ""{0}"" is ", myValue)
If(myHT.ContainsValue(myValue))
Console.WriteLine(" in the Hashtable.")
Else
Console.WriteLine(" NOT in the Hashtable.")
End If
End Sub
Public Shared Sub PrintIndexAndKeysAndValues(myHT As Hashtable)
Dim i As Integer = 0
Dim de As DictionaryEntry
For Each de In myHT
Console.WriteLine("{1}:{2}", i, de.Key, de.Value)
i = i + 1
Next de
Console.WriteLine()
End Sub
End Class