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(rakenduse nimi, jaotis, klahv [, vaikesäte ] )
Funktsiooni GetSetting süntaksil on järgmised argumendid.
| Argument | Kirjeldus |
|---|---|
| rakendusenimi | Nõutav. stringavaldis, mis sisaldab selle rakenduse või projekti nime, mille võtmesätet taotletakse. 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 puudub, eeldatakse, et vaikeväärtus on nullpikkusega string (""). |
Kommentaarid
Kui funktsiooni GetSetting argumentides nimetatud üksusi pole olemas, tagastab GetSettingvaikevää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 lauset SaveSetting rakenduse rakendusenimena määratletud rakenduse Windowsi registrisse (või .ini faili 16-bitisesse Windowsi platvormi) kirjete tegemiseks ja seejärel kasutab funktsiooni GetSetting mõne sätte kuvamiseks. Kuna määratud on vaikeargument , tagastatakse teatud väärtus. Pange tähele, et jaotisenimesid ei saa funktsiooniga GetSetting tuua. 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"