vblistview添加行颜色

你好！vblistview添加行颜色如下，1、先在PictureBox控件里画图，之后将其加载到Listview中

        2、给单元格/Shape添加颜色后，复制Range和Shapes对象给剪贴板，然后保存成图片，需要WinAPI

        3、对ListItem子类化后进行重绘。这是原来Vb用的方法，vba里貌似没人用

下面的方法1、2与上面的方法2相似，方法3即上面的方法3。当然还可以通过调用整个控件hdc在内存中作图，但和方法3一样需要调用WinAPI

Private Sub Command1_Click()

Dim item As ListItem

        Set item = ListView1.ListItems.Add(, , Text1)

        item.SubItems(1) = Text2

        item.SubItems(2) = Text3

        item.SubItems(3) = Text4

End Sub

Private Sub Form_Load()

   With ListView1

    .View = lvwReport

    .ColumnHeaders.Add , , "a"

    .ColumnHeaders.Add , , "b"

    .ColumnHeaders.Add , , "c"

    .ColumnHeaders.Add , , "d"

  End With

End Sub

这个列表我也是刚学，只弄懂了怎么添加，列表的第一列是主项，通过ListItems.Add添加，其它列是该项目下子项，通过该主项的子项数组SubItems赋值，下标从1开始。

---