Classe Dictionary (Scripting VBA)

Objeto que armazena pares de chave/item de dados.

Add

Adiciona um par de chave e item a um objeto Dictionary .

Ocorrerá um erro se a chave já existir.

Add (Key, Item)

Arguments

O seguinte argumento é opcional

Key (Variant) - A chave associada ao item que está sendo adicionado.

Item (Variant) - O item associado à chave que está sendo adicionada.

CompareMode

Define e retorna o modo de comparação para comparar chaves de cadeia de caracteres em um objeto Dictionary .

Os valores possíveis são BinaryCompare, DatabaseCompare, TextCompare.

Ocorrerá um erro se você tentar alterar o modo de comparação de um objeto Dictionary que já contém dados. A Propriedade CompareMode usa os mesmos valores que o argumento Compare para a função StrComp . Valores maiores que 2 podem ser usados para fazer referência a comparações usando IDs de localidade (LCID) específicas.

Count

Retorna um Long Long Integer que contém o número de itens em um objeto de coleção ou Dictionary . Somente leitura.

O código a seguir ilustra o uso da propriedade 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

Retorna true se uma chave especificada existir no objeto Dictionary ; False se não houver.

Exists (Key)

Key: Valor de chave sendo procurado no objeto Dictionary .

Items

Retorna uma matriz que contém todos os itens em um objeto Dictionary .

O código a seguir ilustra o uso do 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

Define uma chave em um objeto Dictionary .

Se a chave não for encontrada ao alterar uma chave, ocorrerá um erro em tempo de execução .

Key (Key)

Key: O valor da chave que está sendo alterado.

Keys

Retorna uma matriz que contém todas as chaves existentes em um objeto Dictionary .

O código a seguir ilustra o uso do 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

Remove um membro de uma coleção ou remove um controle de um frame, páginaou formulário.

Este método exclui qualquer controle que tenha sido adicionado em tempo de execução. No entanto, tentar excluir um controle adicionado no tempo de design resultará em um erro.

Remove (Key)

Key: A posição de um membro, ou índice dentro de um conjunto. Números e cadeias de caracteres são aceitos. Se o valor for um número, o valor mínimo será zero e o máximo será o número de membros em um conjunto menos um. Se o valor for uma cadeia de caracteres, ela precisa corresponder a um nome de membro válido.

RemoveAll

O método RemoveAll remove todos os pares de itens e chave de um objeto Dictionary .

O código a seguir ilustra o uso do 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