GetAllSettings-funktio

Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.

Palauttaa luettelon avainasetuksista ja niiden arvoista (jotka on alun perin luotu SaveSetting-ohjelmalla)sovelluksen Windows-rekisterissä olevasta merkinnästä tai (Macintoshissa) sovelluksen alustustiedoston tiedoista.

Syntaksi

GetAllSettings ( appname, section )

GetAllSettings-funktion syntaksissa on seuraavat argumentit:

Argumentti

Kuvaus

sovelluksen nimi

Pakollinen. Merkkijonolauseke, joka sisältää sen sovelluksen nimen tai projekti, jonka avainasetuksia pyydetään. Macintosh-tietokoneella tämä on alustustiedoston tiedostonimi Järjestelmä-kansion Asetukset-kansiossa.

osa

Pakollinen. Merkkijonoe-kirjain xpression, joka sisältää sen osan nimen, jonka avainasetuksia pyydetään. GetAllSettings palauttaa variantin, jonka sisältö on kaksiulotteinen matriisi, joka sisältää kaikki määritetyn osan avainasetukset ja niitä vastaavat arvot.


Huomautuksia

GetAllSettings palauttaa alustamättömän variantin, jos sovelluksen nimeä taiosaa ei ole olemassa.

Esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä käytetään ensin SaveSetting-lauseketta merkintöjen lisäämisen windows-rekisteriin sovellukselle, joka on määritetty sovellusnimeksi, ja näyttää sitten asetukset GetAllSettings-funktiolla. Huomaa, että sovellusten nimiä ja osioiden nimiä ei voi noutaa GetAllSettings-sovelluksella. Lopuksi DeleteSetting-lauseke poistaa sovelluksen merkinnät.

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

Tarvitsetko lisäohjeita?

Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin