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 või (Macintoshis) rakenduse lähtestamisfailist võtmesätete loendi ja nende vastavad väärtused (algselt loodud funktsiooniga SaveSetting).
Süntaks
GetAllSettings ( rakenduse nimi , jaotis )
Funktsiooni GetAllSettings süntaksil on järgmised argumendid.
|
Argument |
Kirjeldus |
|
rakendusenimi |
Nõutav. Stringavaldis, mis sisaldab rakenduse nime või projekt, mille võtmesätteid taotletakse. Macintoshi korral on selleks kaustas „System“ („Süsteem“) asuvas kaustas „Preferences“ („Eelistused“) oleva käivitusfaili nimi. |
|
jaotis |
Nõutav. String expression , mis sisaldab selle jaotise nime, mille võtmesätteid taotletakse. GetAllSettings tagastab variandi, mille sisu on kahemõõtmeline massiiv stringidest, mis sisaldavad kõiki määratud jaotise võtmesätteid ja vastavaid väärtusi. |
Kommentaarid
GetAllSettings tagastab lähtestamata variandi , kui rakenduse nime või jaotist pole olemas.
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 , et teha Windowsi registris kirjeid rakendusele, mis on määratud kui rakenduse nimi, ja seejärel kasutab sätete kuvamiseks funktsiooni GetAllSettings . Pange tähele, et rakendusenimesid ja jaotisenimesid ei saa funktsiooni GetAllSettings abil tuua. Lõpuks eemaldatakse lause DeleteSetting rakenduse kirjed.
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"
