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 värde för nyckelinställningen från ett program i Windows-registret eller (på Macintosh)-informationen i programmets initieringsfil.
Syntax
GetSetting ( appname , section, key [, default ] )
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 det här filnamnet på initieringsfilen i mappen Inställningar i mappen System. |
|
avsnitt |
Obligatoriskt. Stränguttryck som innehåller namnet på avsnittet där nyckelinställningen hittas. |
|
tangent |
Obligatoriskt. Stränguttryck som innehåller namnet på nyckelinställningen som ska returneras. |
|
standard |
Valfritt. Uttryck som innehåller värdet som ska returneras om inget värde anges i nyckelinställningen. Om argumentet utelämnas antas default vara en nollängdssträng (""). |
Kommentarer
Om något av objekten som anges i GetSetting-argumenten inte finns returnerar GetSetting värdet som standard.
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 SaveSetting-instruktionen för att göra poster i Windows-registret (eller .ini fil på 16-bitars Windows-plattformar) för det program som anges som appnamn och använder sedan funktionen GetSetting för att visa en av inställningarna. Eftersom standardargumentet anges returneras garanterat ett visst värde. Observera att avsnittsnamn inte kan hämtas med GetSetting. Slutligen tar DeleteSetting-instruktionen bort alla programposter.
' 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"
