搬家第五天-113.Wincc V7.3 TreeView 控件初步使用6-给节点添加checkbox

和ListView控件一样，TreeView也可以添加checkbox便于用户的选择操作。可以在TreeView双击打开属性设置对话框，勾选checkbox选项，也可以在脚本中写以下语句：

Dim TV
Set TV=screenitems("TV")
tv.Checkboxes =True

    在画面上放置一个按钮，用于统计用户勾选了那些节点，放置一个多行文本，用于记录勾选节点的key和text属性。在按钮的鼠标点击事件中添加以下vbs脚本：

Sub OnClick(ByVal Item)  
Dim TV,MulText,key(),text(),Count,CheckCount,i,j
Set TV=ScreenItems("TV")
Set MulText=ScreenItems("MulText")
Count=TV.nodes.count
For i=1 To count
  If TV.nodes.item(i).checked=True then
    CheckCount=CheckCount+1
  End If
Next
Redim key(CheckCount)
Redim text(CheckCount)
MulText.Text=""
For i=1 To count
 If TV.nodes.item(i).checked=True Then
  j=j+1    
  key(j)=TV.nodes.item(i).key
  text(j)=TV.nodes.item(i).text
  MulText.Text=MulText.Text & "k=" & key(j) & "  text=" & text(j) & Chr(13) & Chr(10)
 End If
Next
End Sub

保存运行，在控件上钩选checkbox之后，点击统计按钮据可以看到效果了