Foro de elhacker.net

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.

hola. puedes hacerlo así:

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

saludos

Muchas gracias Danyfirex.

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.

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

ejemplo:

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

heyy Danyfirex muchas gracias, funcionó muy bien. Saludos

De nada.

saludos  ;D