Funkcija GetAllSettings

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"

Potrebna vam je dodatna pomoć?

Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala za povratne informacije! Izgleda da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×