Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.
Returnerer en nøkkelinnstillingsverdi fra oppføringen til et program i Windows-registeret eller (på Macintosh)-informasjonen i programmets initialiseringsfil.
Syntaks
GetSetting ( appname , section, key [, default ] )
Syntaksen for funksjonen HentSetting har disse argumentene:
|
Argument |
Beskrivelse |
|
appname |
Obligatorisk. strenguttrykk som inneholder navnet på programmet eller prosjektet der nøkkelinnstillingen er forespurt. På Macintosh er dette filnavnet til initialiseringsfilen i Innstillinger-mappen i System-mappen. |
|
inndeling |
Obligatorisk. Strenguttrykk som inneholder navnet på inndelingen der tasteinnstillingen blir funnet. |
|
tast |
Obligatorisk. Strenguttrykk som inneholder navnet på nøkkelinnstillingen som skal returneres. |
|
standard |
Valgfritt. Uttrykk som inneholder verdien som skal returneres hvis ingen verdi er angitt i nøkkelinnstillingen. Hvis utelatt, antas default å være en tom streng (""). |
Kommentarer
Hvis noen av elementene som er navngitt i GetSetting-argumentene ikke finnes, returnerer GetSettingstandardverdien.
Eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker først SaveSetting-setningen til å gjøre oppføringer i Windows-registeret (eller .ini-filen på 16-biters Windows-plattformer) for programmet som er angitt som appnavn, og bruker deretter GetSetting-funksjonen til å vise en av innstillingene. Fordi standardargumentet er angitt, er det garantert at en verdi returneres. Vær oppmerksom på at inndelingsnavn ikke kan hentes med GetSetting. Til slutt fjerner DeleteSetting-setningen alle oppføringene i programmet.
' 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"
