VB中Treeview 控件的使用方法

首先在 VB 中建立一个新工程，单击“工程/部件”，在控件列表中选中“

Microsoft Windows command controls6.0(sp4)”,按下“确定”按钮返回主界面，在左侧控件窗体中选中 Treeview 控件置于窗体上，再放置一个 Imagelist 控件、两个 Label 控件、两个Textbox 控件、六个 commandbutton 控件，其属性分别如下：

Treeview 控件：名称 Treeview1；

Imagelist 控件：名称 Imagelist1，并在该控件中放置三张个性图片（32×32），建立索引1、2、3；（方法：在Imagelist 控件上单击鼠标右键选择属性）

Label 控件：名称分别为Lab（0）、Lab（1），Caption分别为“父节点：”、“子节点：”； Textbox 控件：名称分别为Txt（0）、Txt（1），text都为“”；

commandbutton 控件：名称为系统默认，Caption分别为“添加”、“展开”、“收起”、“排序”、“删除”、“退出”；

将下列代码加入到代码框：

Option Explicit

Dim I As Integer

Dim J As Integer

Dim nodx As Node

Dim CunZai As Boolean '定义变量

Private Sub Command1_Click()

If Txt(0).Text '' And Txt(1).Text '' Then '不允许建立零字节的父节点和子节点 CunZai=False

J=TreeView1.Nodes.Count

For I=1 To TreeView1.Nodes.Count '检查新输入的父节点名称是否存在

If TreeView1.SelectedItem.Children >0 Then

If Txt(0).Text=TreeView1.Nodes(I).Text Then CunZai=True

End If

Next I

If CunZai=True Then '若存在, 则在父节点下建立子节点

Set nodx=TreeView1.Nodes.Add(Txt(0).Text, tvwChild, 'child' & J,

Txt(1).Text, 3)

Else ,若不存在,则建立父节点和子节点

Set nodx=TreeView1.Nodes.Add(, , Txt(0).Text, Txt(0).Text, 1)

Set nodx=TreeView1.Nodes.Add(Txt(0).Text, tvwChild, 'child' & J,_

Txt(1).Text, 3)

End If

TreeView1.Refresh

ElseIf Txt(0).Text="' Then MsgBox '请输入父节点名称!', vbInformation, '警告！' '系统提示

ElseIf Txt(1).Text="' Then MsgBox '请输入子节点名称!', vbInformation, '警告！' End If

End Sub

Private Sub Command2_Click()

For I=1 To TreeView1.Nodes.Count