Märkus.: Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim“.
Tagastab Windowsi registri rakendusekirjest vastava registrivõtme sätte väärtuse või (Macintoshis) rakenduse käivitusfaili teabe.
Süntaks
GetSetting ( rakendusenimi , jaotis, võti [, vaikesäte ] )
Funktsiooni GetSetting süntaksil on järgmised argumendid.
|
Argument |
Kirjeldus |
|
rakendusenimi |
Nõutav. Rakenduse või projekti, mille registrivõtme sätet taotletakse, nimetust sisaldav stringavaldis. Macintoshi korral on selleks kaustas „System“ („Süsteem“) asuvas kaustas „Preferences“ („Eelistused“) oleva käivitusfaili nimi. |
|
jaotis |
Nõutav. Registrivõtme sätte asukohaks oleva jaotise nimetust sisaldav stringavaldis. |
|
võti |
Nõutav. Tagastatava registrivõtme nimetust sisaldav stringavaldis. |
|
vaikesäte |
Valikuline. Stringavaldis, mis sisaldab tagastatavat väärtust juhul, kui registrivõtme sätte väärtust pole määratud. Kui see ära jäetakse, eeldatakse, et vaikesäte on nullpikkusega string (""). |
Kommentaarid
Juhul kui funktsiooni GetSetting argumentides nimetatud üksusi pole, tagastab GetSettingvaikesätte väärtuse.
Näide
Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites kasutatakse esmalt Windowsi registris või 16-bitise Windowsi platvormi käivitusfailis (.ini) rakenduse rakendusenimi kirjete tegemiseks lauset SaveSetting ning seejärel ühe sätte kuvamiseks funktsiooni GetSetting. Kuna määratud on väärtus vaikesäte, tagastatakse mõni väärtus kindlasti. Võtke arvesse, et jaotise nimetusi funktsiooniga GetSetting tuua ei saa. Lõpuks eemaldatakse lauset DeleteSetting kasutades kõik rakenduse kirjed.
' 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"
