Funktionen GetAllSettings

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Bemærk: Den funktion, metode, objekt eller egenskab, der er beskrevet i dette emne er deaktiveret, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evaluering af potentielt usikre udtryk. Du kan finde flere oplysninger om sandkassetilstand, søge efter "sandkassetilstand" i Hjælp.

Returnerer en liste over tasteindstillinger og deres respektive værdier (oprindeligt oprettet med SaveSetting) fra et programs post i Windows-registreringsdatabasen eller (på Macintosh) oplysninger i programmets initialiseringsfil.

Syntaks

GetAllSettings ( programnavn afsnit )

Syntaksen for funktionen GetAllSettings har følgende argumenter:

Argument

Beskrivelse

appname

Der er påkrævet. Strengudtryk, der indeholder navnet på programmet eller projekt der anmodes om Hvis vigtige indstillinger. På Macintosh er dette filnavnet på initialiseringsfil i mappen indstillinger i mappen System.

section

Der er påkrævet. En streng, eudtryk , der indeholder navnet på den sektion, der anmodes om Hvis vigtige indstillinger. GetAllSettings returnerer en Variant, hvis indhold er en todimensional matrix af strenge, der indeholder alle de vigtigste indstillinger i den angivne sektion og deres tilsvarende værdier.


Bemærkninger

GetAllSettings returnerer en ikke initialiseret Variant, hvis enten programnavn eller sektion ikke findes.

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 anvendes sætningen SaveSetting til at føje poster til Windows-registreringsdatabasen for det program, der er angivet som programnavn, derefter anvendes funktionen GetAllSettings til at få vist indstillingerne. Bemærk, at programnavne og navne på sektioner ikke kan hentes med funktionen GetAllSettings. Endelig fjernes programmets poster med sætningen DeleteSetting.

' 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"

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Del Facebook Facebook Twitter Twitter Mail Mail

Var disse oplysninger nyttige?

Fantastisk! Har du mere feedback?

Hvordan kan vi forbedre det?

Tak for din feedback!

×