Jak pracovat s kolekce HashTable v jazyce Visual Basic.ÈISTÁ nebo Visual Basic 2005

Tento èlánek obsahuje informace o kolekce HashTable. Protože zatøiïování eliminuje potøebu nákladné vyhledávání dat naèíst data, mùžete použít algoritmus hash úèinnì naèítat data. K vyhledání dat hash používá hodnotu klíèe, sám.

Knihovny tøídy Base nabízejí HashTable Tøída, která je definována v System.Collections obor názvù tak, že není potøeba kód hash tabulky.

Kroky k vytvoøení vzorku

Kolekce HashTable ukládá (Klíè hodnota) dvojice a používá Klíè hash a získat umístìní úložištì. Na Klíè je nemìnná a nelze mít duplicitní položky v HashTable. Tento pøíklad používá nìkolik instancí jednoduchého Osoba tøídy pro uložení HashTable. Poslední název slouží jako Klíè.

1. Otevøete aplikaci Microsoft Visual Studio.NET nebo Microsoft Visual Studio 2005 a vytvoøit projekt aplikace systému Windows v jazyku Visual Basic.NET nebo Visual Basic 2005. Ve výchozím nastavení je do projektu pøidány Formuláø1.
2. V aplikaci Solution Explorer klepnìte pravým tlaèítkem myši na název projektu, pøejdìte na Pøidata klepnìte na tlaèítko Pøidání tøídy Pøidat Tøída modul. Ve výchozím nastavení je do projektu pøidány Class1.
3. V Pøidat novou položku Dialogové okno, klepnìte na tlaèítko Otevøít.
   
   Poznámka: V aplikaci Visual Studio 2005 klepnìte na tlaèítko Pøidat místo Otevøít.
4. Nahradit libovolný kód v Class1 modul s následujícím kódem:

   Public Class Person
       Public Fname, Lname As String
   
       Sub New(ByVal FirstName As String, ByVal LastName As String)
           Fname = FirstName
           Lname = LastName
       End Sub
   
       Public Overrides Function ToString() As String
           Return Fname + " " + Lname
       End Function
   End Class
   						

   Na Osoba Tøída má jeden konstruktor, který zabírá Jméno a Pøíjmení parametry a pøiøadí tyto parametry místní promìnné. Na ToString lokální zmìny funkce ToString od Objekt Tøída vrátit Fname a LName vytvoøí spojením spoleènì.
5. V Form1.vb pøidejte následující Dovoz prohlášení k horní èásti modulu kódu:

   Imports System.Collections
   					

6. Vytvoøit formuláø úroveò Hashtable objekt a deklarovat tøi promìnné typu Osoba. Tøída formuláø1, pøidejte následující kód:

   Dim MyTable As New Hashtable()
   
   'For simplicity, create three Person objects to add to the HashTable collection.
   
   Dim Person1, Person2, Person3 As Person  
   					

7. V následujících krocích, použít Pøidat Metoda Hashtable objekt, který chcete pøidat tøi Osoba objekty do Hashtable v try-catch blok. Na try-catch blok úlovky výjimku a zobrazí zprávu v pøípadì existence duplicitního klíèe.
   1. Místo Tlaèítko formuláø1 ovládat a mìnit Text Vlastnost Pøidání prvkù.
   2. Poklepejte na tlaèítko otevøete okno jeho kód a vložte následující kód v Button1_Click událost:

      Person1 = New Person("Karen", "Berge")
      Person2 = New Person("David", "Campbell")
      Person3 = New Person("Jim", "Kim")
      
      'The Add method takes Key as the first parameter and Value as the second parameter.
      
      Try
           MyTable.Add(Person1.Lname, Person1)
           MyTable.Add(Person2.Lname, Person2)
           MyTable.Add(Person3.Lname, Person3)
      Catch ae As ArgumentException
           MessageBox.Show("Duplicate Key")
      End Try
      						

