Treeview问题

Question

单击一个NOde后怎么得到这个node的全路径？谢谢

Answer 1

先得到当前node的key和text属性，在通过它的parient属性得到父节点的key和text属性

Answer 2

Private Sub AssetTree_NodeClick(ByVal Node As MSComctlLib.Node)
dim s as string
    do while (node.parent=nothing)
     s=node.text & s
      node=node.parent
    next
end sub
你自己在调试一下

Answer 3

Option ExplicitPrivate Sub Form_Load()
    Dim nodX As Node
    
    TreeView1.Nodes.Clear
    Set nodX = TreeView1.Nodes.Add(, , "lisong1", "lisong1")
    Set nodX = TreeView1.Nodes.Add("lisong1", tvwChild, "lisong2", "lisong2")
    Set nodX = TreeView1.Nodes.Add(, , "lisong3", "lisong3")
    With Me.TreeView1
    
    End With
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    MsgBox Node.FullPath
End Sub

Answer 4

Private Sub tvMain_NodeClick(ByVal Node As MSComctlLib.Node)
    MsgBox Node.FullPath
    
End Sub
'路径中的分隔符还可以设置(一般是“/”)