Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Listview und color
Autor: Plasma
Datum: 18.07.02 17:35
Hallihallo! Dieter hat sicher recht! -leider geht das nicht Snoopy; Du könntest ja für Deine Texte mehrere Spalten benutzen (wenn es für Dich so hinkommt...) und diese dann andersfarbig gestalten... Allerdings ist mir dies nur im .add -modus der ListItems und ListSubItems gelungen. Später konnte ich die Farbe der Subitems nicht mehr ändern (bei den Items gings!). Lösen könnte man dieses Problem, indem man die komplette Liste zwischenspeichert, die Listview löscht (.Clear) und anschliessend farbig neu-beschreibt. Das Einfärben ginge zB so: Private Sub Form_Load() Dim LstItem As ListItem Dim i, j As Integer Dim TxtColor As String For i = 1 To 5 'Listview1 hat 5 Spalten Set LstItem = ListView1.ListItems.Add(i, , "") TxtColor = RandomColor LstItem.ForeColor = TxtColor LstItem = TxtColor With LstItem For j = 1 To 4 TxtColor = RandomColor .ListSubItems.Add j, , "" .ListSubItems(j).ForeColor = TxtColor .ListSubItems(j) = TxtColor Next j End With Next i End Sub Private Sub CommandButton1_Click() ListView1.ListItems.Clear Call Form_Load End Sub Private Function RandomColor() Dim RndNumber As Integer Randomize RndNumber = Int((5 * Rnd) + 1) Select Case RndNumber Case 1 RandomColor = vbRed Case 2 RandomColor = vbCyan Case 3 RandomColor = vbYellow Case 4 RandomColor = vbGreen Case 5 RandomColor = vbMagenta End Select End Function Nur da kommt jetzt bei mir eine frage auf: kann man SubItems auch nach dem Erstellen (nach dem .Add) bei einem erneuten aufruf einfärben?? (ohne die komplette Liste neuschreiben zu müssen)? Ciao, Plasma

Listview und color	63	Ssnoopy	16.07.02 17:24
Re: Listview und color	375	Dieter	16.07.02 18:08
Re: Listview und color	47	Plasma	18.07.02 17:35
Re: Listview und color	383	Dieter	18.07.02 18:59
Merkwürdig	46	Plasma	18.07.02 21:14
Ach: noch was...	39	Plasma	18.07.02 21:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen