以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打开窗口让目录树的内容默认只展到1层要代码怎么写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=190916)

--  作者:YUNSEL
--  发布时间:2024/3/14 8:11:00
--  打开窗口让目录树的内容默认只展到1层要代码怎么写?
做了一个导般菜单,想在打开时,默认进入窗口后,只展开到0~1级节点,这个要怎么实现?
--  作者:有点蓝
--  发布时间:2024/3/14 8:48:00
--  
Dim tr As WinForm.TreeView
tr = Forms(
"窗口1").Controls("TreeView1")
for each n as WinForm.TreeNode in tr.Nodes
n.Expand()
next

--  作者:YUNSEL
--  发布时间:2024/3/14 10:55:00
--  
谢谢