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"
