Obs
Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.
Returnerar ett nyckelinställningsvärde från en programpost i Windows-registret eller (på Macintosh-datorer) information i programmets initieringsfil.
Syntax
GetSetting(programnamn, avsnitt, nyckel [, standard ] )
Syntaxen för funktionen GetSetting har följande argument:
| Argument | Beskrivning |
|---|---|
| appname | Obligatoriskt. Stränguttryck som innehåller namnet på programmet eller projektet vars nyckelinställning begärs. På Macintosh-datorer är detta filnamnet på initieringsfilen i mappen Inställningar i mappen System. |
| avsnitt | Obligatoriskt. Stränguttryck som innehåller namnet på avsnittet där nyckelinställningen finns. |
| nyckel | Obligatoriskt. Stränguttryck som innehåller namnet på nyckelinställningen som ska returneras. |
| standard | Valfritt. Ett uttryck som innehåller värdet som ska returneras om inget värde har angetts i nyckelinställningen. Om argumentet utelämnas antas en sträng med längden noll ("") vara standard. |
Kommentarer
Om något av objekten som namnges i GetSetting-argumenten inte finns returnerar GetSettingvärdet för default.
Exempel
Obs
I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.
I det här exemplet används först instruktionen SaveSetting för att göra poster i Windows-registret (eller .ini fil på 16-bitars Windows-plattformar) för programmet som anges som appname, och använder sedan funktionen GetSetting för att visa en av inställningarna. Eftersom standardargumentet har angetts kommer garanterat något värde att returneras. Observera att avsnittsnamn inte kan hämtas med GetSetting. Slutligen tar DeleteSetting-instruktionen bort alla programmets poster.
' 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"