搬家第五天-101.Wincc V7.3 listview使用初步3-插入一列checkbox及使用

如果我们需要在ListView控件插入一个checkbox列，有两种方法，一个是编辑状态下双击控件，在弹出的属性对话框中勾选checkbox，或者在脚本中添加ctrlLV.Checkboxes =True语句。在画面上再添加一个按钮，鼠标点击事件中添加以下vbs代码，统计勾选了多少个checkbox

Sub OnClick(ByVal Item)            
Dim ctrlLV,RowCount,i,count
Set ctrlLV=ScreenItems("LV")
RowCount=ctrlLV.listitems.count
For i=1 To RowCount
  If ctrlLv.ListItems(i).checked=True Then
    count=count+1
  End If
Next
Msgbox "供选择了" & CStr(count) & "行"
End Sub