Napomena: Funkcija, metod, objekat ili vlasništvo opisane u ovoj temi je onemogućeno ako se pokreće Microsoft Jet Expression usluga u okviru "sandbox" režima, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o "sandbox" režimu potražite u okviru pomoći "sandbox režim".
Vraća listu postavki ključeva i odgovarajućih vrednosti (prvobitno kreiranih pomoću sačuvan postavljanja) od unosa aplikacije u Windows registratoru ili (na Macintosh računarima) informacije u datoteci za pokretanje aplikacije.
Sintaksa
GetAllSettings ( APPNAME , odeljak )
Sintaksa funkcije GetAllSettings ima sledeće argumente:
|
Argument |
Opis |
|
APPNAME |
Obavezno. Izraz niske koji sadrži ime aplikacije ili projekat čije postavke ključa se zahtevaju. Na Macintosh računarima, ovo je ime datoteke za pokretanje u fascikli "željene postavke" u sistemskoj fascikli. |
|
odeljak |
Obavezno. Prepresija niske e sa imenom odeljka čije postavke ključa se zahtevaju. GetAllSettings daje varijantu čiji je sadržaj dvodimenzionalna niz struna koja sadrži sve postavke ključa u navedenom odeljku i odgovarajućim vrednostima. |
Napomene
GetAllSettings vraćaju varijantu koja nije pokrenuta ako APPNAME ili odeljak ne postoji.
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 naredbu sačutanje za pravljenje stavki u Windows registratoru za aplikaciju navedenu kao APPNAME, a zatim koristi funkciju GetAllSettings da bi prikazala postavke. Imajte u vidu da imena aplikacija i imena odeljaka ne mogu da se preuzmu pomoću GetAllSettings. Na kraju, naredba Deletepodešavanje uklanja unose stavki.
' 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"
