Question

vb使ListView隔行变颜色代码怎么写啊

Answer 1

Public Sub SetListViewColor(Lv As ListView, picBg As PictureBox, LvCount As Long)
'Author:深夜的树阴
'DateTime:2005-05-18
'Description:更改LISTVIEW的背景色
Dim i As Integer
Lv.ColumnHeaders.Clear
Lv.ListItems.Clear
Lv.ColumnHeaders.Add , "a", "test1", 100
Lv.ListItems.Add , "a1", "123" '取得行宽

picBg.BackColor = Lv.BackColor

Lv.Parent.ScaleMode = vbTwips

picBg.ScaleMode = vbTwips

picBg.BorderStyle = vbBSNone

picBg.AutoRedraw = True

picBg.Visible = False

picBg.Width = Screen.Width '因为我的LISTVIEW会自动调整大小的，所以直接用屏幕的宽度

picBg.Height = Lv.ListItems(1).Height * LvCount '取得要添充的高度

picBg.ScaleHeight = LvCount

picBg.ScaleWidth = 1

picBg.DrawWidth = 1
'-----------------------------

'画出每行LISTVIEW的颜色

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

For i = 1 To LvCount

If i / 2 = Int(i / 2) Then

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

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

End If

Next

Lv.Picture = picBg.Image

Lv.ColumnHeaders.Clear
Lv.ListItems.Clear
End Sub