Treeview问题

[wintergoes]

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

[didishu0807]

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

[strongfisher]

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
你自己在调试一下

[zhengjialon]

有.FULLPATH属性的呀。

[lisong770818]

Option Explicit

Private 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 Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node.FullPath
End Sub

[hc_z]

Private Sub tvMain_NodeClick(ByVal Node As MSComctlLib.Node)
MsgBox Node.FullPath

End Sub
'路径中的分隔符还可以设置(一般是“/”)

[beckham1122]

MsgBox Node.FullPath

[wintergoes]

谢谢！非常谢谢！哈哈