L'utilisation de l'objet Dictionary avec Visual Basic

IMPORTANT : Cet article est issu d'une traduction automatique réalisée par un logiciel Microsoft et non par un traducteur professionnel. Cette traduction automatique a pu aussi être révisée par la communauté Microsoft grâce à la technologie Community Translation Framework (CTF). Pour en savoir plus sur cette technologie, veuillez consulter la page http://support.microsoft.com/gp/machine-translation-corrections/fr. Microsoft vous propose en effet des articles traduits par des professionnels, des articles issus de traductions automatiques et des articles issus de traductions automatiques révisées par la communauté Microsoft, de manière à ce que vous ayez accès à tous les articles de notre Base de connaissances dans votre langue. Il est important de noter que les articles issus de la traduction automatique, y compris ceux révisés par la communauté Microsoft, peuvent contenir des erreurs de vocabulaire, de syntaxe ou de grammaire. Microsoft ne pourra être tenu responsable des imprécisions, erreurs, ainsi que de tout dommage résultant d’une traduction incorrecte du contenu ou de son utilisation par les clients.

La version anglaise de cet article est la suivante: 187234
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Résumé
Cet article traite de l'utilisation d'un composant à partir de la ScriptingLibrary Microsoft ; l'objet dictionnaire.
Plus d'informations
Le dictionnaire est très similaire à l'objet de Collection dans bothfunctionality et l'objectif. Le dictionnaire, toutefois, offre de somefunctionality qui n'est pas disponible avec une Collection. Thesefeatures sont les suivantes :
  • L'option pour spécifier une méthode de comparaison de clés. Ainsi, pour une clé respectant la casse, par exemple.
  • Une méthode permettant de déterminer si un objet existe dans un dictionnaire.
  • Une méthode pour l'extraction de toutes les clés dans un tableau.
  • Une méthode permettant d'extraire tous les éléments dans un tableau.
  • Procédé de modification d'une valeur de clé.
  • Une méthode pour supprimer tous les éléments du dictionnaire.
  • Les clés de dictionnaire ne sont pas limitées à un type de données chaîne.
Remarque : Une différence importante entre la Collection d'objets et l'objet de la theDictionary est le comportement de la propriété Item. Si vous utilisez la propriété Item pour référencer une clé qui n'existe pas dans une Collection, vous willreceive une erreur. Si vous utilisez la propriété Item pour faire référence à un nonexistentKey dans un dictionnaire, cette clé sera être ajoutée au dictionnaire. TheExists méthode permet de déterminer si une clé est présente dans aDictionary.

L'objet de dictionnaire est un composant de la bibliothèque de Microsoft Scripting, qui n'est pas livré avec Visual Basic version 5.0 ou ultérieure. Vous pouvez obtainthe bibliothèque de Microsoft Scripting (SCRRUN. DLL) en installant un des packages de réticules du centre :
   Windows Script Host   Windows NT Option Pack   IIS 3.0   Scripting 3.1 upgrade.				

Exemple pas à pas

  1. Démarrez un nouveau projet EXE standard dans Visual Basic. (Assurez-vous que la fenêtre exécution est affichée). Form1 est créé par défaut.
  2. Ajoutez une référence à Microsoft Scripting Runtime.
  3. Ajoutez un module standard au projet.
  4. Dans le menu projet, sélectionnez Project1.Properties et changer l'objet Startup sur Sub Main.
  5. Insérez le code suivant dans Module1 :
          Option Explicit      Dim dict As Dictionary      Sub Main()      Dim keyArray, itemArray, element      Set dict = New Dictionary      With dict         'set compare mode         .CompareMode = BinaryCompare         'add item using named arguments         .Add Key:="mike", Item:=22         'add item without named arguments         .Add "joe", 33         'case sensitivity and Exists method         'does MIKE exist?         Debug.Print "MIKE exists = " & .Exists("MIKE")         'change key value         .Key("mike") = "MIKE"         'does MIKE exist?         Debug.Print "MIKE exists = " & .Exists("MIKE")         'extract keys into variant array         Debug.Print "Array of Keys"         keyArray = .Keys         For Each element In keyArray            Debug.Print element         Next         'extract items into variant array         Debug.Print "Array of Items"         itemArray = .Items         For Each element In itemArray            Debug.Print element         Next         'empty the dictionary         .RemoveAll         Debug.Print dict.Count & " Items in Dictionary"      End With      Set dict = Nothing      End Sub					
  6. Exécutez le projet. Vous devez voir que la recherche initiale de la clé ne fonctionne pas, puis réussit après que la valeur de clé est remplacée par une valeur en majuscules. Ensuite, vous devez voir le contenu des tableaux qui ont été extraits à partir du dictionnaire à l'aide des méthodes clés et éléments variant. Enfin, vous consultez le résultat après vidage du dictionnaire.

Avertissement : Cet article a été traduit automatiquement.

Propriétés

ID d'article : 187234 - Dernière mise à jour : 12/05/2015 08:45:39 - Révision : 5.0

Microsoft Visual Basic 5.0 Édition initiation, Microsoft Visual Basic 5.0 Édition professionnelle, Microsoft Visual Basic 6.0 Édition professionnelle, Microsoft Visual Basic 5.0 Édition Entreprise

  • kbnosurvey kbarchive kbhowto kbscript kbmt KB187234 KbMtfr
Commentaires