VB中Treeview 控件的使用方法

ext
　''树状外观包含全部元素
　Set nodx = TreeView1.Nodes.Add(, , "蒲子明", "蒲子明", 1)
　''建立名称为 "蒲子明"的父节点,选择索引为1的图像
　Set nodx = TreeView1.Nodes.Add( "蒲子明", tvwChild, "child01", "收件箱", 3)
　''在 "蒲子明"父节点下建立"收件箱"子节点,选择索引为3的图像
　Set nodx = TreeView1.Nodes.Add( "蒲子明", tvwChild, "child02", "发件箱", 3)
　''在 "蒲子明"父节点下建立"发件箱"子节点,选择索引为3的图像
　CunZai = False
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
　 Node.ExpandedImage = 2 ''节点被展开时,选择索引为2的图像
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
　 If TreeView1.SelectedItem.Children = 0 Then ''检查是否有子节点,0为无
　　For I = 1 To TreeView1.Nodes.Count
　　If TreeView1.Nodes(I).Selected Then
　　　MsgBox "您选择的是：“" & TreeView1.Nodes(I).FullPath & "”子节点！"
　　　 ''系统提示
　　End If
　　Next I
　End If
End Sub