搬家第25天-citectVBA给listview控件subitems添加图标

前面的博客记录了如何用citectVBA脚本给listview控件列标题添加图标，通过脚本还可以给subitems添加图标。

先写以下脚本，注意红色部分

Sub listviewIniAddicon()

Dim i As Integer

main_AN4.View =3 '设置外观为报表形式

main_AN4.GridLines=true '显示网格线

main_AN4.ColumnHeaderIcons=main_AN16 '与 imagelist控件关联

main_AN4.smallicons=main_AN16 '与 imagelist控件关联

 

main_AN4.ColumnHeaders.Clear '清楚原有表头

main_AN4.Listitems.clear '清楚表内容

main_AN4.HotTracking=true

main_AN4.checkboxes=true

main_AN4.gridlines=true

main_AN4.AllowcolumnReorder=true

'添加表头

For i=1 To 4

main_AN4.ColumnHeaders.Add

Next

main_AN4.ColumnHeaders(1).width=200

main_AN4.ColumnHeaders(1).text=""

 

main_AN4.ColumnHeaders(2).width=200

main_AN4.ColumnHeaders(2).alignment=1 '右对齐

main_AN4.ColumnHeaders(2).icon=1

main_AN4.ColumnHeaders(2).text="月份"

 

main_AN4.ColumnHeaders(3).width=350

main_AN4.ColumnHeaders(3).alignment=2 '居中

main_AN4.ColumnHeaders(3).icon=2

main_AN4.ColumnHeaders(3).text="第一分厂产量"

 

main_AN4.ColumnHeaders(4).width=350

main_AN4.ColumnHeaders(4).alignment=0 '左对齐

main_AN4.ColumnHeaders(4).icon=3

main_AN4.ColumnHeaders(4).text="第二分厂产量"

'添加表的内容,添加两行

For i=1 To 10

main_AN4.listitems.add

Next

main_AN4.listitems(1).Subitems(1)="1月"

main_AN4.listitems(1).Subitems(2)="11"

main_AN4.listitems(1).Subitems(3)="12"

main_AN4.listitems(1).smallicon=1 '第一行使用序号为1的图标

 

main_AN4.listitems(2).Subitems(1)="2月"

main_AN4.listitems(2).Subitems(2)="21"

main_AN4.listitems(2).Subitems(3)="22"

main_AN4.listitems(2).smallicon=2  '第二行使用序号为2的图标

 

main_AN4.listitems(3).Subitems(1)="3月"

main_AN4.listitems(3).Subitems(2)="31"

main_AN4.listitems(3).Subitems(3)="32"

main_AN4.listitems(3).smallicon=3  '第三行使用序号为3的图标

 

main_AN4.listitems(4).Subitems(1)="4月"

main_AN4.listitems(4).Subitems(2)="41"

main_AN4.listitems(4).Subitems(3)="42"

 

main_AN4.listitems(5).Subitems(1)="5月"

main_AN4.listitems(5).Subitems(2)="51"

main_AN4.listitems(5).Subitems(3)="52"

 

main_AN4.listitems(6).Subitems(1)="6月"

main_AN4.listitems(6).Subitems(2)="61"

main_AN4.listitems(6).Subitems(3)="62"

 

main_AN4.listitems(7).Subitems(1)="7月"

main_AN4.listitems(7).Subitems(2)="71"

main_AN4.listitems(7).Subitems(3)="72"

 

main_AN4.listitems(8).Subitems(1)="8月"

main_AN4.listitems(8).Subitems(2)="81"

main_AN4.listitems(8).Subitems(3)="82"

 

main_AN4.listitems(9).Subitems(1)="9月"

main_AN4.listitems(9).Subitems(2)="91"

main_AN4.listitems(9).Subitems(3)="92"

 

main_AN4.listitems(10).Subitems(1)="10月"

main_AN4.listitems(10).Subitems(2)="101"

main_AN4.listitems(10).Subitems(3)="102"

End Sub

调用这个脚本，保存编译运行，看到这样的效果

 

这个练习只是为了熟悉citectVBA控件编程，所以没有把精力放在图标尺寸和美观上，本篇只是对前面3行subitems添加了图标。listview的subitem，一行只能有一个图标而不能对每一个单元格放置图标。