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.
Devolve um valor de definição de chave de uma entrada de aplicação no registo do Windows ou informações (no Macintosh) no ficheiro de inicialização da aplicação.
Sintaxe
GetSetting(appname, section, key [, default ] )
A sintaxe da função GetSetting tem estes argumentos:
| Argumento | Descrição |
|---|---|
| appname | Obrigatório. Expressão de cadeia que contém o nome da aplicação ou projeto cuja definição de chave é pedida. 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 onde se encontra a definição da chave. |
| chave | Obrigatório. Expressão de cadeia que contém o nome da definição de chave a devolver. |
| predefinição | Opcional. Expressão que contém o valor a devolver se não estiver definido qualquer valor na definição de chave. Se for omitido, assume-se que a predefinição é uma cadeia de comprimento zero (""). |
Observações
Se qualquer um dos itens nomeados nos argumentos GetSetting não existir, GetSetting retorna o valor de padrão.
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 (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. Uma vez que o argumento predefinido está especificado, é garantido que algum valor será devolvido. Observe que os nomes de seção não podem ser recuperados com GetSetting. Finalmente, 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"