Opomba
V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne vrednost nastavitve ključa iz vnosa programa v registru sistema Windows ali (v računalniku Macintosh) podatke iz inicializacijske datoteke programa.
Sintaksa
GetSetting(ime aplikacije, odsek, ključ [, privzeto ] )
Sintaksa funkcije GetSetting ima te argumente:
| Argument | Opis |
|---|---|
| ime programa | Obvezen. Izraz niza, ki vsebuje ime programa ali projekta, katerega nastavitev ključa je zahtevana. V računalniku Macintosh je to ime inicializacijske datoteke v sistemski mapi Nastavitve. |
| odsek | Obvezno. Izraz niza, ki vsebuje ime odseka, kjer je na voljo nastavitev ključa. |
| ključ | Obvezno. Izraz niza, ki vsebuje ime nastavitve ključa, ki jo želite vrniti. |
| privzeto | Izbirno. Izraz, ki vsebuje vrednost, ki jo želite vrniti, če v nastavitvi ključa ni nastavljena nobena vrednost. Če ga izpustite, program predvideva, da je privzeta vrednost niz ničelne dolžine (""). |
Opombe
Če kateri od elementov, poimenovanih v argumentih »GetSetting «, ne obstaja, vrne funkcija GetSetting vrednost privzete vrednosti.
Primer
Opomba
V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru je najprej uporabljena izjava »SaveSetting «, da se v register sistema Windows (ali .ini datoteka na 16-bitni platformah sistema Windows) vnesejo za program, določen kot ime programa, nato pa funkcija GetSetting prikaže eno od nastavitev. Ker je privzeti argument določen, bo določena vrednost zagotovljena. Upoštevajte, da imen odsekov ni mogoče pridobiti s funkcijo GetSetting. Na koncu izjava DeleteSetting odstrani vse vnose programa.
' 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"