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 liste over nøkkelinnstillinger og tilhørende verdier (opprinnelig opprettet med SaveSetting) fra en oppføring i et program i Windows-registeret eller (på Macintosh)-informasjonen i programmets initialiseringsfil.
Syntaks
GetAllSettings ( appname , section )
Syntaksen for funksjonen GetAllSettings har følgende argumenter:
|
Argument |
Beskrivelse |
|
appname |
Obligatorisk. Strenguttrykk som inneholder navnet på programmet eller prosjekt med de angitte nøkkelinnstillingene. På Macintosh er dette filnavnet til initialiseringsfilen i Innstillinger-mappen i System-mappen. |
|
inndeling |
Obligatorisk. Streng-e-uttrykk som inneholder navnet på inndelingen der tasteinnstillingene er forespurt. GetAllSettings returnerer en variant der innholdet er et todimensjonalt matrise med strenger som inneholder alle nøkkelinnstillingene i den angitte inndelingen og tilhørende verdier. |
Kommentarer
GetAllSettings returnerer en ikke-initialisert variant hvis enten appnavn eller inndeling 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 å gjøre oppføringer i Windows-registeret for programmet som er angitt som appnavn, og bruker deretter GetAllSettings-funksjonen til å vise innstillingene. Vær oppmerksom på at programnavn og inndelingsnavn ikke kan hentes med GetAllSettings. Til slutt fjerner DeleteSetting-setningen oppføringene i programmet.
' 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"
