搬家第25天-CitectVBA设置Listview控件的checkbox，计算选择了多少行

listview控件有一个checkbox属性，可以在编辑状态设置，也可以在脚本里面设置，下面的脚本演示了如何在脚本中加粗文字设置显示checkbox。

Sub ListViewAddcheckbox()

Dim i As Integer

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

page1_AN4.GridLines=true '显示网格线

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

page1_AN4.checkboxes=true

'添加表头

For i=1 To 4

page1_AN4.ColumnHeaders.Add

Next

page1_AN4.ColumnHeaders(1).width=20

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="第三列"

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

For i=1 To 3

page1_AN4.listitems.add

Next

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

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

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

 

 

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

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

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

 

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

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

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

 

End Sub

在按钮中调用这个脚本，保存编译运行，就能看到效果了，checkbox出现在第一列，这里也不让写入文字，前面的博客有描述。

如果想要统计用户勾选了多少个checkbox，可以写以下脚本

Sub CountListviewchk()

Dim i,Rowcount,count

Rowcount=page1_AN4.listitems.count

For i=1 To Rowcount

If page1_AN4.listitems(i).checked=true Then

count=count+1

End If

Next

msgbox "选择了" & cstr(count) & "行"

End Sub

 

在按钮脚本中调用，就能看到效果了。