vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
ListView - Zeilen einfärben 
Autor: Sev7eNup
Datum: 15.12.10 16:00
Ich habe ein ListView, in dem diverse Strings(Dateipfade) als Subitem in die zweite Spalte geladen werden.

Nun möchte ich alle Items, die das gleiche SubItem enthalten einfärben.

z.B.
C:\Programme\
C:\Programme\
C:\Programme\
Alle Items mit dem SubItem "C:\Programme\" sollen ROT gefärbt werden.

C:\Windows\
C:\Windows\
C:\Windows\
Alle Items mit dem SubItem "C:\Windows\" sollen BLAU gefärbt werden.

Die Items werden erst zur Laufzeit ins ListView geladen.

Hier mein bisheriger Lösungsansatz: 

        Dim merker As Boolean = True
 
        For i As Integer = 0 To ListView1.Items.Count - 1
            If i = 0 Then
                ListView1.Items.Item(i).BackColor = Drawing.Color.LightBlue
            Else
                If ListView1.Items.Item(i).SubItems(1).Text.Equals( _
                  ListView1.Items.Item(i - 1).SubItems(1).Text) Then
                    If merker = False Then
                        ListView1.Items.Item(i).BackColor = Drawing.Color.Red
                        ListView1.Items.Item(i - 1).BackColor = _
                          Drawing.Color.Red
                        merker = True
                    Else
                        ListView1.Items.Item(i).BackColor = _
                          Drawing.Color.LightBlue
                        ListView1.Items.Item(i - 1).BackColor = _
                        Drawing.Color.LightBlue
                    End If
                Else
                    merker = False
                    If ListView1.Items.Item(i - 1).BackColor = _
                      Drawing.Color.Beige Then
                        ListView1.Items.Item(i).BackColor = _
                        Drawing.Color.LightGreen
                    Else
                        ListView1.Items.Item(i).BackColor = Drawing.Color.Beige
                    End If
                End If
            End If
        Next i
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ListView - Zeilen einfärben6.746Sev7eNup15.12.10 16:00
Re: ListView - Zeilen einfärben2.493ModeratorDieter18.12.10 19:07
Re: ListView - Zeilen einfärben2.999Sev7eNup18.12.10 20:30

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel