主题：[求助]目录权问题

打开窗口生成目录树

节点为A,B,C（默认是关闭的）

 

节点A--子节点为A1,A2

节点B--子节点B1,

节点C--子节点为C1,C2,C3

 

选中节点A时展开子节点 ,关闭B,C

选中节点B时展开子节点,关闭A,C

选中节点C时展开子节点,关闭A,B

 

 

 

BeforeExpandNode 事件

 

e.sender.CollapseAll

想单击节点名时执行，不是点+

 

还有没选中的节点不显示+（如果有下级节点的话）

AfterSelectNode 事件

 

e.sender.CollapseAll
e.Node.ExpandAll

同一个窗口中加入了table1,table2,table3（默认1在最上面，然后2，3）

 

三张表是重叠在一起的，选中目录树节点A是显示table1,选中B是显示table2,选中C是显示table3,这个要怎么实现了

If e.Node.Text = "表A" Then
   
    e.Form.Controls("Table1").Visible = True
   
    e.Form.Controls("Table2").Visible = False
   
    e.Form.Controls("Table3").Visible = False
   
ElseIf e.Node.Text = "表B" Then
   
    e.Form.Controls("Table1").Visible = False
   
    e.Form.Controls("Table2").Visible = True
   
    e.Form.Controls("Table3").Visible = False
   
End If

谢谢 大红袍老师

 

再请教这个问题，那个目录树的+能否隐藏了

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

选中节点再显示+号，命令是？

 

这个做不到，只能整体改。

 

或者换一种思路，目录树默认没有子节点，点击的时候，才add上节点。