Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Enero 30, 2014, 05:24:49 pm

Título: Pintar filas de ListView (NO EL EFECTO DE ZEBRA)
Publicado por: E N T E R 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)
http://snag.gy/2Lo85.jpg

Título: Re:Pintar filas de ListView (NO EL EFECTO DE ZEBRA)
Publicado por: Waldo 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

(http://snag.gy/xMEN9.jpg)

Título: Re:Pintar filas de ListView (NO EL EFECTO DE ZEBRA)
Publicado por: E N T E R 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)
http://snag.gy/24blO.jpg