8. Na Hashtable objekt obsahuje indexovací èlen. V následujících krocích, index se Klíè hodnota uložená v umístìní hodnoty hash pøístup.
   1. Pøidat Tlaèítko do formuláøe Form1 øídit a zmìnit Text Vlastnost Získat zboží.
   2. Poklepejte na tlaèítko a vložte následující kód v Button2_Click událost:

      'Use the indexer of the Hashtable class to retrieve your objects. The indexer takes 
      'Key as a parameter and accesses it with the Hashed location.
              
      Try
           MessageBox.Show(MyTable(Person1.Lname).ToString)
           MessageBox.Show(MyTable(Person2.Lname).ToString)
           MessageBox.Show(MyTable(Person3.Lname).ToString)
      Catch ex As NullReferenceException
           MessageBox.Show("Key not in Hashtable")
      End Try
      						

9. V následujících krocích, použít Odebrat Metoda odstranit jednu položku z kolekce HashTable:
   1. Pøidat Tlaèítko do formuláøe Form1 øídit a zmìnit Text Vlastnost Odstranit položku.
   2. Poklepejte na tlaèítko a vložte následující kód v Button3_Click událost:

      'Use the Count property.
      If (MyTable.Count = 0) Then
           MessageBox.Show("There are no items in HashTable")
      Else
           MessageBox.Show("The count before removing an Item is" & " " & MyTable.Count)
           MessageBox.Show("Removing value stored at key value (Berge)")
           'Remove the object that is stored at the Key value Person1.Lname.
           MyTable.Remove(Person1.Lname)
      End If
      						

10. V následujících krocích výèet položek, které jsou uloženy v kolekce HashTable.
    1. Pøidat Tlaèítko do formuláøe Form1 øídit a zmìnit Text Vlastnost Výèet.
    2. Poklepejte na tlaèítko a vložte následující kód v Button4_Click událost:

       Dim Enumerator As IDictionaryEnumerator
       Enumerator = MyTable.GetEnumerator()
       
       If (MyTable.Count = 0) Then
            MessageBox.Show("The HashTable is empty")
       Else
            MessageBox.Show("Enumerating through the HashTable collection")
            While Enumerator.MoveNext()
                 MessageBox.Show(Enumerator.Value.ToString())
            End While
       End If
       
       Dim MyKeys As ICollection
       Dim Key As Object
       
       If (MyTable.Count = 0) Then
            MessageBox.Show("The HashTable is empty")
       Else
            MessageBox.Show("Accessing keys property to return keys collection")
            MyKeys = MyTable.Keys()
       
            For Each Key In MyKeys
                 MessageBox.Show(Key.ToString)
            Next
       End If 
       							

       Tento kód deklaruje promìnnou typu IDictionaryEnumerator a volá GetEnumerator Metoda kolekce HashTable. S Èítaè výètu Vrátí, kód výèet prostøednictvím položek v kolekci a používá Klíèe Metoda HashTable provedení výètu klíèù.
11. V následujících krocích, použít Vymazat Metoda zrušte HashTable.
    1. Pøidat Tlaèítko do formuláøe Form1 øídit a zmìnit Text Vlastnost Vymazat.
    2. Poklepejte na tlaèítko a vložte následující kód v Button5_Click událost:

       MyTable.Clear()
       MessageBox.Show("HashTable is now empty")
       						

12. Takto sestavit a spustit aplikaci:
    1. Klepnìte na tlaèítko Pøidat položky. Poznámka, že tøi Osoba objekty jsou pøidány do kolekce HashTable.
    2. Klepnìte na tlaèítko Získat zboží. Všimnìte si, že získává indexovacího položky kolekce HashTable. Tøi novì pøidané položky jsou zobrazeny.
    3. Klepnìte na tlaèítko Odstranit položku. Všimnìte si, že položku na místì klíèe "berge" se zrušuje.
    4. Klepnìte na tlaèítko Výèet. Všimnìte si, že IDictionaryEnumerator Vytvoøí výèet prostøednictvím kolekce HashTable položky.
    5. Klepnìte na tlaèítko Vymazat. Všimnìte si, že všechny položky z kolekce HashTable budou vymazány.

POZNÁMKA:: Na spoleèností, organizací, produktù, názvy domén, e-mailové adresy, loga, osoby, místa a události použité v ukázkách jsou smyšlené. Spojení se skuteènou spoleèností, organizací, produktu, název domény, e-mailovou adresu, logo, osobì, místa nebo události je urèen nebo událostmi.