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","宜宾市")
NodeIndex.Sorted=True
Set NodeIndex=TV.Nodes.Add("Class12",4,"Class111","成华区")
Set NodeIndex=TV.Nodes.Add("Class12",4,"Class112","双流")
End Sub保存，运行可以看到一个三级树形结构

这里面重要的是.Nodes.Add语句，很好理解的。

Set NodeIndex=TV.Nodes.Add(,,"Class0","城市")
建立顶层节点“城市”，访问名Class0

 Set NodeIndex=TV.Nodes.Add("Class0",4,"Class1","四川省")
建立第一级节点“四川省”，Class0是顶层节点访问名，4表示和Class0(顶层节点)是“父子关系”，Class1表示这一个节点的访问名。
每增加一个节点，都要说明和其他哪个节点相关（用访问名引述），是什么关系。本例使用常数4表示父子关系，其他关系为：
0 该节点和第一个参数节点同级，且在最前面
1 该节点和第一个参数节点同级，且在最后面
2 和第一个参数节点同级，且在第一个参数节点后面
3 和第一个参数节点同级，且在第一个参数节点前面
4 是第一个参数节点下一级
控件的样式Style有7种：
0.仅为文本;
1.图像和文本;
2.+/-和文本;
3.+/-、图像和文本;

4.直线和文本;
5.直线、图像和文本;
6.直线、+/-和文本;
7.(缺省)直线、+/-、图像和文本
本次使用的style是6，所以要定义一下线型是什么，LineStyle有两种，在编辑状态下双击TreeView控件，在属性设置对话框可以看出来。