TreeView 中通过什么访求可以获得某一个 TreeNode 是在第几层?
TreeView 中通过什么访求可以获得某一个 TreeNode 是在第几层? 问题点数：30、回复次数：3Top
1 楼tl_pear（飘叶寻梦）回复于 2005-06-03 08:24:42 得分 10
Dim ns As New TreeNode
ns = TreeView1.SelectedNode
Dim i As Int16 = 1
While Not ns.Parent Is Nothing
i = i + 1
ns = ns.Parent
End While
MsgBox(i.ToString)Top
2 楼tihua（告诉我吧）回复于 2005-06-03 08:34:42 得分 10
试试：
#Region "找出树中当前节点的级数"
Public Function NodeLevel(ByVal n As TreeNode) As Byte
'* 找出树中当前节点的级数
Dim i As Byte = 1
Dim m As String
Do Until n.Parent Is Nothing
n = n.Parent
i += 1
Loop
Return i
End Function
#End Region
Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Select Case NodeLevel(e.Node).ToString
Case "1"
.........
Case "2"
........
End Select
End SubTop
3 楼pupo（泡泡）回复于 2005-06-03 08:35:35 得分 10
也可以通过分解节点的全路径,前提是节点文本中不允许含有"\"符号,否则分解出来的不正确
Dim tn As TreeNode = Me.TreeView1.SelectedNode
If Not tn Is Nothing Then
Dim a() As String = tn.FullPath.Split("\")
MsgBox(a.Length)
End IfTop
