搬家第25天-citect2015ListView控件初始化

很久没有学习练习citect软件的控件使用了，今天开始ListView练习。以前做过wincc下VBS脚本操作listview，换到citect的CitectVBA语法，有点不一样。

新建一个页面main，插入listView控件，访问名是main_AN4，再放置一个按钮控件。新建一个citectVBA过程，代码如下：

Sub VBA_ListViewIni()

Dim i As Integer

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

page1_AN4.GridLines=true '显示网格线

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

'添加表头

For i=1 To 4

page1_AN4.ColumnHeaders.Add

Next

page1_AN4.ColumnHeaders(1).width=10

page1_AN4.ColumnHeaders(1).text=""

 

page1_AN4.ColumnHeaders(2).width=150

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

page1_AN4.ColumnHeaders(2).text="第一列"

 

page1_AN4.ColumnHeaders(3).width=150

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

page1_AN4.ColumnHeaders(3).text="第二列"

 

page1_AN4.ColumnHeaders(4).width=150

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

page1_AN4.ColumnHeaders(4).text="第三列"

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

page1_AN4.listitems.add

page1_AN4.listitems(1).Subitems(1)="第一行第一列内容"

page1_AN4.listitems(1).Subitems(2)="第一行第二列内容"

page1_AN4.listitems(1).Subitems(3)="第一行第三列内容"

 

page1_AN4.listitems.add

page1_AN4.listitems(2).Subitems(1)="第二行第一列内容"

page1_AN4.listitems(2).Subitems(2)="第二行第二列内容"

page1_AN4.listitems(2).Subitems(3)="第二行第三列内容"

End Sub

 

按钮控件加入以下脚本：

CiVBA call VBA_ListViewIni()

 

保存编译，然后运行，就能看到下面的效果了

需要说明的是，最左边一列没法写入实际的内容，列标题的对齐方式决定了下面具体内容的对齐方式。