Napomena
Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća listu postavki ključa i odgovarajućih vrednosti (prvobitno kreirane pomoću funkcije SaveSetting) iz stavke aplikacije u Windows registratoru ili (na Macintosh računaru) 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 postavke ključa se 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 postavke ključa se zahtevaju. GetAllSettings vraća varijantu čiji je sadržaj ddimenzionalni niz niski koji sadrži sve postavke ključa u navedenom odeljku i njihove odgovarajuće vrednosti. |
Napomene
GetAllSettings daje nepokrenuto varijantu ako ne postoji ime aplikacijeili 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 izraz SaveSetting za unose u Windows registratoru za aplikaciju navedenu kao ime aplikacije , a zatim koristi funkciju GetAllSettings za prikazivanje postavki. Imajte na umu da imena aplikacija i imena odeljaka nije moguće preuzeti pomoću funkcije GetAllSettings. Na kraju, izraz 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"