Autor Tema: Pintar filas de ListView (NO EL EFECTO DE ZEBRA)  (Leído 3093 veces)

0 Usuarios y 1 Visitante están viendo este tema.

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Pintar filas de ListView (NO EL EFECTO DE ZEBRA)
« en: Enero 30, 2014, 05:24:49 pm »
Hay una manera de pintar el fondo de un ListView cada ves que se cumpla una condicion quiero pintar una lista en el color elegido.

SCREEN

http://snag.gy/2Lo85.jpg
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo

Waldo

  • Gigabyte
  • ****
  • Mensajes: 264
  • Reputación: +22/-0
    • Ver Perfil
Re:Pintar filas de ListView (NO EL EFECTO DE ZEBRA)
« Respuesta #1 en: Enero 30, 2014, 06:27:17 pm »
Haber si entiendo, no tipo cebra, sino solo alguna fila?
Busque y no encontre ninguna propiedad backcolor de los items del listview, creo que en .net si existe un item.backcolor

No podes usar otra grilla?
Yo hace mucho vengo usando una de VbAccelerator, SGrid 2, para mi es EXCELENTE y gratis.

http://www.vbaccelerator.com/home/VB/Code/Controls/S_Grid_2/S_Grid_2/article.asp

Te permite back y fore color por celda, tipo de fuente por celda, ordenacion por tipo de dato, no solo texto, como el listview (ordena unas fechas con el listview !!! )
Ah... y para ordenar tiene un objecto, que te permite ordenar por mas de una columna


« última modificación: Enero 30, 2014, 06:33:04 pm por Waldo »

E N T E R

  • Petabyte
  • ******
  • Mensajes: 1062
  • Reputación: +57/-13
  • www.enterpy.com
    • Ver Perfil
    • www.enterpy.com
Re:Pintar filas de ListView (NO EL EFECTO DE ZEBRA)
« Respuesta #2 en: Enero 30, 2014, 06:27:44 pm »
Encontre un ejemplo modifique algunas cosas y quedo de lujo

CODE
Código: (VB) [Seleccionar]
Sub COLOREAR_LISTVIEW()
   
    If LT.ListItems.Count > 0 Then
   
        picBG.Width = LT.Width
        picBG.Height = LT.ListItems(1).Height * (LT.ListItems.Count)
        picBG.ScaleHeight = LT.ListItems.Count
        picBG.ScaleWidth = 1
        picBG.DrawWidth = 1
        picBG.Cls
       
        For i = 1 To LT.ListItems.Count
            If LT.ListItems(i).SubItems(10) = "CONTADOR" Then
                picBG.Line (0, i - 1)-(1, i), &HF9A6F7, BF
            Else
                picBG.Line (0, i - 1)-(1, i), &HFFFFFF, BF
            End If
        Next i
       
        LT.Picture = picBG.Image
       
    Else
       
        picBG.Cls
        LT.Picture = picBG.Image
       
    End If

End Sub

screen

http://snag.gy/24blO.jpg
« última modificación: Enero 30, 2014, 06:33:04 pm por E N T E R »
CIBER GOOGLE - CONCEPCIÓN PARAGUAY
www.enterpy.com
Primera regla de la programacion, para que vas a hacerlo complicado si lo puedes hacer sencillo