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 programa , odsek, ključ [, privzeto ] )
Sintaksa funkcije GetSetting ima te argumente:
Argument |
Opis |
ime programa |
Obvezno. izraz niza vsebuje ime programa ali projekt, 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, se šteje, da je argument privzeto niz ničelne dolžine (""). |
Opombe
Če kateri koli od elementov, imenovanih v argumentih funkcije GetSetting, ne obstaja, funkcija GetSetting vrne privzeto vrednost.
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 za vnos v register sistema Windows (ali datoteka .ini na 16-bitni platformah sistema Windows) za program, določen kot ime programa, nato pa funkcija GetSetting za prikaz ene od nastavitev. Ker je naveden argument privzeto, je vrnitev nekaterih vrednosti 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"