treeview的小问题

Question

bnode = Form1.TreeView1.Nodes(iIndex).Parent
While (bnode)
while后面是要判断当bnode存在的时候，我该怎么写
先给bnode赋值，再判断它是否存在可以马

Answer 1

While Not bnode Is Nothing
    ……
WEnd

Answer 2

就是我现在要把一个结点的所有父结点（一直到根节点）都遍历，取出遍历的每个节点的text值

Answer 3

function sub a(i as integer)i=Form1.TreeView1.Nodes(i).Parent.index
if i=0 then
   msgbox Form1.TreeView1.Nodes(i).text
   exit sub
else
   msgbox Form1.TreeView1.Nodes(i).text
  call a(i)
endif

Answer 4

function sub a(i as integer)
  i=TreeView1.Nodes(i).Parent.index
  msgbox Form1.TreeView1.Nodes(i).text
  if i<>0 then call a(i)
end function

Answer 5

bnode is nothing '完了。

Answer 6

要当前NODE的路径,可以用node.fullpath