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
Cita de: estranguladordesoplones en 3 Octubre 2013, 20:42 PM
heyy Danyfirex muchas gracias, funcionó muy bien. Saludos
De nada.
saludos ;D