Wednesday, June 29, 2022

GetAllSettings-Funktion

Hinweis: Die in diesem Thema beschriebenen Funktionen, Methoden, Objekte oder Eigenschaften sind deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandkastenmodus ausgeführt wird, wodurch die Auswertung potenziell unsicherer Ausdrücke verhindert wird. Um weitere Informationen zum Sandbox-Modus zu erhalten, suchen Sie in der Hilfe nach „Sandbox-Modus".

Gibt eine Liste der Schlüsseleinstellungen und ihrer 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 , Abschnitt )

Die Syntax der GetAllSettings- Funktion hat die folgenden Argumente:

Streit

Beschreibung

App Name

Erforderlich. Zeichenfolgenausdruck, der den Namen der Anwendung oder des Projekts enthält, dessen Schlüsseleinstellungen angefordert werden. Auf dem Macintosh ist dies der Dateiname der Initialisierungsdatei im Ordner „Preferences" im Ordner „System".

Sektion

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 von Zeichenfolgen ist, das alle Schlüsseleinstellungen im angegebenen Abschnitt und ihre entsprechenden Werte enthält.


Bemerkungen

GetAllSettings gibt eine nicht initialisierte Variante zurück, wenn Appname oder Abschnitt nicht vorhanden sind.

Beispiel

Hinweis: Die folgenden Beispiele veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste neben Suchen aus und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

Dieses Beispiel verwendet zuerst die SaveSetting -Anweisung , um Einträge in der Windows-Registrierung für die als appname angegebene Anwendung vorzunehmen, und verwendet dann die GetAllSettings -Funktion, um die Einstellungen anzuzeigen. Beachten Sie, dass Anwendungsnamen 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"

No comments:

Post a Comment