Nota
A função, método, objeto ou propriedade descrita neste tópico será desativada se o Serviço Microsoft Jet Expression estiver em execução no modo sandbox, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo sandbox, pesquise "modo sandbox" na Ajuda.
Retorna uma lista de configurações de chave e seus respectivos valores (originalmente criados com SaveSetting) de uma entrada de aplicativo no registro do Windows ou (no Macintosh) informações no arquivo de inicialização do aplicativo.
Sintaxe
GetAllSettings(appname, section)
A sintaxe da função GetAllSettings tem estes argumentos:
| Argumento | Descrição |
|---|---|
| appname | Obrigatório. Expressão de cadeia que contém o nome da aplicação ou projeto cujas definições de chave são pedidas. No Macintosh, este é o nome do arquivo de inicialização na pasta Preferências na pasta Sistema. |
| secção | Obrigatório. Expressão de cadeia que contém o nome da secção cujas definições de chave são pedidas. GetAllSettings retorna uma Variant cujo conteúdo é uma matriz bidimensional de cadeias de caracteres contendo todas as configurações de chave na seção especificada e seus valores correspondentes. |
Observações
GetAllSettings retorna uma Variant não inicializada se appname ou section 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 como 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 usa a instrução SaveSetting para fazer entradas no registro do Windows para o aplicativo especificado como appname e, em seguida, usa a função GetAllSettings para exibir as configurações. Observe que nomes de aplicativos e nomes de seção não podem ser recuperados com GetAllSettings. Por fim, a instrução DeleteSetting remove as entradas do aplicativo.
' 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"