Red de conocimiento informático - Problemas con los teléfonos móviles - ¡Cómo escribir vb para que ListView cambie de color cada dos líneas de código!

¡Cómo escribir vb para que ListView cambie de color cada dos líneas de código!

Public Sub SetListViewColor(Lv como ListView, picBg como PictureBox, LvCount como largo)

'Autor:Late Night Shade

'DateTime:2005-05-18

' Descripción:Cambiar el color de fondo de LISTVIEW

Dim i As Integer

Lv.ColumnHeaders.Clear

Lv.ListItems.Clear

Lv.ColumnHeaders.ScaleMode = vbTwips

picBg.BorderStyle = vbBSNone

picBg.AutoRedraw = True

picBg.Visible = False

picBg.Width = Screen.DrawWidth = 1

'-------------------------------

'Dibuja el color de cada fila de LISTVIEW

'------ ---------------------- --

Para i = 1 Para LvCount

Si i/2 = Int(i/2) Entonces

picBg.Line (0, i - 1 )- (1, i), &HC0FFFF, BF

Else

picBg.Line (0, i - 1)-(1, i), 16777152, BF

Finalizar si

Lv.Picture = picBg.Image

Lv.ColumnHeaders.Clear

Lv.ListItems. Borrar

Fin Sub