目录
一、添加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 =