Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća vrijednost postavke ključa iz unosa aplikacije u registru sustava Windows ili informacija (na računalu Macintosh) u datoteci za inicijalizaciju aplikacije.
Sintaksa
GetSetting(nazivaplikacije, odjeljak, ključ [, zadano ] )
Sintaksa funkcije GetSetting 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 računalu Macintosh to je naziv datoteke za inicijalizaciju u mapi Preferences (Preference) u mapi System. |
| odjeljak | Obavezno. Nizovni izraz koji sadrži naziv sekcije u kojoj se nalazi postavka ključa. |
| ključ | Obavezno. Nizovni izraz koji sadrži naziv postavke ključa koja će biti vraćena. |
| zadano | Neobavezno. Izraz koji sadrži vrijednost koja se vraća ako u postavci ključa nije postavljena vrijednost. Ako se izostavi, pretpostavlja se da je zadani niz nulte duljine (""). |
Napomene
Ako neka od stavki navedenih u argumentima funkcije GetSetting ne postoji, funkcija GetSetting vraća vrijednost zadana.
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 unos unosa u registar sustava Windows (ili .ini datoteci na 16-bitnim platformama sustava Windows) za aplikaciju navedenu kao appname, a zatim pomoću funkcije GetSetting prikazuje jednu od postavki. Budući da je naveden zadani argument, zajamčeno će biti vraćena neka vrijednost. Imajte na umu da nazive sekcija nije moguće dohvatiti pomoću funkcije 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"