[VB.NET]求助:关于取treeview父结点的问题.(在线...)

<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
求助:关于取treeview父结点的问题.(在线...)
我想取得某一结点（d）在treeview中的路径:a/b/d
a id context parent
├b 1 a 0
│└d 2 b 1
└c 3 c 1
4 d 2
*****************************************************
* While (ParentNode.ID <> 0) *
* ParentNode = ParentNode.Parent *
* 取得父结点的ID和Text *
* newPARENTID = ParentNode.ID *
* newCONTEXT = ParentNode.Text *
* ?合目? *
* Directory = newCONTEXT + / + Directory *
* 到?根?点退出循? *
* End While *
*****************************************************

可是取到最后, ParentNode = ParentNode.Parent 会出错.
如果把条件改成(ParentNode.ID > 1),不会出错,可是取不到父结点的路径.
求助,我是新手~~~~
__________________________________________________________________________
if( ParentNode.Parent isnot nothing ) then
ParentNode = ParentNode.Parent
....
....
else
....
endif
__________________________________________________________________________
改成> 0呢？
__________________________________________________________________________
改成> 0呢？
__________________________________________________________________________
先找到此项：

Dim myNode As TreeNode
For Each myNode In a

MsgBox(nd.Text)
MsgBox(nd.p)
nd.Nodes.g()

If myNode.Text = Trim(TextBox4.Text) Then
TreeView1.SelectedNode = myNode
myNode.Nodes.Add( 加了 )
myNode.Expand()
Exit For
End If
traverse(myNode.Nodes)
Next
End Sub


然后取其mynode.parent.text即可
__________________________________________________________________________



Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.ListView1.View = View.Details
Me.ListView1.GridLines = True
Me.ListView1.Columns.Add( Name , 150, HorizontalAlignment.Left)
Me.ListView1.Columns.Add( CreationTime , 150, HorizontalAlignment.Left)

Dim drive As String
For Each drive In Environment.GetLogicalDrives
Dim cNode As New TreeNode()
cNode.Text = drive.ToString
Me.TreeView1.Nodes.Add(cNode)
Next
End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As Object, _
ByVal e As System.Windows.Forms.TreeViewEventArgs) _
Handles TreeView1.AfterSelect
Me.ListView1.Items.Clear()
Try
Dim dir As New DirectoryInfo(Me.TreeView1.SelectedNode.Text)
Dim di As DirectoryInfo() = dir.GetDirectories()
Dim i As Integer
取目录=========关键所在
For i = 0 To di.Length - 1
If Not di(i).Name.Equals( . ) And Not di(i).Name.Equals( .. ) Then
Me.ListView1.Items.Add(di(i).Name)
Me.ListView1.Items(i).SubItems.Add(di(i).CreationTime.ToString())
End If
Next i
Catch di As Exception
MessageBox.Show(di.Message)
End Try
End Sub
__________________________________________________________________________
to:neil_cn(Neil)
最後一次取到的ParentNode.Parent的id是 TreeView1 ，
所以用isnot nothing 作为判断条件仍然会回到循环里。

to:magicbacon(Cannot help coding)
改成> 0也不好用。

to:cgtsea()
有点难，没看懂。我琢磨琢磨哈。

> _ __________________________________________________________________________
利用 depth 以及 type is nothing
__________________________________________________________________________
楼主，我很关注这个问题，能不能把加载treeview的代码全部贴出来。
__________________________________________________________________________