Winccde TreeView控件初步使用

 前面几篇博客记录了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