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 nøgleindstillingsværdi fra et programs post i Windows-registreringsdatabasen eller (på Macintosh) oplysninger i programmets initialiseringsfil.
Syntaks
GetSetting(appnavn, sektion, nøgle [, standard ] )
Syntaksen for funktionen GetSetting har disse argumenter:
| Argument | Beskrivelse |
|---|---|
| appnavn | Påkrævet. strengudtryk, der indeholder navnet på det program eller projekt, hvis nøgleindstilling 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 nøgleindstillingen findes. |
| Nøglen | Påkrævet. Strengudtryk, der indeholder navnet på den nøgleindstilling, der skal returneres. |
| standard | Valgfrit. Udtryk, der indeholder den værdi, der skal returneres, hvis der ikke er angivet nogen værdi i nøgleindstillingen. Hvis det udelades, forudsættes standard at være en streng af længden nul (""). |
Bemærkninger
Hvis nogen af elementerne i argumenterne GetSetting ikke findes, returnerer GetSettingstandardværdien.
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 (eller .ini fil på 16-bit Windows-platforme) for det program, der er angivet som appnavn, og bruger derefter funktionen GetSetting til at vise en af indstillingerne. Da standardargumentet er angivet, vil der med garanti blive returneret en værdi. Bemærk, at sektionsnavne ikke kan hentes med GetSetting. Til sidst fjerner sætningen DeleteSetting alle programmets poster.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"