搬家第25天-citectVBA给listview列标题加上图标

前面的博客记录了如何初始化listview，如何添加列标题和内容，如果我们希望listview好看一点，可以给列标题加上图标。先从网上随意找一些icon图标，在页面上插入microsoft imagelist控件，假设这个控件的访问名是main_AN16。将刚才找到的图标逐个插入

可以看到每个icon图标都会有一个index序号，后面的编程会用到。

新建下面的脚本，在初始化listview同时，指定列标题的图标。注意红色部分

Sub listviewIniAllowColumnReorder()

Dim i As Integer

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

main_AN4.GridLines=true '显示网格线

main_AN4.ColumnHeaderIcons=main_AN16 '与 列标题图标imagelist控件关联

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

main_AN4.Listitems.clear '清除表内容

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=20

main_AN4.ColumnHeaders(1).text=""

 

main_AN4.ColumnHeaders(2).width=200 '调整好宽度，能装下图标和文字

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

main_AN4.ColumnHeaders(2).icon=1 '月份列对应imagelist控件index=1的图标

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

 

main_AN4.ColumnHeaders(3).width=350

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

main_AN4.ColumnHeaders(3).icon=2 '第一分厂产量列对应imagelist控件index=2的图标

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

 

main_AN4.ColumnHeaders(4).width=350

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

main_AN4.ColumnHeaders(4).icon=3  '第二分厂产量列对应imagelist控件index=2的图标

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(2).Subitems(1)="2月"

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

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

 

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

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

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

 

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

在某个按钮事件中调用这一段脚本，保存编译运行，可以看到如下效果

由于选择图标时候并没有考虑尺寸大小，只是做一个练习，实际工作时，需要注意一下图标的尺寸。这里的脚本和wincc下vbs稍微有些不一样，需要注意。