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 en lista med nyckelinställningar och deras respektive värden (som ursprungligen skapades med SaveSetting) från ett program i Windows-registret eller (på Macintosh)-informationen i programmets initieringsfil.
Syntax
GetAllSettings(appname, section)
Syntaxen för funktionen GetAllSettings har följande argument:
| Argument | Beskrivning |
|---|---|
| appname | Obligatoriskt. Stränguttryck som innehåller namnet på det program eller projekt vars nyckelinställningar 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 vars nyckelinställningar begärs. GetAllSettings returnerar en variant vars innehåll är en tvådimensionell matris med strängar som innehåller alla nyckelinställningar i det angivna avsnittet och motsvarande värden. |
Kommentarer
GetAllSettings returnerar en variant som inte har initierats omappnamn eller avsnitt inte finns.
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 för programmet som anges som appnamn och sedan används funktionen GetAllSettings för att visa inställningarna. Observera att programnamn och avsnittsnamn inte kan hämtas med GetAllSettings. Slutligen tar DeleteSetting-instruktionen bort programmets poster.
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"