color en cada linea de un listview

[ToRu]

Hola estoy buscando por el foro y en más sitios, como puedo poner una linea de mi listview con un color diferente.

Tengo unas entradas que son unas registros y pueden estar Pendiente o Tramitado, he conseguido cambiar el fondo de todo el listview a un color, pero lo que no consigo, es que si la fila esta pendiente, que se ponga en rojo y si esta tramitado en verde.

Os pongo un poco "abreviado" el código que tengo
*Ya tengo definidos los colores

Código:

'Muestra los datos de la base en el listview
    With rsTabla
            If .RecordCount  0 Then
            lista_total.lstvDatos1.ListItems.Clear
            .MoveFirst
            Do While Not .EOF
               If (.Fields(9) = 1) Then
                lista_total.lstvDatos1.BackColor = color1 '  'Lineas SI SOLUCIONADAS
                Set Items = lista_total.lstvDatos1.ListItems.Add(, , .Fields(0) & )
                Items.SubItems(1) = .Fields(1) & 
                Items.SubItems(2) = .Fields(2) & 
                Items.SubItems(3) = .Fields(3) & 
                Items.SubItems(4) = .Fields(4) & 
                Items.SubItems(5) = .Fields(5) & 
                Items.SubItems(6) = .Fields(6) & 
                Items.SubItems(7) = .Fields(7) & 
                Items.SubItems(8) = .Fields(8) & 
                If (.Fields(9) = 1) Then
                    Items.SubItems(9) = Solucionado
                    contSI = contSI + 1
                Else
                    Items.SubItems(9) = Pendiente
                    contNO = contNO + 1
                 End If
                'Items.SubItems(9) = .Fields(9) & 
                Items.SubItems(10) = .Fields(10) & 
                Items.SubItems(11) = .Fields(11) & 
                Items.SubItems(12) = .Fields(12) & 
            Else
                lista_total.lstvDatos1.BackColor = color1 ' Lineas NO SOLUCIONADAS
                lista_total.lstvDatos1.ForeColor = color1
                Set Items = lista_total.lstvDatos1.ListItems.Add(, , .Fields(0) & )
                Items.SubItems(1) = .Fields(1) & 
                Items.SubItems(2) = .Fields(2) & 
                Items.SubItems(3) = .Fields(3) & 
                Items.SubItems(4) = .Fields(4) & 
                Items.SubItems(5) = .Fields(5) & 
                Items.SubItems(6) = .Fields(6) & 
                Items.SubItems(7) = .Fields(7) & 
                Items.SubItems(8) = .Fields(8) & 
                If (.Fields(9) = 1) Then
                    Items.SubItems(9) = Solucionado
                    contSI = contSI + 1
                Else
                    Items.SubItems(9) = Pendiente
                    contNO = contNO + 1
                 End If
                'Items.SubItems(9) = .Fields(9) & 
                Items.SubItems(10) = .Fields(10) & 
                Items.SubItems(11) = .Fields(11) & 
                Items.SubItems(12) = .Fields(12) & 
       
            End If
            .MoveNext
            Loop
        End If
    End With

Esto es, gracias!

[Maxi.Net]

hola quieres poner el fondo de la fila o el texto de la fila???

[ToRu]

el fondo de la fila

[Maxi.Net]

Mira este link que ya fue posteado con anterioridad

http://www.forosdelweb.com/showthrea...light=listview

Como es el fondo debes poner BackColor en ves de ForeColor

Adiosds

[ToRu]

holap, sip, ese enlace lo estuve viendo a través de la búsqueda, pero el problema que no me va, por eso pegue el código.

Si mira el código que puse, utilizo backcolor y forecolo, pero me coge el color que pongo primero, y me lo "pinta" todo de color rojo, aún pasando por el backcolor en verde.

[Maxi.Net]

Cuando definas el color debes indicar que item del listview serà afectado

Es + ó - asì:

Listview1.item(integer).BackColor= System.Drawing.Color.RED

P.D: No tengo .net en estos momentos en caso que no resulte el còdigo.
Yo lo he hecho cuando necesito destacar una factura que esta deshabilitada (color rojo) y cuando existe una devolución de un articulo (verde)

[ToRu]

Gracias Maxi.Net

ahora ando en la oficina, pero cuando llegue a casa, lo pruebo :)