HashTable

HashTable:

hashtable का use paired type के data को store करने के लिए किया जाता है। यह collection भी arraylist की तरह ही होता है पर इसमे item को access करने के लिए key का use किया जाता है। इसमे सभी items की एक key होती है। value array मे store होने वाली value ही होती केवल इसमे सभी values के साथ एक key भी होती है। hashtable मे key और value दोनों object type के होते हैं।

Declaration of HashTable:

       Syntax: Dim <HashTable name> As New HashTable

       Ex- Dim htable As new HashTable

Important Functions used HashTable:

• Add: इस function का use hashtable मे value को add करने के लिए किया जाता है। इसमे key – key value है और Value- add होने वाला item है।

Syntax: HashTable.Add (key, value)

Ex- htable.add (1, “A”)

htable.add (2, “B”)

htable.add (3, “C”)

• ContainsKey(): इस function का use hashtable मे key को check करने के लिए किया जाता है।

Syntax: Hashtable.ContainsKey (Key)

Ex- htable.ContainsKey (1)

• ContainsValue: इस फंकशन का use hashtable मे value को check करने के लिए किया जाता है।

Syntax: Hashtable.ContainsValue (Value)

Ex- htable.ContainsKey (“A”)

• Remove: इसका use key और उसकी value को hashtable से delete करने के लिए किया जाता है।

Syntax: Hashtable.Remove(key)

Ex- htable.remove(2)

Program: HashTable:

Public Class Form1

    Dim htable As New Hashtable

    Private Sub RefreshLabel()

        Dim objkey As Object

        Dim objval As Object

        Label1.Text = ""

        For Each objkey In htable.Keys

            objval = htable.Item(objkey)

            Label1.Text = Label1.Text & "Key :  " & objkey.ToString & ",  Value:   " & objval.ToString & Chr(13)

        Next

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim oval, okey As Object

        okey = InputBox("Enter Key")

        oval = InputBox("Enter Value")

        htable.Add(okey, oval)

        RefreshLabel()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim okey As Object

        okey = InputBox("Enter Key to check")

        If htable.ContainsKey(okey) = True Then

            MsgBox("Key found")

        Else

            MsgBox("Not Found")

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim oval As Object

        oval = InputBox("Enter Key to check")

        If htable.ContainsValue(oval) = True Then

            MsgBox("Value found")

        Else

            MsgBox("Not Found")

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim okey As Object

        okey = InputBox("Enter Key to remove")

        htable.Remove(okey)

        RefreshLabel()

    End Sub

End Class