[求助]如何展开TreeView指定级的所有节点（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何展开TreeView指定级的所有节点（已解决）

共有2261人关注过本帖树形打印复制链接主题：[求助]如何展开TreeView指定级的所有节点（已解决）

yyzlxc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]如何展开TreeView指定级的所有节点（已解决） 发帖心情

Post By：2019/7/8 16:34:00 [只看该作者]

用递归函数生成目录树，执行以下代码，只能展开第二级的节点，如果要展开第五级以上的全部节点，六级以下的节点关闭，代码如何修改，请各位老师指教，谢谢！！

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

tr.Nodes(1).Expand()

[此贴子已经被作者于2019/7/8 16:59:51编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107323 积分：545876 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/8 16:50:00 [只看该作者]

在递归生成目录树的时候直接就展开节点。

不然还的另外使用一个递归函数，来做展开。如果固定5级，也可以直接做5个循环

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each n As WinForm.TreeNode In tr.Nodes

n.Expand

For Each n1 As WinForm.TreeNode In n.Nodes

n1.Expand

……

或者试试

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each n As WinForm.TreeNode In tr.AllNodes

If n.Level < 5 Then

n.Expand

End If

yyzlxc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2019/7/8 16:59:00 [只看该作者]

谢谢有点蓝老师的指教，问题解决，再次感谢！！

主题：[求助]如何展开TreeView指定级的所有节点（已解决）