Como utilizar o objecto de dicionário com o Visual Basic

Traduções de Artigos Traduções de Artigos
Artigo: 187234 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo descreve a utilização de um componente do Microsoft Scripting biblioteca; o objecto de dicionário.

Mais Informação

O dicionário é bastante semelhante ao objecto de conjunto de funcionalidade e objectivo. No entanto, o dicionário, oferece funcionalidades que não está disponível com um conjunto. Algumas destas funcionalidades incluem:
  • A opção para especificar um método de comparação para chaves. Isto permite que uma chave de sensível a maiúsculas e minúsculas, por exemplo.
  • Um método para determinar se existe um objecto de um dicionário.
  • Um método para extrair todas as chaves para uma matriz.
  • Um método para extrair todos os itens numa matriz.
  • Um método para alterar um valor de chave.
  • Um método para remover todos os itens a partir do dicionário.
  • Dicionário teclas não estão limitadas a tipo de dados de cadeia.
NOTA: Uma diferença importante entre o objecto da colecção e o objecto dicionário é o comportamento da propriedade de item. Se utilizar a propriedade de item para fazer referência a uma chave inexistente numa coleção, receberá um erro. Se utilizar a propriedade de item para fazer referência a uma chave inexistente num dicionário, essa chave será adicionado o dicionário. Utilize o método existe para determinar se uma chave está presente num dicionário.

O objecto de dicionário é um componente da biblioteca de processamento de scripts da Microsoft, não é fornecido com o Visual Basic versão 5.0 ou posterior. Pode obter a biblioteca de processamento de scripts da Microsoft (SCRRUN.DLL) instalando um dos seguintes pacotes:
   Windows Script Host
   Windows NT Option Pack
   IIS 3.0
   Scripting 3.1 upgrade.
				

Exemplo passo a passo

  1. Inicie um novo projecto EXE padrão no Visual Basic. (Certifique-se de que é apresentada a janela Immediate.) É criado o Form1 por predefinição.
  2. Adicione uma referência à Microsoft Scripting Runtime.
  3. Adicione um módulo padrão ao projecto.
  4. Do projecto menu, seleccione Project1.Properties e alterar o arranque objectos para sub main.
  5. Insira o seguinte código 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. Execute o projecto. Deverá ver que a procura inicial falhar chave, em seguida, sucede depois do valor da chave é substituído por um valor em maiúsculas. Em seguida, deverá ver o conteúdo das matrizes variante que foram extraídos do dicionário utilizando os métodos chaves e itens. Por último, ver o resultado de esvaziar o dicionário.

Propriedades

Artigo: 187234 - Última revisão: 13 de julho de 2004 - Revisão: 2.1
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palavras-chave: 
kbmt kbhowto kbscript KB187234 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 187234

Submeter comentários

 

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