前面几篇博客记录了ListView控件的基本功能实现的方法,本篇开始记录TreeView控件的使用,先从空间初始化开始。在画面上放置一个TreeView,名字修改为TV,画面上放置一个按钮,在按钮的鼠标点击事件中添加如下VBS脚本:
Sub OnClick(ByVal Item)
Dim TV,NodeIndex
Set TV=ScreenItems("TV")
TV.Style=6 '6.直线、+/-和文本;
TV.LineStyle =1
Set NodeIndex=TV.Nodes.Add(,,"Class0","城市")
Set NodeIndex=TV.Nodes.Add("Class0",4,"Class1","四川省")
NodeIndex.Sorted=True
Set NodeIndex=TV.Nodes.Add("Class0",4,"Class2","山西省")NodeIndex.Sorted=True
Set NodeIndex=TV.Nodes.Add("Class1",4,"Class11","自贡市")
Set NodeIndex=TV.Nodes.Add("Class1",4,"Class12","成都市")
Set NodeIndex=TV.Nodes.Add("Class1",4,"Class13","宜宾市")
NodeInde
Dim TV,NodeIndex
Set TV=ScreenItems("TV")
TV.Style=6 '6.直线、+/-和文本;
TV.LineStyle =1
Set NodeIndex=TV.Nodes.Add(,,"Class0","城市")
Set NodeIndex=TV.Nodes.Add("Class0",4,"Class1","四川省")
NodeIndex.Sorted=True
Set NodeIndex=TV.Nodes.Add("Class0",4,"Class2","山西省")NodeIndex.Sorted=True
Set NodeIndex=TV.Nodes.Add("Class1",4,"Class11","自贡市")
Set NodeIndex=TV.Nodes.Add("Class1",4,"Class12","成都市")
Set NodeIndex=TV.Nodes.Add("Class1",4,"Class13","宜宾市")
NodeInde