主题：收起和展开目录树节点

各位老师，我想实现在点击一级目录的时候，只展开点击的目录的二级目录，同时关闭一级其他展开的二级目录，如截图中，

当我点击“北京市”的时候，打开北京市的二级，关闭福建等其他省份的二级目录；当我记福建省的时候，展开福建省的二级目录，关闭北京等其他的目录

此主题相关图片如下：qq截图20150318151626.png

BeforeExpandNode事件

 BeforeExpandNode事件，代码

 

systemready = False
Dim pnd As object
If e.Node.Level = 0 Then
    pnd = e.Sender
Else
    pnd = e.Node
End If
pnd.CollapseAll
e.Node.ExpandAll
Systemready = True

老师，能不能单击的时候执行？

还有一个问题，就是上述代码对于两级的使用，但对三级的时候也就直接打开了，能不能每次点击只展开下一级？

用2楼的

那你就写到 AfterSelectNode 事件

 

systemready = False
Dim pnd As object
If e.Node.Level = 0 Then
    pnd = e.Sender
Else
    pnd = e.Node
End If
pnd.CollapseAll
e.Node.Expand
Systemready = True

老师，那种方法只能打开到二级，点击二级的时候后连二级都直接关了。最主要的是不能实现“单击”展开，不是“双击”

谢谢，老师这是我想要的效果，不过怎么在点击的时候有闪屏

BeforeSelectNode 事件

 

systemready = False
e.Sender.StopRedraw
Dim pnd As object
If e.Node.Level = 0 Then
    pnd = e.Sender
Else
    pnd = e.Node
End If
pnd.CollapseAll
e.Node.Expand
e.Sender.ResumeRedraw
Systemready = True

还有点闪，但比前一次好多了