Bemærk
Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.
Returnerer en liste over nøgleindstillinger og deres respektive værdier (oprindeligt oprettet med SaveSetting) fra et programs post i Windows-registreringsdatabasen eller (på Macintosh) oplysninger i programmets initialiseringsfil.
Syntaks
GetAllSettings(appnavn, sektion)
Syntaksen for funktionen GetAllSettings har disse argumenter:
| Argument | Beskrivelse |
|---|---|
| appnavn | Påkrævet. Strengudtryk, der indeholder navnet på det program eller projekt, hvis nøgleindstillinger der anmodes om. På Macintosh er dette filnavnet på initialiseringsfilen i mappen Indstillinger i mappen System. |
| sektion | Påkrævet. Strengudtryk, der indeholder navnet på den sektion, hvor der anmodes om nøgleindstillinger. GetAllSettings returnerer en variant, hvis indhold er en todimensional matrix med strenge, der indeholder alle nøgleindstillingerne i den angivne sektion og deres tilsvarende værdier. |
Bemærkninger
GetAllSettings returnerer en ikke-initialiseret variant , hvis enten appnavn eller sektion ikke findes.
Eksempel
Bemærk
Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges først sætningen SaveSetting til at angive poster i Windows-registreringsdatabasen for det program, der er angivet som appnavn, og derefter bruge funktionen GetAllSettings til at vise indstillingerne. Bemærk, at programnavne og sektionsnavne ikke kan hentes med GetAllSettings. Til sidst fjerner sætningen DeleteSetting programmets poster.
' 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"