Função ObterTodasDefinições

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Nota: A função, método, objeto ou propriedade descritas neste tópico é desativada se o serviço do Microsoft Jet expressão estiver em execução no modo sandbox, que impede a avaliação de expressões potencialmente inseguros. Para obter mais informações sobre o modo sandbox, procure "o modo sandbox" na ajuda.

Devolve uma lista de definições da chave e os valores das respectivas (originalmente criados com SaveSetting) da entrada de uma aplicação no registo do Windows (ou Macintosh) informações no ficheiro de inicialização a aplicação.

Sintaxe

ObterTodasDefinições ( nome secção )

A sintaxe da função ObterTodasDefinições tem os seguintes argumentos:

Argumento

Descrição

nome

Obrigatório. Cadeia da expressão que contém o nome da aplicação ou projeto cujas definições de chaves são solicitadas. No Macintosh, este é o nome de ficheiro do ficheiro inicialização na pasta preferências na pasta do sistema.

secção

Obrigatório. Cadeia "e"xpression que contém o nome da secção cujas definições de chaves são solicitadas. ObterTodasDefinições devolve uma variante cujo conteúdo é uma bidimensional matriz de cadeias que contém todas as definições de chave na secção especificada e os respetivos valores correspondentes.


Observações

ObterTodasDefinições devolve um não inicializados serão variante se nome ou secção não existir.

Exemplo

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo primeiro utiliza a instrução de SaveSetting para tornar as entradas de registo do Windows para a aplicação especificado como nome, em seguida, utiliza a função ObterTodasDefinições para apresentar as definições. Tenha em atenção que a aplicação nomes e os nomes de secção não não possível obter com ObterTodasDefinições. Por fim, a declaração de DeleteSetting remove as entradas a aplicação.

' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×