Ouvrez un nouveau projet Visual Basic. Double-cliquez sur le "Bouton" contrôler quatre fois pour ajouter "Button1" par "Button4" à la forme et les organiser comme vous le souhaitez. Changer la "Texte" Propriété à "Button1" à "Ajouter," pour "Button2" à "Retirer," pour "Button3" à "Montre Tout" et pour "Button4" à "Effacer."
Presse "F7" pour ouvrir la fenêtre de code. Tapez le code suivant sur la première ligne:
Importations System.Collections
Ceci importe l'espace de noms System.Collections dans le projet. Il contient la classe Hashtable.
Ouvrez le "Form1" classe et tapez le code suivant:
Dim MyHashTable As New Hashtable ()
Cela crée un nouvel objet appelé "MyHashTable" qui utilise la classe Hashtable.
Ouvrez le "Button1_Click" sous-programme et tapez le code suivant:
Essayer
MyHashTable.Add ("Premier", "Or")
MyHashTable.Add ("Deuxième", "Argent")
MyHashTable.Add ("Troisième", "Bronze")
Crochet ex comme exception
MessageBox.Show ("Duplicate Key")
Essayez de Fin
Ces lignes utilisent le "Ajouter" méthode pour ajouter trois nouveaux points à la table de hachage avec "Tout d'abord," "Deuxième" et "Troisième" que les touches et "Or," "Argent" et "Bronze" que leurs valeurs respectives. Vous pouvez obtenir les paires clé-valeur de partout ailleurs dans le programme, comme un InputBox utilisateur, les contrôles de zone de texte ou d'autres sélections au moment de l'exécution. L'ajout de ces éléments dans un "try-catch" bloc garantit que si vous essayez d'ajouter un élément avec une clé qui existe déjà dans la table de hachage, il ne plante pas le programme.
Ouvrez le "Button2_Click" sous-programme et tapez le code suivant:
Si (MyHashTable.Count = 0) Ensuite,
MsgBox ("Hashtable est vide")
Autre
MyHashTable.Remove (MyHashTable.Count)
End If
Ces lignes utilisent le "Compter" méthode pour voir si la table de hachage est déjà vide. Si oui, le programme raconte l'par l'utilisateur sinon, il supprime l'élément le plus récent. Vous pouvez programmer d'autres façons de supprimer des éléments de la table de hachage.
Ouvrez le "Button3_Click" sous-programme et tapez le code suivant:
Si MyHashTable.Count = 0 Then
MsgBox ("Aucun élément dans HashTable")
Autre
Pour i = 0 To MyHashTable.Count - 1
MsgBox (MyHashTable.Keys (i) .ToString & ", " & MyHashTable.Values (i))
I Suivant
End If
Ces lignes d'abord vérifier pour voir si des entrées existent dans la table de hachage. Dans le cas contraire, l'utilisateur est informé que la table est empty- contraire, toutes les paires de valeurs clés sont affichés. Comme les tables de hachage utilisent zéro indexation, vous devez compter jusqu'à cette table de hachage de "compter" moins un.
Ouvrez le "Button4_Click" sous-programme et tapez le code suivant:
MyHashTable.Clear ()
Cette méthode supprime toutes les entrées de la table de hachage. Vous ne devez de vérifier d'abord si la table est vide ou pas parce que la compensation une table vide ne provoque pas une erreur.