Question

参考Change background color of listview in vb6

我试过这个例子并且不起作用，因为我看不到彩色的行。我的表单上有一个命令按钮，可以加载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

VB6更改ListView项的背景颜色

0 个答案: