以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于节点展开或收缩 问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105615)
--  作者：lmlptj
--  发布时间：2017/8/22 22:53:00
--  关于节点展开或收缩 问题
窗口中有目录树控件，想实现在展开最后一层节点时，非本节点所在层的其他所有节点自动收缩，操作的节点处于展开状态，如何用代码实现？？
--  作者：有点蓝
--  发布时间：2017/8/22 22:56:00
--  
http://www.foxtable.com/webhelp/scr/1310.htm
--  作者：有点甜
--  发布时间：2017/8/23 9:07:00
--  

AfterExpandNode事件

 

Dim flag As Boolean = True
For Each nd As WinForm.TreeNode In e.node.nodes
    If nd.Nodes.Count > 0 Then
        flag = False
    End If
Next
If flag Then
    For Each nd As WinForm.TreeNode In e.Sender.AllNodes
        If e.node.FullName.StartsWith(nd.FullName) = false Then
            nd.Collapse
        End If
    Next
End If