以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  Trv1.Nodes(0).Expand()只能展开第一个？？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28240)
--  作者：temblar
--  发布时间：2013/1/23 11:29:00
--  Trv1.Nodes(0).Expand()只能展开第一个？？
 Trv1.Nodes(0).Expand()
以前能展开level 0 的所有Node,为什么现在调试的时候这能展开第一个node呢

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
--  作者：dreamyuan
--  发布时间：2013/1/23 11:38:00
--  

Trv1.Nodes(0) 就是第一个

Trv1.Nodes(1) 第二个
--  作者：temblar
--  发布时间：2013/1/23 11:40:00
--  
 那展开level 0 的所有node 代码是啥？
--  作者：dreamyuan
--  发布时间：2013/1/23 11:40:00
--  
Trv1.ExpandAll  展开所有
--  作者：temblar
--  发布时间：2013/1/23 11:43:00
--  
 
谢谢楼上两位
可只展开第一级，第二级往下的不展开。。。咋设
--  作者：dreamyuan
--  发布时间：2013/1/23 11:51:00
--  
Trv1.ExpandAll 是展开所有节点呀
--  作者：dreamyuan
--  发布时间：2013/1/23 11:51:00
--  
一二三四五级都展开
--  作者：lin_hailun
--  发布时间：2013/1/23 11:53:00
--  
以下是引用temblar在2013-1-23 11:43:00的发言：
 
谢谢楼上两位
可只展开第一级，第二级往下的不展开。。。咋设


这样的话，只能用编码完成了。

For Each node As Object In trv.Nodes
    node.expand
Next
--  作者：dreamyuan
--  发布时间：2013/1/23 11:59:00
--  
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv1.Nodes
        nd.Expand
Next
--  作者：dreamyuan
--  发布时间：2013/1/23 12:03:00
--  

要是Expand 有参数就好了,呵呵,Expand(3)展开三级,Expand(1,3)展开第一级的第三级