Hinweis
Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.
Gibt eine Liste der Schlüsseleinstellungen und der entsprechenden Werte (ursprünglich mit SaveSetting erstellt) aus einem Anwendungseintrag in der Windows-Registrierung oder (auf einem Macintosh-Computer) Informationen aus der Initialisierungsdatei der Anwendung zurück.
Syntax
GetAllSettings(appname, section)
Die Syntax der GetAllSettings-Funktion weist die folgenden Argumente auf:
| Argument | Beschreibung |
|---|---|
| appname | Erforderlich. Zeichenfolgenausdruck, der den Namen der Anwendung oder des Projekts enthält, deren Schlüsseleinstellungen angefordert werden. Auf dem Macintosh ist dies der Dateiname der Initialisierungsdatei im Ordner Einstellungen im Ordner System. |
| section | Erforderlich. Zeichenfolgenausdruck, der den Namen des Abschnitts enthält, dessen Schlüsseleinstellungen angefordert werden. GetAllSettings gibt einen Variant-Wert zurück, dessen Inhalt ein zweidimensionales Array von Zeichenfolgen ist, das alle Schlüsseleinstellungen im angegebenen Abschnitt und die entsprechenden Werte enthält. |
Hinweise
GetAllSettings gibt einen nicht initialisierten Variant-Wert zurück, wenn weder appname noch section vorhanden sind.
Beispiel
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird zunächst die SaveSetting-Anweisung verwendet, um Einträge in der Windows-Registrierung für die als App-Name angegebene Anwendung zu erstellen, und dann wird die GetAllSettings-Funktion verwendet, um die Einstellungen anzuzeigen. Beachten Sie, dass Anwendungs- und Abschnittsnamen nicht mit GetAllSettings abgerufen werden können. Schließlich entfernt die DeleteSetting-Anweisung die Einträge der Anwendung.
' 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"