Clase Dictionary - diccionario (Scripting VBA)
Objeto que almacena pares de clave/elemento de datos. Para usar una variable de clase Dictionary, primero debe ser instanciado, por ejemplo
Add
Agrega un par de clave y elemento a un objeto Dictionary .
Se produce un error si la clave ya existe.
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 . Posibles valores de retorno 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