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 pagrindinių parametrų ir atitinkamų jų reikšmių (sukurtų naudojant SaveSetting) sąrašą iš programos įrašo Windows registre arba (Macintosh kompiuteryje) informacijos programos inicijavimo faile.
Sintaksė
GetAllSettings ( appname , section )
Funkcijos GetAllSettings sintaksė turi tokius argumentus:
|
Argumentas |
Aprašas |
|
taikomosios programos pavadinimas |
Būtinas. Eilutės reiškinys, kuriame yra programos arba projektas, kurios raktų parametrų prašoma, pavadinimas. Macintosh kompiuteryje tai yra inicijavimo failo vardas aplanke Nuostatos, kuris yra aplanke Sistema. |
|
skyrius |
Būtinas. String expression containing the name of the section whose key settings are requested. GetAllSettings pateikia variantą, kurio turinys yra dvimatis eilučių, kuriose yra visi nurodytos sekcijos pagrindiniai parametrai ir atitinkamos jų reikšmės, masyvas. |
Pastabos
GetAllSettings pateikia neinicijuotą variantą , jei nėra programėlės pavadinimo arba sekcijos .
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, tada naudoti funkciją GetAllSettings parametrams rodyti. Atkreipkite dėmesį, kad programų pavadinimų ir sekcijų pavadinimų negalima gauti naudojant GetAllSettings. Galiausiai sakinys DeleteSetting pašalina programos įrašus.
' 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"
