Nota: 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 um valor de definição de chave 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
GetSetting ( appname , section, key [, default ] )
A sintaxe da função g GetSettin 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 cuja definição de chave é pedida. No Macintosh, este é o nome de ficheiro do ficheiro 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 a definição de chave é encontrada. |
|
tecla |
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 for definido nenhum valor na definição da chave. Se omitido, default é assumido como uma cadeia de comprimento zero (""). |
Observações
Se algum dos itens com o nome nos argumentos GetSetting não existir, GetSetting devolve o valor predefinido.
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 utiliza primeiro a instrução SaveSetting para fazer entradas no registo do Windows (ou .ini ficheiro em plataformas windows de 16 bits) para a aplicação especificada como appname e, em seguida, utiliza a função GetSetting para apresentar uma das definições. Uma vez que o argumento predefinido é especificado, é garantido que algum valor é devolvido. Tenha em atenção que os nomes das secções não podem ser obtidos com GetSetting. Por fim, a instrução DeleteSetting remove todas as entradas da aplicação.
' 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"
