Foxtable(狐表)用户栏目专家坐堂 → 目录树 层数


  共有1913人关注过本帖树形打印复制链接

主题:目录树 层数

帅哥哟,离线,有人找我吗?
wei0769
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1814 积分:19222 威望:0 精华:0 注册:2013/4/10 14:38:00
目录树 层数  发帖心情 Post By:2017/3/28 12:48:00 [只看该作者]

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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106004 积分:539107 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/28 14:30:00 [只看该作者]

循环所有节点,获取level的最大值


 回到顶部
帅哥哟,离线,有人找我吗?
wei0769
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1814 积分:19222 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2017/3/28 16:13:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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)

 回到顶部