Observação
A função, método, objeto ou propriedade descrita neste tópico está 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 inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" na Ajuda.
Devolve uma lista de definições chave e os respetivos valores (originalmente criados com SaveSetting) a partir da entrada de uma aplicação no registo do Windows ou (no Macintosh) informações no ficheiro de inicialização da aplicação.
Sintaxe
GetAllSettings(appname, secção)
A sintaxe da função GetAllSettings tem estes argumentos:
| Argumento | Descrição |
|---|---|
| nome da aplicação | 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 de ficheiro do ficheiro de inicialização na pasta Preferências na pasta Sistema. |
| seção | Obrigatório. Expressão de cadeia que contém o nome da secção cujas definições de chave são pedidas. GetAllSettings devolve uma Variante cujo conteúdo é uma matriz bidimensional de cadeias que contém todas as definições de chave na secção especificada e os respetivos valores correspondentes. |
Comentários
GetAllSettings devolve uma Variante não inicializada se o nome da aplicação ou a secção não existirem.
Exemplo
Observação
Exemplos que se seguem demonstram a utilização desta função num módulo Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Programador na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo utiliza primeiro a instrução SaveSetting para fazer entradas no registo do Windows para a aplicação especificada como appname e, em seguida, utiliza a função GetAllSettings para apresentar as definições. Tenha em atenção que os nomes das aplicações e os nomes das secções não podem ser obtidos com GetAllSettings. Por fim, a instrução DeleteSetting remove as entradas da 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"