以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  展开和关闭节点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91006)
--  作者：zhangxl1964
--  发布时间：2016/9/27 14:20:00
--  展开和关闭节点
老师：你好！

        如何实现在加载树中，打开一个选定节点后，自动关闭其他已经打开的节点？
--  作者：有点蓝
--  发布时间：2016/9/27 15:10:00
--  
系统的加载树没有办法，自己种的树，参考http://www.foxtable.com/webhelp/scr/0908.htm

AfterExpandNode事件

Select Case e.Node.Level
    Case 0
        For Each n As WinForm.TreeNode In  e.Sender.Nodes
            If n.Text <> e.node.Text Then n.Collapse
        Next
    Case Else
        For Each n As WinForm.TreeNode In  e.node.ParentNode.Nodes
            If n.Text <> e.node.Text Then n.Collapse
        Next
End Select
--  作者：zhangxl1964
--  发布时间：2016/9/28 16:10:00
--  
谢谢！