WinCC笔记：01.TreeView控件 —— (3)给节点添加checkbox & checkbox的单选性

目录

一、添加checkbox

二、统计选中的节点

CHR码值对应列表

三、TreeView设置成只可以选一个checkbox 

---

一、添加checkbox

   法一：

    法二：写脚本

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

二、统计选中的节点

1. 插入一个多行文本，对象名称改为Multext

 2. 插入一个按钮，写脚本

Sub OnClick(Byval Item)                         
Dim TV,Multext,Count,i,j,Checkcount
Dim key(),text()
Set TV=ScreenItems("TV")
Set Multext=ScreenItems("Multext")
Count = TV.Nodes.count
Checkcount = 0
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=""
j=0
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

CHR码值对应列表
Chr(0)	为0的字符
Chr(7)	响铃
Chr(8)	回格
Chr(9)	tab(水平制表符)
Chr(10)	换行
Chr(11)	tab(垂直制表符)
Chr(12)	换页
Chr(13)	回车 chr(13)   &chr(10)        回车和换行的组合
Chr(26)	结束
Chr(32)	空格
Chr(33)	！
...	...
Chr(48)	0
Chr(49)	1
...	...

 3. 效果如下

三、TreeView设置成只可以选一个checkbox 

在TreeView的NodeCheck中添加事件

Sub NodeCheck(ByVal Item,  ByRef Node) 
Dim TV,Count,NodeCheck,i,key
set TV=ScreenItems("TV")
Count=TV.nodes.count
NodeCheck= Node.checked
key=node.key
For i=1 To count
    TV.nodes.item(i).checked=False
Next
TV.nodes.item(key).checked=NodeCheck
End Sub