Pastaba
Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė išjungiama, jei "„Microsoft“ Jet" reiškinių tarnyba veikia smėlio dėžės režimu, kuris neleidžia įvertinti potencialiai nesaugių reiškinių. Daugiau informacijos apie smėlio dėžės režimą ieškokite žinyne "smėlio dėžės režimas".
Grąžina rakto parametro reikšmę iš taikomosios programos įrašo "Windows" registre arba ("Macintosh") informaciją programos inicijavimo faile.
Sintaksė
GetSetting(programėlės pavadinimas, skyrius, raktas [, numatytasis ] )
Funkcijos GetSetting sintaksė turi tokius argumentus:
| Argumentas | Aprašymas |
|---|---|
| programos pavadinimas | Būtinas. Eilutės reiškinys, kuriame yra programos arba projekto, kurio rakto parametras reikalingas, pavadinimas. "Macintosh" tai yra inicijavimo failo vardas sistemos aplanko aplanke Nuostatos pavadinimas. |
| skyrius | Būtinas. Eilutės reiškinys, kuriame yra sekcijos, kurioje yra rakto parametras, pavadinimas. |
| klavišas | Būtinas. Eilutės reiškinys, kuriame yra grąžintino rakto parametro pavadinimas. |
| numatytoji reikšmė | Pasirinktinis. Reiškinys, kuriame yra grąžintina reikšmė, jei rakto parametre nenustatyta jokia reikšmė. Jei ji nenurodyta, laikoma, kad numatytoji reikšmė yra nulinio ilgio eilutė (""). |
Pastabos
Jei kurio nors iš " GetSetting " argumentuose nurodytų elementų nėra, "GetSetting " grąžina numatytąją reikšmę.
Pavyzdys
Pastaba
Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje sakinys SaveSetting pirmiausia naudojamas įrašams "Windows" registre (arba .ini faile 16 bitų "Windows" platformose) atlikti taikomajai programai, nurodytai kaip appname, o tada naudojama funkcija GetSetting vienam iš parametrų parodyti. Kadangi nurodytas numatytasis argumentas, garantuotai bus grąžinta kokia nors reikšmė. Atminkite, kad naudojant "GetSetting" negalima gauti sekcijų pavadinimų. Galiausiai, sakinys DeleteSetting pašalina visus programos įrašus.
' 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"