Função GetAllSettings

Retorna uma lista de configurações de chave e seus respectivos valores (originalmente criados com SaveSetting) da entrada de um aplicativo no Registro do Windows ou (no Macintosh) informações no arquivo de inicialização do aplicativo.

Sintaxe

GetAllSettings(appname, section)

A sintaxe da função GetAllSettings tem estes argumentos nomeados:

Sair Descrição
appname Obrigatório. Expressão de cadeia de caracteres contendo o nome do aplicativo ou projeto cujas configurações de chave são solicitadas. 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 contendo o nome da seção cujas configurações de chave são solicitadas. GetAllSettings retorna uma Variant cujo conteúdo é uma matriz bidimensional de cadeias de caracteres que contém todas as configurações de chave na seção especificada e seus valores correspondentes.

Comentários

GetAllSettings retornará uma Variant não inicializada se o nome do aplicativo ou a seção não existirem.

Exemplo

Esse exemplo usa primeiro a instrução SaveSetting para fazer entradas no Registro do Windows para o aplicativo especificado como appname e, em seguida, usa a função GetAllSettings para exibir as configurações. Observe que nomes de aplicativos e nomes de seção não podem ser recuperados com GetAllSettings. Por fim, a instrução DeleteSetting remove as entradas do aplicativo.

' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
    For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
        Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
    Next intSettings
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.

  • Last updated on