Colorear filas de un listview

[estranguladordesoplones]

Hola comunidad, estoy programando una pequeña base de datos y necesito resaltar de color en el listview ciertos datos. Por ejemplo, tengo visualizado el campo de "adeudos" en el listview, y si algún cliente  tiene un adeudo, que lo resalte en color rojo.
De antemano muchas gracias.

[Danyfirex]

hola. puedes hacerlo así:

Código (vb) [Seleccionar] Expandir

ListView1.ListItems(1).ForeColor = vbBlue  ' para items
ListView1.ListItems(1).ListSubItems(1).ForeColor = vbRed ' para subitems

saludos

[estranguladordesoplones]

Muchas gracias Danyfirex.

[estranguladordesoplones]

Esto de colorear ciertas filas del listview se me ha complicado un poco, a ver si me doy a entender, necesito ubicar una columna en el listview y sobre esa columna obtener las filas que tengan texto, para así identificar que esa fila tiene adeudos, y aplicar el código que me sugeriste: ListView1.ListItems(1).ListSubItems(1).ForeColor = vbRed.
Espero haber sido mas explicito y nuevamente gracias.

[Danyfirex]

Solo tienes que recorrer las filas de la columna donde tienes si es o no deudor.

ejemplo:

Código (vb) [Seleccionar] Expandir

Private Function verificar(columna As Integer)
   
   Dim i As Integer
   Select Case columna
   Case 0
   For i = 1 To ListView1.ListItems.Count
   If ListView1.ListItems(i) <> "" Then
   ListView1.ListItems(i).ForeColor = vbRed
   Debug.Print ListView1.ListItems(i)
   End If
   Next i
   ListView1.Refresh
   Case Is >= 1
   
   For i = 1 To ListView1.ListItems.Count
   If ListView1.ListItems(i).SubItems(columna) <> "" Then
       ListView1.ListItems(i).ListSubItems(columna).ForeColor = vbRed
       Debug.Print ListView1.ListItems(i).SubItems(columna)
   End If
   Next i
   ListView1.Refresh
   Case Else
   End Select
End Function


En la función el si le pasas 0 seria la primera columna. si pasas 1 seria la segunda(osea el primer subitem).

espero entiendas.

saludos

[estranguladordesoplones]

heyy Danyfirex muchas gracias, funcionó muy bien. Saludos

[Danyfirex]

heyy Danyfirex muchas gracias, funcionó muy bien. Saludos

De nada.

saludos