Classe Dictionary (Scripting VBA)

Objet qui stocke les paires de clés/éléments de données.

Add

Ajoute une clé et une paire d’éléments à un objet dictionary .

Une erreur se produit si la clé existe.

Add (Key, Item)

Arguments

Les arguments nommés :

Key (Variant) - Clé associée à l'élément ajouté.

Item (Variant) - Élément associé à la clé ajoutée.

CompareMode

Définit et renvoie le mode de comparaison pour comparer des clés de chaîne dans un objet dictionary .

Valeurs possibles sont BinaryCompare, DatabaseCompare, TextCompare.

Une erreur se produit si vous tentez de changer le mode de comparaison d’un objet Dictionary qui contient déjà des données. La propriété CompareMode utilise les mêmes valeurs que l’argument compare de la fonction StrComp. Les valeurs supérieures à 2 peuvent être utilisées pour faire référence à des comparaisons à l’aide d’identificateurs de paramètres régionaux (LCID) spécifiques.

Count

Renvoie un type long (entier long) contenant le nombre d’éléments dans une collection ou un objet dictionary . En lecture seule.

Le code suivant illustre l’utilisation de la propriété Count .

Dim a, d, i             'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     'Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Keys              'Get the keys
For i = 0 To d.Count -1 'Iterate the array
    Print a(i)          'Print key
Next
...

Exists

Renvoie la valeur true si une clé spécifiée existe dans l’objet dictionary ; False dans le cas contraire.

Exists (Key)

Key: Valeur clé recherchée dans l'objet Dictionary.

Items

Renvoie un tableau contenant tous les éléments d’un objet dictionary .

Le code suivant illustre l’utilisation de la méthode Items :

Dim a, d, i             'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Items             'Get the items
For i = 0 To d.Count -1 'Iterate the array
    Print a(i)          'Print item
Next
...

Key

Définit une clé dans un objet dictionary .

Si l’argument key est introuvable lors de la modification d’une clé, une erreur d’exécution se produit.

Key (Key)

Key: Valeur de clé modifiée.

Keys

Renvoie un tableau contenant toutes les clés existantes dans un objet dictionary .

Le code suivant illustre l’utilisation de la méthode Keys :

Dim a, d, i             'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     'Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.keys              'Get the keys
For i = 0 To d.Count -1 'Iterate the array
    Print a(i)          'Print key
Next
...

Remove

Supprime un membre d’une collection ou supprime un contrôle d’un cadre, d’une pageou d’un formulaire.

Cette méthode supprime tous les contrôles ajoutés à l’exécution. Toutefois, la tentative de suppression des contrôles ajoutés au moment de la conception provoquera une erreur.

Remove (Key)

Key: Position d’un membre, ou index, dans une collection. Les valeurs numériques et de type String sont valides. Si la valeur est un nombre, la valeur minimale est zéro et la valeur maximale correspond au nombre de membres de la collection moins un. Si la valeur est une chaîne, elle doit correspondre à un nom de membre valide.

RemoveAll

La méthode RemoveAll supprime toutes les paires clé/élément d’un objet dictionary .

Le code suivant illustre l’utilisation de la méthode RemoveAll .

Dim a, d, i             'Create some variables
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     'Add some keys and items
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
a = d.RemoveAll         'Clear the dictionary