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 :
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