German Listview + Farben

Heinz

Active Member
Licensed User
Longtime User
Hallo,
Ich will bei meiner EK-Liste weitermachen.
Nun sollten auch die Hintergrund-Farben, die den Listviews per Designer zugeordnet sind
benutzerdefiniert geändert und auch gespeichert werden. Dazu verwende ich den ColorDialog.

Nun kann es auch sein, daß der Benutzer eine Farbe eines Listviews NICHT ändert. Dazu bräuchte
ich dann den Farbwert, der im Designer zugeordnet ist. Listview1.Color ist aber nur schreibend und
nicht lesend. Wie bekomme ich nun diese Originalfarben ?

Beim App - Start sollen diese Farben ja wieder eingelesen und entsprechend zugeordnet werden.
Hier mal mein Anfang :

Meine SUB:
' Menüpunkt Farben in Activity
Private Sub Farben_Click
    Dim cd As ColorDialog
    Dim listcolors As List
    Dim color As Int
    Dim sf As Object = cd.ShowAsync("Farbe wählen", "Ja", "Abbruch", "Nein", Null, False)
    Wait For (sf) Dialog_Result(Result As Int)
    If Result = DialogResponse.POSITIVE Then
        listcolors.Clear
        If ctab = 0 Then
            ListView1.Color = cd.RGB
          listcolors.Add(cd.RGB)
        End If 
        If ctab = 1 Then
         ListView2.Color = cd.RGB   
         listcolors.Add(cd.RGB)
        End If
        If ctab = 2 Then
         ListView3.Color = cd.RGB
         listcolors.Add(cd.RGB)
        End If   
        If ctab = 3 Then
         ListView4.Color = cd.RGB
         listcolors.Add(cd.RGB)
        End If
        ' wenn Nein oder Abbruch sollen die bestehenden Farben der Listviews
        ' in die Liste (listcolors) und so auch als .csv gespeichert werden.
        ' Bei App - Start wird diese wieder ausgelesen und die einzelnen Farben
        ' gesetzt.
    End If
End Sub
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…