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 Projekt enthält, deren Schlüsseleinstellungen angefordert werden. Auf dem Macintosh ist dies der Dateiname der Initialisierungsdatei im Ordner Einstellungen im Ordner System. |
section |
Erforderlich. Zeichenfolgen-Ausdruck mit dem Namen des Abschnitts, in dem sich die Schlüsseleinstellungen befindet. GetAllSettings gibt einen Variant-Wert zurück, dessen zweidimensionales Matrix aus Zeichenfolgen alle Schlüsseleinstellungen im angegebenen Abschnitt und die entsprechenden Werte enthält. |
Anmerkungen
GetAllSettings gibt einen nicht initialisierten Variant zurück, wenn entweder appname oder section nicht 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"