Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".
Grąžina rakto parametro reikšmę iš programos įrašo Windows registre arba (Macintosh) informacijos programos inicijavimo faile.
Sintaksė
GetSetting ( appname , section, key [, default ] )
Funkcijos GetSetting sintaksė turi tokius argumentus:
Argumentas |
Aprašas |
taikomosios programos pavadinimas |
Būtinas. eilutės išraiška, kuriame yra taikomosios programos arba projekto, kurio rakto parametro prašoma, pavadinimas. Macintosh kompiuteryje tai yra inicijavimo failo vardas aplanke Nuostatos, kuris yra aplanke Sistema. |
skyrius |
Būtinas. Eilutės reiškinys, kuriame yra sekcijos, kurioje rastas rakto parametras, pavadinimas. |
klavišas |
Būtinas. Eilutės reiškinys, kuriame yra pateikiamo rakto parametro pavadinimas. |
numatytoji reikšmė |
Pasirinktinis. Išraiška, kurioje yra grąžinama reikšmė, jei rakto parametre nenustatyta reikšmė. Jei nenurodyta, numatomasis nuokrypislaikomas nulinio ilgio eilute (""). |
Pastabos
Jei nėra elementų, nurodytų GetSetting argumentuose, 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 pirmiausia naudojamas sakinys SaveSetting , kad būtų galima įvesti programos, nurodytos kaip appname, įrašus "Windows" registre (arba .ini failą 16 bitų "Windows" platformose), tada naudojama getsetting funkcija, kad būtų rodomas vienas iš parametrų. Nurodytas numatytasis argumentas, todėl kai kuri reikšmė garantuojama, kad bus grąžinta. Atkreipkite dėmesį, 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"