Clase Dictionary (Scripting VBA)

Objeto que almacena pares de clave/elemento de datos.

Add

Agrega un par de clave y elemento a un objeto Dictionary .

Se produce un error si la clave ya existe.

Add (Key, Item)

Arguments

Estos son los argumentos con nombre :

Key (Variant) - La clave asociada a un elemento que se va a agregar.

Item (Variant) - El elemento asociado a una clave que se va a agregar.

CompareMode

Establece y devuelve el modo de comparación para comparar claves de cadena en un objeto Dictionary .

Valores posibles son BinaryCompare - Lleva a cabo una comparación binaria, DatabaseCompare - Solo Microsoft Access. Realiza una comparación que se basa en la información de la base de datos, TextCompare - Lleva a cabo una comparación textual.

Se produce un error si intenta cambiar el modo de comparación de un objeto Dictionary que ya contiene datos. La propiedad CompareMode usa los mismos valores que el argumento compare para la función StrComp. Los valores mayores que 2 pueden usarse para hacer referencia a comparaciones mediante identificadores de configuración regional (LCID) específicos.

Count

Devuelve un Long (Long Integer) que contiene el número de elementos de una colección o un objeto Dictionary . Solo lectura.

El siguiente código muestra el uso de la propiedad 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

Devuelve true si existe una clave especificada en el objeto Dictionary ; False en caso contrario.

Exists (Key)

Key: Valor de Key que se está buscando en el objeto Dictionary.

Items

Devuelve una matriz que contiene todos los elementos de un objeto Dictionary .

El siguiente código ilustra el uso del método 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

Establece una clave en un objeto Dictionary .

Si no se encuentra la clave al cambiar una clave, se producirá un error en tiempo de ejecución.

Key (Key)

Key: Valor clave que se va a cambiar.

Keys

Devuelve una matriz que contiene todas las claves existentes en un objeto Dictionary .

El código siguiente ilustra el uso del método 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

Quita un miembro de una colección o quita un control de un marco, Páginao formulario.

Este método elimina cualquier control agregado en tiempo de ejecución. Sin embargo, si se intenta eliminar un control que se agregó en tiempo de diseño se producirá un error.

Remove (Key)

Key: Posición o índice de un miembro de una colección. Puede tratarse de un valor numérico o de una cadena. En el primer caso, el valor mínimo es cero, y el máximo es una unidad inferior al número de miembros de la colección. Si el valor es una cadena, debe corresponder al nombre de un miembro válido.

RemoveAll

El método RemoveAll quita todos los pares de elementos de clave de un objeto Dictionary .

El siguiente código muestra el uso del método 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