Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

GetAllSettings

Die Funktion gibt alle Eintrge einer Sektion einer Anwendung aus der Registry zurck, 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 Eintrge ausgegeben werden sollen.

Beispiele:

Die folgende Prozedur legt zunchst drei Schlsselwerte an. Anschlieend liest sie diese in ein Variant-Array ein und gibt den Schlsselnamen und den Wert im Direktfenster aus.

Public Sub RegistryEintraege()

    Dim varSettings As Variant

    Dim i As Integer

    SaveSetting "VBABuch", "Bereich", "Schlssel1", "Schlsselwert1"

    SaveSetting "VBABuch", "Bereich", "Schlssel2", "Schlsselwert2"

    SaveSetting "VBABuch", "Bereich", "Schlssel3", "Schlsselwert3"

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

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

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

    Next i

End Sub

© 2003-2015 André Minhorst Alle Rechte vorbehalten.