怎样取得 treeview的一个item的所有上面的节点？？

Question

比如：
A
--B
  |__X
  |__Y
     |__Z
--C
  |__D现在取Z的应该是 A\B\Y\Z
怎么实现？
用parent可以吗？只能取到上一层的。用递归算法么？

Answer 1

Dim nodX As Node
    Set nodX = TreeView1.SelectedItem
    
    Dim PnodX As Node
    Set PnodX = TreeView1.SelectedItem
          
    mydir = nodX.Text
    Set PnodX = PnodX.Parent
    While Not PnodX Is Nothing
        mydir = PnodX.Text & "/" & mydir
        Set PnodX = PnodX.Parent
    Wend
 -----------
搞定 散了

Answer 2

到这里下载:
http://www.mndsoft.com/blog/blogview.asp?logID=18
压缩包里包含怎样遍历所有节点．
试试，不行我在给你其他代码．

Answer 3

我觉得应该是index小于当前节点的吧
用TreeView1.Nodes(index)得到节点

Answer 4

caveworm(蚱蜢)是对的，分分偶一点。

Answer 5

假如节点都是按顺序添加的，可以用我说的index小于当前节点的得到～

Answer 6

http://paid-to-promote.com/promotionpage.php?id=3386

Answer 7

我这个才是标准答案吧：
    
    TreeView.Nodes.Item(i).FullPath----------
Private Sub Form_Load()
   Dim nodX As Node
   Set nodX = TreeView1.Nodes.Add(,,,"Root")
   Set nodX = TreeView1.Nodes.Add(1,tvwChild,,"Dir1")
   Set nodX = TreeView1.Nodes.Add(2,tvwChild,,"Dir2")
   Set nodX = TreeView1.Nodes.Add(3,tvwChild,,"Dir3")
   Set nodX = TreeView1.Nodes.Add(4,tvwChild,,"Dir4")
   nodX.EnsureVisible   '显示全部节点。
   TreeView1.Style = tvwTreelinesText '样式 4。
End SubPrivate Sub TreeView1_NodeClick(ByVal Node As Node)
   MsgBox Node.FullPath
End Sub

Answer 8

呵呵，是呀   .FullPath 有这个属性，干嘛不用呀。

Answer 9

http://www.mndsoft.com/blog/default.asp