GetAllSettings-Funktion

Artikel
09/16/2024

Gibt eine Liste der Schlüsseleinstellungen und deren entsprechenden Werte (ursprünglich mit SaveSetting erstellt) aus dem Eintrag einer Anwendung in der Windows-Registrierung oder (auf dem Macintosh) Informationen in der Initialisierungsdatei der Anwendung zurück.

Syntax

GetAllSettings(appname, section)

Die Syntax der GetAllSettings-Funktion hat folgende benannten Argumente:

Bestandteil	Beschreibung
appname	Erforderlich. Zeichenfolgenausdruck, der den Namen der Anwendung oder des Projekts enthält, deren/dessen Schlüsseleinstellungen angefordert werden. Unter Macintosh ist dies der Dateiname der Initialisierungsdatei im Ordner "Einstellungen" im Systemordner.
section	Erforderlich. Zeichenfolgenausdruck, der den Namen des Abschnitts enthält, dessen Schlüsseleinstellungen angefordert werden. GetAllSettings gibt eine Variante zurück, deren Inhalt ein zweidimensionales Array aus Zeichenfolgen ist, das alle Schlüsseleinstellungen im abgegebenen Abschnitt und ihre entsprechenden Werte enthält.

Hinweise

GetAllSettings gibt eine nicht initialisierte Variante zurück, wenn entwederAppName oder Abschnitt nicht vorhanden ist.

Beispiel

In diesem Beispiel wird zuerst die SaveSetting-Anweisung verwendet, um Einträge in der Windows-Registrierung für die als App-Name angegebene Anwendung vorzunehmen, 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"

Siehe auch

Funktionen (Visual Basic for Applications)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über