Função ObterTodasDefinições

Nota: A função, método, objeto ou propriedade descrito neste tópico é desativada se o Microsoft Jet Expression Service estiver a funcionar em 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" em Ajuda.

Devolve uma lista de definições chave e respetivos valores (originalmente criados com SaveSetting) a partir da entrada de uma aplicação no registo do Windows ou (no Macintosh) no ficheiro de inicialização da aplicação.

Sintaxe

GetAllSettings (appname, secção)

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

Argumento

Descrição

appname

Obrigatório. Expressão de corda que contenha o nome da aplicação ou projeto cujas definições de chave são solicitadas. No Macintosh, este é o nome de ficheiro do ficheiro de inicialização na pasta Preferências na pasta Do Sistema.

secção

Obrigatório. Xpressão de fio contendo o nome da secção cujas definições de chave são solicitadas. O GetAllSettings devolve uma Variante cujo conteúdo é uma matriz bidimensional de cordas contendo todas as definições de chaves na secção especificada e os seus valores correspondentes.


Observações

O GetAllSettings devolve uma Variante não ininitializada se não existir um nome ou secçã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 utiliza primeiro a declaração de SaveSetting para fazer entradas no registo do Windows para a aplicação especificada como nome de appname, em seguida, utiliza a função GetAllSettings para exibir as definições. Note que os nomes de aplicações e nomes de secções não podem ser recuperados com GetAllSettings. Por último, a declaração DeleteSetting remove as entradas da aplicação.

' 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"

Precisa de mais ajuda?

Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×