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, avainasetus [, oletus ] )
GetSettin g-funktion syntaksilla on seuraavat argumentit:
|
Argumentti |
Kuvaus |
|
sovelluksen nimi |
Pakollinen. merkkijonolauseke 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, oletuksen odotetaan olevan tyhjä merkkijono (""). |
Huomautuksia
Jos GetSetting-argumenteissa nimettyä mitään 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 syötteiden lisäämiseksi Windows-rekisteriin (tai .ini-tiedoston 16-bittisiin Windows-käyttöjärjestelmiin) appname-funktiona määritetylle sovellukselle, ja näyttää sitten yhden asetuksista GetSetting-funktion avulla. Koska oletus-argumentti on määritetty, on varmaa, että jokin arvo palautetaan. Huomaa, että osan nimiä ei voida noutaa GetSetting-funktion avulla. 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"
