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 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 nøgleindstillingen findes. |
| nøgle | 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 en værdi i nøgleindstillingen. Hvis det udelades, antages standard at være en tom streng (""). |
Bemærkninger
Hvis nogen af de elementer, der er nævnt i GetSetting-argumenterne , 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 SaveSetting-sætningen til at foretage poster i Windows-registreringsdatabasen (eller .ini fil på 16-bit Windows-platforme) for det program, der er angivet som appname, og derefter bruges funktionen GetSetting til at få vist 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"