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 avainasetusten ja niiden arvojen luettelon (jotka on alun perin luotu SaveSetting-toiminnolla) sovelluksen syötteestä Windowsin rekisterissä tai (Macintoshissa) sovelluksen alustustiedoston tiedoista.
Syntaksi
GetAllSettings(sovelluksen nimi; osa)
GetAllSettings-funktion syntaksilla on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| sovelluksen nimi | Pakollinen. Merkkijonolauseke, joka sisältää sen sovelluksen tai projektin nimen, jonka avainasetuksia pyydetään. Macintosh-tietokoneella tämä on alustustiedoston tiedostonimi Järjestelmä-kansion Asetukset-kansiossa. |
| osa | Pakollinen. Merkkijonolauseke, joka sisältää sen osan nimen, jonka avainasetuksia pyydetään. GetAllSettings palauttaa muuttujan, jonka sisältö on kaksiulotteinen merkkijonojen matriisi, joka sisältää kaikki määritetyn osan avainasetukset ja niitä vastaavat arvot. |
Huomautuksia
GetAllSettings palauttaa alustamattoman variantin , jos joko appnamea tai osaa 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 tekemiseen Windowsin rekisteriin appname-nimellä määritetylle sovellukselle, ja sen jälkeen käytetään GetAllSettings-toimintoa asetusten näyttämiseen. Huomaa, että sovellusten nimiä ja osien nimiä ei voi noutaa GetAllSettings-sovelluksella. Lopuksi DeleteSetting-lauseke poistaa sovelluksen syötteet.
' 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"