请教高手???

[fly@]

如何改变list空件中指定行的背景色?

[坐忘3GQ]

Public Sub SetListItemColor(lv As ListView, picBg As PictureBox)
Dim i As Integer, blnCheck As Boolean
Dim mItem As ListItem
Dim dblLvWidth As Double
Dim m_hookedLV As Boolean

dblLvWidth = 0
picBg.BackColor = lv.BackColor
lv.Parent.ScaleMode = vbTwips
picBg.ScaleMode = vbTwips
picBg.BorderStyle = vbBSNone
picBg.AutoRedraw = True
picBg.Visible = False

If lv.ListItems.count > 0 Then
If blnColumnHeadShow Then
For i = 1 To lv.ColumnHeaders.count - 1
dblLvWidth = dblLvWidth + lv.ColumnHeaders(i).Width
Next i
Else
For i = 1 To lv.ColumnHeaders.count
dblLvWidth = dblLvWidth + lv.ColumnHeaders(i).Width
Next i
End If
picBg.Width = dblLvWidth
picBg.Height = lv.ListItems(1).Height * (lv.ListItems.count)
picBg.ScaleHeight = lv.ListItems.count
picBg.ScaleWidth = 1
picBg.DrawWidth = 1

For i = 1 To lv.ListItems.count
If i Mod 2 = 0 Then
blnCheck = False
Else
blnCheck = True
End If
If blnCheck Then
picBg.Line (0, i - 1)-(1, i), &H80000005, BF
Else
picBg.Line (0, i - 1)-(1, i), &H80000018, BF
End If
Next
End If
lv.Picture = picBg.Image
End Sub


词函数设置了所有行的颜色，间隔行不同‘。

[fly@]

感谢楼上,我说的是list列表框控件.
不知怎么办呢

[fly@]

up