Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća popis postavki ključa i njihovih odgovarajućih vrijednosti (izvorno stvorenih uz SaveSetting) iz unosa aplikacije u registar sustava Windows ili (na Macintosh) informacijama u datoteci za inicijalizaciju aplikacije.
Sintaksa
GetAllSettings ( naziv aplikacije , odjeljak )
Sintaksa funkcije GetAllSettings sadrži sljedeće argumente:
|
Argument |
Opis |
|
naziv aplikacije |
Obavezno. Nizovni izraz koji sadrži naziv aplikacije ili projekt čije su postavke ključa zatražene. Na macintoshu to je naziv datoteke inicijalizacije u mapi Preference u mapi Sustav. |
|
odjeljak |
Obavezno. Niz expression koji sadrži naziv sekcije čije su postavke ključa zatražene. GetAllSettings vraća varijantu čiji je sadržaj dvodimenzionalna polje nizova koji sadrže sve postavke ključa u navedenoj sekciji i njihove odgovarajuće vrijednosti. |
Napomene
GetAllSettings vraća neinicijaliziranu varijantu ako naziv aplikacijeili sekcija 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 za unose u registar sustava Windows za aplikaciju navedenu kao naziv aplikacije, a zatim koristi funkciju GetAllSettings za prikaz postavki. Imajte na umu da se nazivi aplikacija i nazivi sekcija ne mogu dohvatiti pomoću značajke 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"
