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 tasteindstillinger 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, hvis tasteindstillinger der anmodes om. GetAllSettings returnerer en Variant, hvis indhold er en todimensionel matrix af 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 appname eller section 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 SaveSetting-sætningen til at foretage indtastninger i Windows-registreringsdatabasen for det program, der er angivet som appname, og derefter bruges funktionen GetAllSettings til at få vist indstillingerne. Bemærk, at programnavne og sektionsnavne ikke kan hentes med GetAllSettings. Til sidst fjerner DeleteSetting-sætningen 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"