GetAllSettings funkcija

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Pastaba : Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris apsaugo nuo galimai nesaugių reiškinių vertinimą. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

Pateikia pagrindinių parametrų ir atitinkamų jų reikšmių (sukurtų naudojant SaveSetting) sąrašą iš programos įrašo "Windows" registre arba (Macintosh) programos inicijavimo faile informaciją.

Sintaksė

GetAllSettings ( appname skyriuje )

GetAllSettings funkcijos sintaksė turi šiuos argumentus:

Argumentas

Aprašas

appname

Būtina. Eilutės išraiška su taikomosios programos arba projektas , kurio pagrindiniai parametrai prašoma pavadinimą. Macintosh, tai failo aplanke nuostatos sistemos aplanke failo vardą.

sekcijos

Būtina. Eilutės eišraiškos , kuriame prašoma kurio pagrindiniai parametrai sekcijos pavadinimą. GetAllSettings grąžina variantą, kurio turinys yra dvimačių masyvas eilutės, kurioje yra visi pagrindiniai parametrai nurodytą ir jų atitinkamų reikšmių.


Pastabos

GetAllSettings grąžina yra Neinicijuotų Variant , jei nėra appname arba sekciją .

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 naudoja sakinio SaveSetting įtraukti įrašą į "Windows" registre nurodytu appnametaikomosios programos, tada naudoja funkciją GetAllSettings Rodyti parametrus. Atkreipkite dėmesį, kad programa vardus ir sekcijų pavadinimai bus prarasti su GetAllSettings. Galiausiai, DeleteSetting sakinį pašalina programos įrašai.

' 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"

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×