GetAllSettings-Funktion

  • Artikel

Gibt eine Liste der Schlüsseleinstellungen und deren jeweiligen 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:

Teil 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.

HinwBemerkungeneise

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

Beispiel

In diesem Beispiel wird zunächst die SaveSetting-Anweisung verwendet, um Einträge in der Windows-Registrierung für die anwendung vorzunehmen, die als App-Name angegeben ist, 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

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.