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 vrijednost postavke ključa iz unosa aplikacije u registar sustava Windows ili (na Macintosh) informacijama u datoteci za inicijalizaciju aplikacije.
Sintaksa
GetSetting ( naziv aplikacije , sekcija, tipka [, zadano ] )
Sintaksa funkcije GetSettin g sadrži ove argumente:
Argument |
Opis |
naziv aplikacije |
Obavezno. nizovni izraz koji sadrži naziv aplikacije ili projekta čija je postavka ključa zatražena. Na macintoshu to je naziv datoteke inicijalizacije u mapi Preference u mapi Sustav. |
odjeljak |
Obavezno. Nizovni izraz koji sadrži naziv sekcije u kojoj se nalazi postavka tipke. |
tipka |
Obavezno. Nizovni izraz koji sadrži naziv postavke tipke za vraćanje. |
zadano |
Neobavezno. Izraz koji sadrži vrijednost koja će se vratiti ako u postavkama ključa nije postavljena nijedna vrijednost. Ako se izostavi, pretpostavlja se daje def ault niz nulte duljine (""). |
Napomene
Ako bilo koja stavka s nazivom u argumentu GetSetting ne postoji, GetSetting vraća vrijednost zadane vrijednosti.
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 (ili .ini datoteku na 16-bitnim platformama sustava Windows) za aplikaciju navedenu kao naziv aplikacije, a zatim pomoću funkcije GetSetting prikazuje jednu od postavki. Budući da je naveden zadani argument, za neke se vrijednosti jamči da će se vratiti. Imajte na umu da se nazivi sekcija ne mogu dohvatiti pomoću značajke GetSetting. Naposljetku , naredba DeleteSetting uklanja sve unose aplikacije.
' Variant to hold 2-dimensional array returned
' by GetSetting. Dim MySettings As Variant ' Place some settings in the registry. SaveSetting "MyApp","Startup", "Top", 75 SaveSetting "MyApp","Startup", "Left", 50 Debug.Print GetSetting(appname := "MyApp", _ section := "Startup", _ key := "Left", default := "25") DeleteSetting "MyApp", "Startup"