Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća popis ključnih postavki i njihovih odgovarajućih vrijednosti (izvorno stvorenih pomoću funkcije SaveSetting) iz unosa aplikacije u registru sustava Windows ili (na računalu Macintosh) informacija iz datoteke za inicijalizaciju aplikacije.
Sintaksa
GetAllSettings(naziv aplikacije, odjeljak)
Sintaksa funkcije GetAllSettings sadrži ove argumente:
| Argument | Opis |
|---|---|
| naziv aplikacije | Obavezno. Nizovni izraz koji sadrži naziv aplikacije ili projekta čije se ključne postavke traže. Na računalu Macintosh to je naziv datoteke za inicijalizaciju u mapi Preferences (Preference) u mapi System. |
| odjeljak | Obavezno. Nizovni izraz koji sadrži naziv sekcije čije se postavke tipki zahtijevaju. GetAllSettings vraća vrijednost Variant čiji je sadržaj dvodimenzionalno polje nizova koji sadrži sve ključne postavke u navedenom odjeljku i njihove odgovarajuće vrijednosti. |
Napomene
GetAllSettings vraća neinicijaliziranu varijantu ako naziv aplikacije ili odjeljak ne postoje.
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 u registar sustava Windows unijeli unosi za aplikaciju navedenu kao appname, a zatim se pomoću funkcije GetAllSettings prikazuju postavke. Imajte na umu da nazive aplikacija i sekcija nije moguće dohvatiti pomoću funkcije GetAllSettings. Naposljetku, naredba DeleteSetting uklanja unose 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"