Comment utiliser l'objet Dictionary avec Visual Basic

Traductions disponibles Traductions disponibles
Numéro d'article: 187234 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article traite de l'utilisation d'un composant à partir de la ScriptingLibrary Microsoft ; l'objet Dictionary.

Plus d'informations

Le dictionnaire est très similaire à l'objet Collection dans bothfunctionality et l'objectif. Le dictionnaire, offre cependant, somefunctionality n'est pas disponible avec une Collection. Thesefeatures sont les suivantes :
  • L'option pour spécifier une méthode de comparaison de clés. Par exemple pour une clef sensible à la casse
  • Une méthode permettant de déterminer si un objet existe dans un dictionnaire.
  • METHODE d'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 permettant de supprimer tous les éléments dans le dictionnaire.
  • Les clés de dictionnaire ne sont pas limitées au type de données chaîne.
Remarque : Une différence importante entre la Collection d'objets et l'objet theDictionary est le comportement de la propriété Item. Si vous utilisez la propriété Item pour faire référence à 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 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é échoue, réussit puis une fois 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 du dictionnaire en utilisant les méthodes clés et éléments variant. Enfin, vous voir le résultat de vider le dictionnaire.

Propriétés

Numéro d'article: 187234 - Dernière mise à jour: jeudi 31 octobre 2013 - Version: 4.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • 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
Mots-clés : 
kbhowto kbscript kbmt KB187234 KbMtfr
Traduction automatique
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
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com