Funkcija GetAllSettings

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

Napomena : Funkcija, način, objekt ili svojstvo koje su opisane u ovoj temi onemogućeno je ako Microsoft Jet Expression Service izvodi u načinu rada s memorijom za testiranje, što sprječava potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje ključnoj riječi "način rada s memorijom za testiranje" u sustavu pomoći.

Vraća popis ključnih postavki i njihovih vrijednosti (izvorno stvorio SaveSetting) iz unosa aplikacije u registar sustava Windows ili (Macintosh) informacija u datoteci za pokretanje aplikacije.

Sintaksa

GetAllSettings ( appname odjeljak )

Sintaksa funkcije GetAllSettings sadrži sljedeće argumente:

Argument

Opis

appname

Obavezan. Nizovni izraz koji sadrži naziv računala ili projekt čije ključne su postavke zatražene. Na računalu Macintosh to je naziv datoteke za pokretanje u mapi preference u mapi sustava.

sekcije

Obavezan. Nizovniizraz koji sadrži naziv sekcije čije ključne su postavke zatražene. GetAllSettings Vraća varijantu čiji sadržaj je dvodimenzionalnih polje nizova koji sadrže sve ključne postavke u odjeljku navedeni i njihove odgovarajuće vrijednosti.


Napomene

GetAllSettings vraća programa koje nisu inicijalizirane varijante ako appname ili sekcije ne postoji.

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 iskaz SaveSetting za unošenje u registar sustava Windows za aplikacije određene kao appname, a zatim koristi funkcija GetAllSettings za prikaz postavki. Imajte na umu da nazivi aplikacija i nazivi sekcija ne mogu dohvatiti s GetAllSettings. Na kraju, iskaz DeleteSetting uklanja unose aplikacija.

' 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"

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×