Public Class myListview11
 
#Region "Usercontrol"
 
    Public Sub New()
        MyBase.New()
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        Me.Farbe_für_Zeilen = Drawing.Color.Blue
        Me.Farbige_Zeilen = True
        Me.BackColor = Drawing.Color.White
 
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        Me.Zeichnen()
        MyBase.OnPaint(e)
    End Sub
 
    Protected Overrides Sub InitLayout()
        Me.Zeichnen()
        MyBase.InitLayout()
    End Sub
 
#End Region
 
#Region "Propertys"
 
    Private varFarbzeilen As Boolean ' farbige Zeilen erlaubt Ja/Nein
    Private varColor As System.Drawing.Color   ' Farbe
 
    ' farbige Zeilen erlaubt Ja/Nein
    Public Property Farbige_Zeilen() As Boolean
        Get
            Return varFarbzeilen
        End Get
        Set(ByVal value As Boolean)
            varFarbzeilen = value
            Me.Zeichnen()
        End Set
    End Property
 
    ' Farbe für negative Zahlen
    Public Property Farbe_für_Zeilen() As System.Drawing.Color
        Get
            Return varColor
        End Get
        Set(ByVal Value As System.Drawing.Color)
            varColor = Value
            Me.Zeichnen()
        End Set
    End Property
 
#End Region
 
#Region "Funktionen"
 
    Public Function Zeichnen() As Boolean
        If Me.Farbige_Zeilen = True Then
            FarbigeZeilen()
        Else
            NormaleZeilen()
        End If
    End Function
 
    Public Function FarbigeZeilen() As Boolean
        If ListView1.View = Windows.Forms.View.Details Then
            If Farbige_Zeilen = True Then
                On Error GoTo Ende
                With ListView1.Items
                    ' Zuerst alle Items weiss machen
                    If .Count > 1 Then
                        For i As Integer = 0 To .Count - 1 'Step 2
                            ' Für Subitems Farbe übernehmen
                            .Item(i).UseItemStyleForSubItems = True
                            ' Background Farbe als 2. Farbe verwenden
                            .Item(i).BackColor = Me.BackColor
                            i += 1
                            ' Alle Items wieder färben
                            .Item(i).BackColor = varColor
                        Next
                    End If
                End With
            End If
        End If
Ende:
    End Function
 
    Public Function NormaleZeilen() As Boolean
        If ListView1.View = Windows.Forms.View.Details Then
            If Farbige_Zeilen = False Then
                On Error GoTo Ende
                With ListView1.Items
                    ' Zuerst alle Items weiss machen
                    If .Count > 1 Then
                        For i As Integer = 0 To .Count
                            ' Alle Items wieder färben
                            .Item(i).UseItemStyleForSubItems = True
                            .Item(i).BackColor = Me.BackColor
                        Next
                    End If
                End With
            End If
        End If
Ende:
    End Function
 
#End Region
 
End Class

fg viperbone