vblistview添加行颜色

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

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

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

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

需要通过菜单添加，具体方法：

【工程】--【部件】，进入【部件】对话窗口，通过滚动条，显示并勾选

Microsoft Windows Common Controls 6.0 (SP6)

[确定]，这样在工具箱里，会增加几个控件，其中又一个就是。

Private

Sub

Command1_Click()

Dim

xx

As

ListItem

Set

xx

=

ListView1.ListItems.Add(,

,

"1111")

xx.SubItems(1)

=

"2222"

xx.SubItems(2)

=

"3333"

End

Sub

Private

Sub

Form_Load()

ListView1.View

=

lvwReport

ListView1.ColumnHeaders.Add

,

,

"第1列",

1000

ListView1.ColumnHeaders.Add

,

,

"第2列",

1000

ListView1.ColumnHeaders.Add

,

,

"第3列",

1000

End

Sub

---