GetAllSettings-funktio

Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytettävissä, jos Microsoft Jet Expression -palvelu toimii eristetyssä tilassa, joka estää mahdollisesti vahingollisten lausekkeiden ratkaisemisen. Lisätietoja eristetystä tilasta saat ohjeesta käyttämällä hakusanaa "eristetty tila".

Palauttaa avainasetusten ja niiden arvojen luettelon (luotu alun perin SaveSetting-lauseella) Windowsin rekisterissä olevasta sovelluksen merkinnästä tai (Macintoshissa) sovelluksen alustustiedoston tiedoista.

Syntaksi

GetAllSettings(sovelluksennimi, osa)

GetAllSettings-funktion syntaksilla on seuraavat argumentti:

Argumentti:

Kuvaus:

sovelluksennimi

Pakollinen. merkkijonolauseke, joka sisältää sen sovelluksen tai projekti nimen, jonka avainasetukset pyydetään. Macintoshissa kyseessä on System-kansion Preferences-kansiossa olevan alustustiedoston nimi.

osa

Pakollinen. Merkkijonolauseke, joka sisältää sen osan nimen, jonka avainasetukset pyydetään. GetAllSettings palauttaa Variant-tietotyyppi-tyyppiä olevan arvon, jonka sisältö on kaksiulotteinen merkkijonojen matriisi. Taulukko sisältää kaikki määritetyn osan avainasetukset ja niitä vastaavat arvot.


Huomautuksia

GetAllSettings palauttaa alustamattoman variantin, jos joko argumenttia sovelluksennimi tai osa ei ole.

Esimerkki

Huomautus: Seuraavat esimerkit havainnollistavat tämän funktion käyttämistä Visual Basic for Applications (VBA) -moduulissa. Lisätietoja VBA:n käyttämisestä saat valitsemalla Etsi-ruudun vieressä olevasta avattavasta luettelosta Sovelluskehittäjän opas ja kirjoittamalla hakuruutuun vähintään yhden termin.

Tässä esimerkissä SaveSetting-lauseella lisätään merkintöjä Windowsin rekisteriin sovelluksesta sovelluksennimi. Sen jälkeen asetukset näytetään GetAllSettings-funktiolla. Huomaa, että sovellusten nimiä ja osan nimiä ei voi noutaa GetAllSettings-funktiolla. Lopuksi DeleteSetting-lauseella poistetaan 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"
Kehitä taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×