Observação
A função, o método, o objeto ou a propriedade descrita neste tópico será desabilitada se o Serviço de Expressão do Microsoft Jet estiver em execução no modo de área restrita, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, pesquise "modo sandbox" na Ajuda.
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:
| Argumento | Descrição |
|---|---|
| Nome do aplicativo | 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. |
| seção | Obrigatório. Expressão de cadeia de caracteres que contém o nome da seção em que a configuração de chave é encontrada. |
| chave | Obrigatório. Expressão de cadeia de caracteres contendo o nome da configuração de chave a ser retornada. |
| padrão | 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 default.
Exemplo
Observação
Os exemplos a seguir demonstram o uso dessa função em um módulo do Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
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"