Como usar a função GetSetting no VBA?

A função `GetSetting` no VBA (Visual Basic for Applications) é usada para obter valores de configurações salvos no registro do Windows. Essa função é útil para recuperar preferências ou configurações que seu aplicativo salvou anteriormente, geralmente usando a função `SaveSetting`.

A sintaxe da função `GetSetting` é a seguinte:

GetSetting(appname As String, section As String, key As String, [default As String]) As String

appname: O nome do aplicativo ou projeto que salvou a configuração.
section: A seção da configuração. Isso funciona como uma categorização interna para suas configurações.
key: A chave específica dentro da seção cuja configuração você deseja obter.
default: (Opcional) O valor a ser retornado caso a chave especificada não seja encontrada. Se não for especificado, uma string vazia será retornada por padrão.

Exemplo de Uso

Considere que você deseja recuperar uma configuração previamente salva que armazena a preferência de um usuário para a cor de fundo em um formulário:

Sub ExampleGetSetting()
    Dim bgColor As String
    
    ' Obtém a cor de fundo preferida do usuário. Se não houver configuração existente, "White" será usado como padrão.
    bgColor = GetSetting(appname:="MyApp", section:="Preferences", key:="BackgroundColor", default:="White")
    
    ' Exibe a cor de fundo recuperada
    MsgBox "A cor de fundo definida é: " & bgColor
End Sub

Salvar uma Configuração

Para salvar um valor de configuração que você poderá buscar com `GetSetting`, use `SaveSetting`:

Sub ExampleSaveSetting()
    ' Salva a preferência de cor de fundo do usuário no registro
    SaveSetting appname:="MyApp", section:="Preferences", key:="BackgroundColor", setting:="Blue"
End Sub

Importante

  HKEY_CURRENT_USERSoftwareVB and VBA Program Settings<appname><section><key>

As configurações salvas com `SaveSetting` e recuperadas com `GetSetting` são específicas para o usuário e o aplicativo no Windows. Elas são armazenadas no registro, na seguinte chave:
Tenha cuidado ao manipular o registro, pois alterações indevidas podem afetar o funcionamento do sistema.

Espero que isso ajude você a usar a função `GetSetting` em seus projetos VBA!

facebooklinkedin