主题：如何判断目录树是不是在展开状态？

譬如下面这个图

此主题相关图片如下：qq图片20140912101752.jpg

  

现在是展开展开状态，再次点击功能导航 变成 收缩状态 代码怎么写

也就是功能导航 是个开关

Click 事件

If e.Sender.SelectedNode.text="功能导航" Then

   e.Sender.CollapseAll

End If

那么处于收缩状态 再次点击功能导航 要求展开 代码如何写

明白

知道了 谢谢

通用代码，哪种目录树都适用：

NodeMouseDoubleClick

e.Sender.StopRedraw
For Each nd As WinForm.TreeNode In e.Sender.AllNodes
    If nd.Name <> e.Node.Name AndAlso e.Node.Nodes.Count > 0 Then
        nd.Collapse
    End If
    e.Node.EnsureVisible
    e.Sender.SelectedNode = e.Node
Next
e.Sender.ResumeRedraw

换成  ExpandAll