GetSetting-Funktion

  • Artikel

Gibt einen Schlüsseleinstellungswert aus einem Anwendungseintrag in der Windows-Registrierung oder (auf einem Macintosh-Computer) Informationen in der Initialisierungsdatei der Anwendung zurück.

Syntax

GetSetting(appname, section, key, [ default ])

Die Syntax der GetSetting-Funktion hat folgende benannte Argumente:

Teil Beschreibung
appname Erforderlich. Zeichenfolgenausdruck mit dem Namen der Anwendung oder des Projekts, dessen Schlüsseleinstellung angefordert wird. Auf einem Macintosh-Computer ist dies der Name der Initialisierungsdatei im Ordner „Einstellungen“ im Ordner „System“.
section Erforderlich. Zeichenfolgenausdruck mit dem Namen des Abschnitts, in dem sich die Schlüsseleinstellung befindet.
key Erforderlich. Zeichenfolgenausdruck mit dem Namen der zurückzugebenden Schlüsseleinstellung.
default Optional. Ausdruck mit dem zurückzugebendem Wert, wenn in der Schlüsseleinstellung kein Wert festgelegt ist. Wenn nicht angegeben, ist default eine Zeichenfolge der Länge null ("").

HinwBemerkungeneise

Wenn eines der in den GetSetting-Argumenten benannten Elemente nicht vorhanden ist, gibt GetSetting den Wert von default zurück.

Beispiel

In diesem Beispiel wird zunächst die SaveSetting-Anweisung zum Vornehmen von Einträgen in der Windows-Registrierung (oder INI-Datei auf 16-Bit-Windows-Plattformen) für die Anwendung verwendet, die als appname festgelegt wurde. Anschließend wird mithilfe der GetSetting-Funktion eine der Einstellungen angezeigt. Da das default-Argument angegeben wurde, wird garantiert ein Wert zurückgegeben. Beachten Sie, dass Namen von Abschnitten nicht mit GetSetting abgerufen werden können. Zum Schluss entfernt die DeleteSetting-Anweisung alle Einträge der Anwendung.

' Variant to hold 2-dimensional array returned by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50

Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
                       key := "Left", default := "25")

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.