我不会用treeview控件!高手请指教!
                      Night_Cai

解决方案 »

  1.   

    http://www.csdn.net/expert/topic/248/248393.shtm
    看看我的代码
      

  2.   

    Private Sub Form_Load()
       '设置 Treeview 控件属性。
       TreeView1.LineStyle = tvwRootLines  ' Linestyle 1   '添加 Node 对象。
       Dim nodX As Node    '声明 Node 变量。
       '带有文本 'Root' 的第一个节点。
       Set nodX = TreeView1.Nodes.Add(, , "r", "Root")   '下一个节点是节点 1 ("Root") 的子节点。
       Set nodX = TreeView1.Nodes.Add("r", tvwChild, "child1", "Child")End Sub注意:key 需以字母开头,字母和数字和其它字符组合
    一个结点可以没有Key ,
      

  3.   

    一般和ImageList控件一起使用   TreeView1.Style = tvwTreelinesPlusMinusPictureText
       TreeView1.ImageList = ImageList1
       Dim nodX As Node
       Set nodX = TreeView1.Nodes.Add(, , "R", "Root", 1)
       Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1", 2)
       Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2", 3)
       Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3", 4)
       Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4", 5)
       nodX.EnsureVisibleKey必须唯一,以上"Root","C1", "C2", "C3", "C4"都是Key上面示例中,Imagelist中至少要有五个图片
      

  4.   

    更正,上面Root的Key为"R"
    下面是判断哪一个被点了的代码
    Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        Select Case Node.Key
            Case "R"
                MsgBox "Root selected"
            Case "C1"
                MsgBox "Child 1 selected"
        End Select
    End Sub
      

  5.   

    请看MSDN,先了解基础的,在。