TreeView节点的增,删,排序

 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分别为“添加”、“展开”、“收起”、“排序”、“删除”、“退出”；

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

1. Option Explicit
3. Dim I As Integer
4. Dim J As Integer
5. Dim nodx As Node
6. Dim CunZai As Boolean '定义变量
7. Private Sub Command1_Click()
8.    If Txt(0).Text <> "" And Txt(1).Text <> "" Then '不允许建立零字节的父节点和子节点
9.      CunZai = False
10.      J = TreeView1.Nodes.Count
11.      For I = 1 To TreeView1.Nodes.Count '检查新输入的父节点名称是否存在
12.        If TreeView1.SelectedItem.Children > 0 Then
13.          If Txt(0).Text = TreeView1.Nodes(I).Text Then CunZai = True
14.          End If
15.      Next I
16.      If CunZai = True Then '若存在, 则在父节点下建立子节点
17.       Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J, _
18.                              Txt(1).Text, 3)
19.      Else  '若不存在,则建立父节点和子节点
20.        Set nodx = TreeView1.Nodes.Add(, , Txt(0).Text, Txt(0).Text, 1)
21.        Set nodx = TreeView1.Nodes.Add(Txt(0).Text, tvwChild, "child" & J, _
22.                      Txt(1).Text, 3)
23.      End If
24.      TreeView1.Refresh
25.    ElseIf Txt(0).Text = "" Then MsgBox "请输入父节点名称!", vbInformation, "警告！"
26.    '系统提示
27.    ElseIf Txt(1).Text = "" Then MsgBox "请输入子节点名称!", vbInformation, "警告！"
28.    End If
29. End Sub
31. Private Sub Command2_Click()
32.    For I = 1 To TreeView1.Nodes.Count
33.      TreeView1.Nodes(I).Expanded = True '展开所有节点
34.    Next I
35. End Sub
37. Private Sub Command3_Click()
38.    For I = 1 To TreeView1.Nodes.Count
39.      TreeView1.Nodes(I).Expanded = False '收起所有节点
40.    Next I
41. End Sub
43. Private Sub Command4_Click()
44.    TreeView1.Sorted = True '排列顺序
45. End Sub
47. Private Sub Command5_Click()
48.    If TreeView1.SelectedItem.Index <> 1 Then
49.      TreeView1.Nodes.Remove TreeView1.SelectedItem.Index '删除选定的节点
50.    End If
51. End Sub
53. Private Sub Command6_Click()
54.    End '退出程序
55. End Sub
57. Private Sub Form_Load()
58.    TreeView1.LineStyle = tvwTreeLines '在兄弟节点和父节点之间显示线
59.    TreeView1.ImageList = ImageList1 '链接图像列
60.    TreeView1.Style = tvwTreelinesPlusMinusPictureText
61.    '树状外观包含全部元素
62.    Set nodx = TreeView1.Nodes.Add(, , "keenweiwei", "keenweiwei", 1)
63.    '建立名称为 "keenweiwei"的父节点,选择索引为1的图像
64.    Set nodx = TreeView1.Nodes.Add("keenweiwei", tvwChild, "child01", "收件箱", 3)
65.    '在 "keenweiwei"父节点下建立"收件箱"子节点,选择索引为3的图像
66.    Set nodx = TreeView1.Nodes.Add("keenweiwei", tvwChild, "child02", "发件箱", 3)
67.    '在 "keenweiwei"父节点下建立"发件箱"子节点,选择索引为3的图像
68.    CunZai = False
69. End Sub
71. Private Sub Label1_Click(Index As Integer)
73. End Sub
75. Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
76.    Node.ExpandedImage = 2 '节点被展开时,选择索引为2的图像
77. End Sub
79. Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
80.    If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无
81.      For I = 1 To TreeView1.Nodes.Count
82.      If TreeView1.Nodes(I).Selected Then
83.        MsgBox "您选择的是：“" & TreeView1.Nodes(I).FullPath & "”子节点！"
84.        '系统提示
85.      End If
86.      Next I
87.    End If
88. End Sub