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, avain [, oletus ] )
GetSetting-funktion syntaksilla 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, oletusarvon oletetaan olevan tyhjä merkkijono (""). |
Huomautuksia
Jos mitään GetSetting-argumenteissa nimettyä kohdetta ei ole olemassa, 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 Windows-rekisteriin (tai .ini tiedostoon 16-bittisissä Windows-ympäristöissä) sovelluksen nimi-kohdassa määritetylle sovellukselle, ja sen jälkeen jokin asetuksista näytetään GetSetting-funktiolla . Koska oletusargumentti on määritetty, jokin arvo palautetaan taatusti. Huomaa, että osien nimiä ei voida noutaa GetSetting-komennolla. 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"