Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna um valor de configuração de chave da entrada de um aplicativo no Registro do Windows ou (no Macintosh) informações no arquivo de inicialização do aplicativo.
Sintaxe
GetSetting(appname, section, key, [ default ])
A sintaxe da função GetSetting tem estes argumentos nomeados:
| Sair | Descrição |
|---|---|
| appname | Obrigatório. Expressão de cadeia de caracteres contendo o nome do aplicativo ou projeto cuja configuração de chave é solicitada. No Macintosh, este é o nome do arquivo de inicialização na pasta Preferências na pasta Sistema. |
| section | Obrigatório. Expressão de cadeia de caracteres que contém o nome da seção em que a configuração de chave é encontrada. |
| key | Obrigatório. Expressão de cadeia de caracteres contendo o nome da configuração de chave a ser retornada. |
| default | Opcional. Expressão que contém o valor a retornar se nenhum valor for definido na configuração da chave. Se omitido, default será considerado uma cadeia de comprimento zero (""). |
Comentários
Se algum dos itens nomeados nos argumentos GetSetting não existir, GetSetting retornará o valor de default.
Exemplo
Esse exemplo usa primeiro a instrução SaveSetting para fazer entradas no Registro do Windows (ou .ini arquivo em plataformas Windows de 16 bits) para o aplicativo especificado como appname e, em seguida, usa a função GetSetting para exibir uma das configurações. Como o argumento padrão é especificado, é garantido que algum valor seja retornado. Observe que os nomes de seção não podem ser recuperados com GetSetting. Por fim, a instrução DeleteSetting remove todas as entradas do aplicativo.
' Variant to hold 2-dimensional array returned by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.