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".
Pateikia pagrindinių parametrų sąrašą ir atitinkamas jų reikšmes (iš pradžių sukurtas naudojant SaveSetting) iš taikomosios programos įrašo "Windows" registre arba ("Macintosh") informacijos programos inicijavimo faile.
Sintaksė
GetAllSettings(programėlės pavadinimas, sekcija)
Funkcijos GetAllSettings sintaksę sudaro šie argumentai:
| Argumentas | Aprašymas |
|---|---|
| programos pavadinimas | Būtinas. Eilutės reiškinys, kuriame yra programos arba projekto, kurio pagrindiniai parametrai prašomi, pavadinimas. "Macintosh" tai yra inicijavimo failo vardas sistemos aplanko aplanke Nuostatos pavadinimas. |
| skyrius | Būtinas. Eilutės reiškinys , kuriame yra sekcijos, kurios pagrindiniai parametrai prašomi, pavadinimas. GetAllSettings grąžina variantą, kurio turinys yra dvimatis eilučių masyvas, kuriame yra visi nurodytos sekcijos raktų parametrai ir jų atitinkamos reikšmės. |
Pastabos
"GetAllSettings" pateikia neinicijuotą variantą, jei nėra nei appname, nei section.
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 sakinys SaveSetting naudojamas įrašams "Windows" registre padaryti taikomajai programai, nurodytai kaip appname, tada naudojama funkcija GetAllSettings parametrams parodyti. Atminkite, 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"