主题：关于节点展开或收缩 问题

窗口中有目录树控件，想实现在展开最后一层节点时，非本节点所在层的其他所有节点自动收缩，操作的节点处于展开状态，如何用代码实现？？

http://www.foxtable.com/webhelp/scr/1310.htm

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