以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断目录树层数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51700)

--  作者:jianjingmaoyi
--  发布时间:2014/6/1 9:20:00
--  判断目录树层数
  如何判断一个目录树中最多层数:


 比如一个目录树 有的是2层 有的是4层 有的是5层  如何判断最多的层数 并且是几层.

--  作者:nothing
--  发布时间:2014/6/1 9:41:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim lv As Integer = 0
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level >lv
        lv=nd.Level
    End If
Next

MessageBox.Show(lv)

--  作者:nothing
--  发布时间:2014/6/1 9:48:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim lv As Integer = 0
Dim mc As String
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level >lv
        lv=nd.Level
        mc = nd.FullPath
    End If
Next

MessageBox.Show("目录树层数:" & lv & " ,名称:" & mc)


FullPath也可以判断

--  作者:jianjingmaoyi
--  发布时间:2014/6/1 9:48:00
--  
我试试
--  作者:jianjingmaoyi
--  发布时间:2014/6/1 9:56:00
--  
ok  不错 谢谢