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 avainasetusarvon sovellussyötteestä Windows-rekisterissä tai (Macintoshissa) tiedot sovelluksen alustustiedostossa.
Syntaksi
GetSetting(sovelluksen nimi, osa, näppäin [, oletus ] )
GetSetting-funktion syntaksissa on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| sovelluksen nimi | Pakollinen. merkkijonolauseke, joka sisältää sen sovelluksen tai projektin nimen, jonka avainasetusta pyydetään. Macintosh-tietokoneella tämä on alustustiedoston tiedostonimi Järjestelmä-kansion Asetukset-kansiossa. |
| osa | Pakollinen. Merkkijonolauseke, joka sisältää sen osan nimen, josta avainasetus löytyy. |
| avainasetus | Pakollinen. Merkkijonolauseke, joka sisältää palautettavan avainasetuksen nimen. |
| oletus | Valinnainen. Palautettavan arvon sisältävä lauseke, jos arvoa ei määritetä avainasetuksessa. Jos se jätetään pois, oletusarvona on tyhjä merkkijono (""). |
Huomautuksia
Jos getsetting-argumenteissa nimettyjä kohteita ei ole, GetSetting palauttaa oletusarvon.
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 (tai .ini tiedostoon 16-bittisessä Windows-ympäristössä) sovelluksen nimeksi määritetylle sovellukselle ja käytetään sitten GetSetting-funktiota jonkin asetuksen näyttämiseen. Koska oletusargumentti on määritetty, jotkin arvot palautetaan varmasti. Huomaa, että osien nimiä ei voi noutaa GetSetting-toiminnolla. Lopuksi DeleteSetting-lauseke poistaa sovelluksen kaikki syötteet.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"