Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte nový projekt Visual Basic . Dvakrát kliknite na ovládací prvok tlačidla " " štyrikrát pridať " Button1 " cez " Button4 " do formulára a zabezpečiť im , ako sa vám páči . Zmeňte " Text " vlastnosť " Button1 " na " Pridať " , pre " Button2 " na " Odstrániť" pre " Button3 " na " Show All " a " Button4 " na " Clear " .
2
Stlačte tlačidlo " F7 " sa otvorí okno kód . Zadajte nasledujúci kód v prvom riadku :
Dovoz System.Collections
importuje menný System.Collections do projektu . Obsahuje Hashtable triedy
3
Otvorte " Form1 " triedu a zadajte nasledujúci kód : .
Dim MyHashTable As New Hashtable ( )
tým sa vytvorí nový objekt s názvom " MyHashTable " , ktorý používa Hashtable triedy
4
Otvorte " Button1_Click " podprogram a zadajte nasledujúci kód : .
Skúste
MyHashTable.Add ( " prvý " , " Gold " )
MyHashTable.Add ( " Second " , " Silver " )
MyHashTable.Add ( " tretí " , " bronz " )
Chytiť ex ako výnimka
MessageBox.Show ( " duplicitný kľúč " )
End Try
Tieto riadky pomocou " Pridať " metódu pridať tri nové položky do hash tabuľky s " prvý" , " druhý " a " tretí " ako kľúče a " Gold " , " Silver " a " bronzové " sú ich hodnoty . Môžete si dvojica kľúč - hodnota zo kdekoľvek inde v programe , ako je napríklad užívateľské InputBox , ovládacie prvky TextBox alebo iné výbery v behu . Pridanie týchto položiek v bloku " try - catch " zaisťuje , že ak sa pokúsite pridať položku s kľúčom , ktorý už v hash tabuľke existuje , to nie je zlyhanie programu .
5
Otvorte " Button2_Click " podprogram a zadajte nasledujúci kód :
( MyHashTable.Count = 0 ) Then
MsgBox ( " Hashtable je prázdny " )
Else
MyHashTable.Remove ( MyHashTable.Count )
End If
Tieto riadky použiť metódu " gróf " , aby zistili , či hash tabuľka je už prázdny. Ak áno , program informuje užívateľa , ak nie, odstraňuje najnovšie položky . Môžete naprogramovať alternatívne spôsoby , ako odstrániť položky z tabuľky hash
6
Otvorte " button3_Click " podprogram a zadajte nasledujúci kód : .
Ak MyHashTable.Count = 0 Then
MsgBox ( " Žiadne položky vo Hashtable " )
Else
i = 0 MyHashTable.Count - 1
MsgBox ( MyHashTable.Keys ( i ) . toString & " , " & MyHashTable.Values ( i ) )
Next i
End If
zistiť Tieto riadky najprv zistiť , či existujú nejaké položky v tabuľke hash . Ak tomu tak nie je , je užívateľ informovaný , že je tabuľka prázdna , inak sa zobrazia všetky dvojíc kľúč - hodnota . Vzhľadom k tomu , hashovacie tabuľky použiť nulové indexovanie , musíte počítať až do tohto hash tabuľky je " počítanie " mínus jedna
7
Otvorte " button4_Click " podprogram a zadajte nasledujúci kód : .
< P > MyHashTable.Clear ( )
Táto metóda vymaže všetky záznamy v tabuľke hash . Nemusíte sa najprv skontrolujte , či je tabuľka prázdna , alebo nie , pretože zrušením prázdnu tabuľku , nespôsobí chybu .