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!