Napomena
Funkcija, metod, objekat ili svojstvo opisani u ovoj temi onemogućeni su ako je usluga Microsoft Jet Expression Service pokrenuta u režimu "sandbox", što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u pomoći za "režim sandbox".
Vraća listu postavki ključa i njihove odgovarajuće vrednosti (prvobitno kreirane pomoću postavke SaveSetting) iz unosa aplikacije u Windows registratoru ili (sa Macintosh računara) informacija u datoteci za pokretanje aplikacije.
Sintaksa
GetAllSettings(ime aplikacije, odeljak)
Sintaksa funkcije GetAllSettings ima sledeće argumente:
| Argument | Opis |
|---|---|
| ime aplikacije | Obavezno. Izraz niske koji sadrži ime aplikacije ili projekta čije se ključne postavke zahtevaju. Na Macintosh računaru ovo je ime datoteke za pokretanje u fascikli "Željene postavke" u fascikli "Sistem". |
| odeljak | Obavezno. Izraz niske koji sadrži ime odeljka čije se postavke ključeva zahtevaju. GetAllSettings vraća varijantu čiji je sadržaj dvodimenzionalni niz niski koji sadrži sve postavke ključa u navedenom odeljku i njihove odgovarajuće vrednosti. |
Napomene
GetAllSettings vraća nepokrenutu varijantu ako ne postoje bilo appname ili odeljak .
Primer
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer prvo koristi instrukciju SaveSetting da bi unosi u Windows registratoru za aplikaciju navedeni kao appname, a zatim koristi funkciju GetAllSettings za prikaz postavki. Imajte na umu da imena aplikacija i odeljaka nije moguće preuzeti pomoću funkcije GetAllSettings. Na kraju, instrukcija 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"