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 tärkeimmistä asetuksista ja niiden arvoista (jotka on alun perin luotu SaveSetting-toiminnolla) sovelluksen windows-rekisterissä olevasta merkinnästä tai (Macintoshissa) sovelluksen alustustiedostossa olevista tiedoista.
Syntaksi
GetAllSettings ( sovelluksen nimi , osa )
GetAllSettings-funktion syntaksissa on seuraavat argumentit:
Argumentti |
Kuvaus |
sovelluksen nimi |
Pakollinen. Merkkijonolauseke, joka sisältää sen sovelluksen tai projekti nimen, jonka avainasetuksia pyydetään. Macintosh-tietokoneella tämä on alustustiedoston tiedostonimi Järjestelmä-kansion Asetukset-kansiossa. |
osa |
Pakollinen. Merkkijono expression , joka sisältää sen osan nimen, jonka avainasetuksia pyydetään. GetAllSettings palauttaa variantin, 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 sovelluksen nimeä 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 windows-rekisterin syötteiden tekemiseen sovelluksenimeksi määritetylle sovellukselle ja sitten GetAllSettings-funktiota asetusten näyttämiseen. Huomaa, että sovellusten nimiä ja osien nimiä ei voi noutaa GetAllSettings-toiminnolla. 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"