GetAllSettings

Die Funktion gibt alle Einträge einer Sektion einer Anwendung aus der Registry zurück, wobei sich der Anwendungszweig unter HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ befindet.

Syntax:

GetAllSettings(<AppName>, <Section>)

Parameter:

AppName (Datentyp String): Erwartet den Namen des Zweigs, unter dem die Anwendungseinstellungen gespeichert sind.

Section (Datentyp String): Erwartet die Angabe der Sektion, deren Einträge ausgegeben werden sollen.

Beispiele:

Die folgende Prozedur legt zunächst drei Schlüsselwerte an. Anschließend liest sie diese in ein Variant-Array ein und gibt den Schlüsselnamen und den Wert im Direktfenster aus.

Public Sub RegistryEintraege()

Dim varSettings As Variant

Dim i As Integer

SaveSetting "VBABuch", "Bereich", "Schlüssel1", "Schlüsselwert1"

SaveSetting "VBABuch", "Bereich", "Schlüssel2", "Schlüsselwert2"

SaveSetting "VBABuch", "Bereich", "Schlüssel3", "Schlüsselwert3"

varSettings = GetAllSettings("VBABuch", "Bereich")

For i = LBound(varSettings) To UBound(varSettings)

Debug.Print varSettings(i, 0) & ": " & varSettings(i, 1)

Next i

End Sub