Obs!
Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression-tjenesten 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 hjelpen.
Returnerer en liste over nøkkelinnstillinger og deres respektive verdier (opprinnelig opprettet med SaveSetting) fra et programs oppføring i Windows-registeret eller (på Macintosh) informasjon i programmets initialiseringsfil.
Syntaks
GetAllSettings(appnavn, inndeling)
Syntaksen for funksjonen GetAllSettings har disse argumentene:
| Argumenter | Beskrivelse |
|---|---|
| appname | Obligatorisk. Strenguttrykk som inneholder navnet på programmet eller prosjektet der tasteinnstillingene forespørres. På Macintosh er dette filnavnet på initialiseringsfilen i Innstillinger-mappen i systemmappen. |
| inndeling | Obligatorisk. Strenguttrykk som inneholder navnet på inndelingen der tasteinnstillingene forespørres. GetAllSettings returnerer en variant hvis innhold er en todimensjonal matrise av strenger som inneholder alle tasteinnstillingene i den angitte delen og deres tilsvarende verdier. |
Merknader
GetAllSettings returnerer en ikke-initialisert variant hvis verken appname eller section ikke finnes.
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 å lage oppføringer i Windows-registeret for programmet angitt som appname, og deretter brukes GetAllSettings-funksjonen til å vise innstillingene. Vær oppmerksom på at programnavn og inndelingsnavn ikke kan hentes med GetAllSettings. Til slutt fjerner DeleteSetting-setningen programmets oppføringer.
' 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"