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 projekat čije postavke ključa su zahtevane. Na Macintosh računaru ovo je ime datoteke za pokretanje u fascikli Željene postavke u fascikli Sistem. |
odeljak |
Obavezno. XPRESSionniske koja sadrži ime odeljka čije postavke ključa su zahtevane. Funkcija GetAllSettings vraća varijantu čiji je sadržaj dvodimenzionalna niz koja 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"