Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Listview farbiger eintrag
Autor: Marco Nickolai
Datum: 19.07.02 00:24
Hi ich fülle ein listview mit folgender schleife mein problem ist wenn ein eintrag doppelt ist soll er rot angezeigt werden ich weiß zwar wie ich bei einer listbox die doppelten eintrage herausfinde aber wie geht das beim listview und wie kann ich den eintrag rot färben? Bitte Bitte helft mir ich bekomme es nich hin gruß marco Rst.MoveFirst Do Until Rst.EOF With ListView1.ListItems If Len(Rst!id) > 0 Then id = (Rst!id) Else id = "" Set liItem = .Add(, , id) If Len(Rst!interpret) > 0 Then liItem.ListSubItems.Add , , Rst!interpret Else liItem.ListSubItems.Add , , " " If Len(Rst!titel) > 0 Then liItem.ListSubItems.Add , , Rst!titel Else liItem.ListSubItems.Add , , " " If Len(Rst!dateiname) > 0 Then liItem.ListSubItems.Add , , Rst!dateiname Else liItem.ListSubItems.Add , , " " If Len(Rst!album) > 0 Then liItem.ListSubItems.Add , , Rst!album Else liItem.ListSubItems.Add , , " " If Len(Rst!Titelnr) > 0 Then liItem.ListSubItems.Add , , Rst!Titelnr Else liItem.ListSubItems.Add , , " " If Len(Rst!Jahr) > 0 Then liItem.ListSubItems.Add , , Rst!Jahr Else liItem.ListSubItems.Add , , " " If Len(Rst!Länge) > 0 Then liItem.ListSubItems.Add , , Rst!Länge Else liItem.ListSubItems.Add , , " " If Len(Rst!CD) > 0 Then liItem.ListSubItems.Add , , Rst!CD Else liItem.ListSubItems.Add , , " " End With Rst.MoveNext Loop

Listview farbiger eintrag

51

Marco Nickolai

19.07.02 00:24

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