VB 设置ListView中指定一行的背景颜色

'SetListViewBGColor(ListView控件名称,要设置的背景颜色行号,颜色值-默认：&HB6B4FF)

Public Sub SetListViewBGColor(ByRef ListView As ListView, _
                              ByRef Index As Long, _
                              Optional BGColor As Long = &HB6B4FF)
    'author:www.newxing.com
    Dim lineTop As Long, lineHeight As Integer
    Static Pic As PictureBox
    If Pic Is Nothing Then Set Pic = Controls.Add("VB.PictureBox", "picbg")
    lineHeight = ListView.ListItems(Index).Height
    lineTop = lineHeight * (Index - 1)

    With Pic
        .Cls
        .AutoRedraw = True
        .Visible = False
        .ScaleMode = vbTwips
        .Font = ListView.Font
        .BorderStyle = 1
        .Appearance = 0
        .Height = lineHeight * ListView.ListItems.Count + lineHeight
        .Width = ListView.Width
    End With

    Pic.Line (0, lineTop)-(Pic.Width, lineTop + lineHeight), BGColor, BF
    ListView.Picture = Pic.Image

End Sub

ListView1.BackColor = &HB6B4FF