Funkcija GetAllSettings

Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Vraća popis ključnih postavki i njihovih vrijednosti (izvorno stvoreno pomoću servisa SaveSetting) iz unosa aplikacije u registar sustava Windows ili (na Macintoshu) informacije u inicijalizacijskoj datoteci aplikacije.

Sintaksa

GetAllSettings ( apname , sekcija )

Sintaksa funkcije GetAllSettings sadrži sljedeće argumente:

Argument

Opis

appname

Obavezno. Nizovni izraz koji sadrži naziv aplikacije ili projekt čije se ključne postavke zatraže. Na Macintoshu ovo je naziv datoteke inicijalizacije u mapi postavke u mapi sustava.

odjeljak

Obavezno. String ekpresija koja sadrži naziv sekcije čije se ključne postavke zatraže. GetAllSettings Vraća varijantu čiji je sadržaj dvodimenzionalni polje nizova koji sadrže sve postavke ključa u navedenom odjeljku i njihove odgovarajuće vrijednosti.


Napomene

GetAllSettings vraća neinicijaliziranu varijantu ako ne postoji ni appname ili Section .

Primjer

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru najprije koristi naredba SaveSetting da bi se unose u registar sustava Windows naveli kao appname, a zatim koristi funkciju GetAllSettings da bi se prikazale postavke. Imajte na onome da se nazivi aplikacija i nazivi sekcija ne mogu dohvatiti pomoću postavki GetAllSettings. Konačno, naredba DeleteSetting uklanja stavke aplikacije.

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

Potrebna vam je dodatna pomoć?

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

×