以文本方式查看主题

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

--  作者:wei0769
--  发布时间:2017/3/28 12:48:00
--  目录树 层数

可以用 level 知道当前的层数,怎样知道目录树有多少层?


--  作者:有点蓝
--  发布时间:2017/3/28 14:30:00
--  
循环所有节点,获取level的最大值


--  作者:wei0769
--  发布时间:2017/3/28 16:13:00
--  

能否写成一个 函数 给我们调用

 

发现没有下级节点,调用下级节点也不会出错


--  作者:有点色
--  发布时间:2017/3/28 17:14:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim mlvl As Integer = 0
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level > mlvl Then
        mlvl = nd.level
    End If
Next
msgbox(mlvl)