VB6更改ListView项的背景颜色

提及

我尝试了这个示例，但没有像中那样工作，因为我看不到有颜色的行。 我的表单上有一个加载listview项目的命令按钮，一旦完成，我调用例程来设置颜色。 我使我的图片框可见，以查看预期结果，结果与预期一致。因此，有效地将ListView的Picture属性设置为PictureBox的Image属性对我来说毫无用处

无论如何，这是我的代码：

'pbxBG.Visible = True
If lsvPersonalisation.ListItems.Count <> 0 Then

    pbxBG.Width = lsvPersonalisation.Width
    pbxBG.Height = lsvPersonalisation.ListItems(1).Height * (lsvPersonalisation.ListItems.Count)
    pbxBG.ScaleHeight = lsvPersonalisation.ListItems.Count
    pbxBG.ScaleWidth = 1
    pbxBG.DrawWidth = 1
    pbxBG.Cls
    Dim i As Integer
    For i = 1 To lsvPersonalisation.ListItems.Count
        If lsvPersonalisation.ListItems(i).Tag = "1" Then
            pbxBG.Line (0, i - 1)-(1, i), &H80FFFF, BF
        Else
            pbxBG.Line (0, i - 1)-(1, i), &HFFFFFF, BF
        End If
    Next i
Else
    pbxBG.Cls
End If
lsvPersonalisation.Picture = pbxBG.Image
'pbxBG.Visible = False

'pbxBG.Visible=True
如果lsvPersonalisation.ListItems.Count为0，则
pbxBG.Width=lsvpersonalization.Width
pbxBG.Height=lsvpersonalization.ListItems（1）.Height*（lsvpersonalization.ListItems.Count）
pbxBG.ScaleHeight=lsvpersonalization.ListItems.Count
pbxBG.ScaleWidth=1
pbxBG.DrawWidth=1
pbxBG.Cls
作为整数的Dim i
对于i=1到lsvPersonalisation.ListItems.Count
如果lsvPersonalisation.ListItems（i）.Tag=“1”，则
pbxBG.Line（0，i-1）-（1，i）和H80FFFF，BF
其他的
pbxBG.Line（0，i-1）-（1，i）和hffff，BF
如果结束
接下来我
其他的
pbxBG.Cls
如果结束
lsvpersonalization.Picture=pbxBG.Image
'pbxBG.Visible=False

尝试更改pcxBG控件的AutoRedraw属性…@Akdavevil我建议您将有关设置

AutoRedraw=True

的

PictureBox

的注释作为答案。@Akdavevil重新测试，效果良好，谢谢。照伊利亚·库诺西夫说的去做，我记下答案。