- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树如何做到在同级内开一个收起一个 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166129)
-- 发布时间：2021/5/19 21:52:00
-- 目录树如何做到在同级内开一个收起一个
蓝老师：如题，怎样能做到目录树如何在同级内开一个收起一个
AfterExpandNode事件：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each Node As WinForm.TreeView In tr.AllNodes
If Node.Name <> e.Node.Name Then
Node.Collapsed = True
End If
Next
此主题相关图片如下：图片1.png
[此贴子已经被作者于2021/5/20 0:10:01编辑过]
-- 发布时间：2021/5/20 9:26:00
--
if e.Node.parentnode is nothing then
For Each Node As WinForm.Treenode In tr.Nodes
If Node.Name <> e.Node.Name Then
Node.Collapsed()
End If
Next
If Node.Name <> e.Node.Name Then
Node.Collapsed()
End If
Next
else
For Each Node As WinForm.Treenode In e.Node.parentnode.Nodes
If Node.Name <> e.Node.Name Then
Node.Collapsed()
End If
Next
If Node.Name <> e.Node.Name Then
Node.Collapsed()
End If
Next
end if
-- 发布时间：2021/5/20 10:09:00
--
蓝老师，您再看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目18.table |
-- 发布时间：2021/5/20 10:30:00
--
简单的几个错误，但是没有去理解代码，也就没有办法自己解决，别人给的代码也就只能等着别人来改
-- 发布时间：2021/5/20 10:58:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("表A","一类|二类|三类")
trv.Nodes(0).ExpandAll
这是目录树打开后默认展开的第一层，这一层展开下面第一层也默认展开，怎么设置？样子如图
此主题相关图片如下：微信图片_20210520105725.png
-- 发布时间：2021/5/20 11:04:00
--
[此贴子已经被作者于2021/5/20 11:10:56编辑过]
-- 发布时间：2021/5/20 15:19:00
--
解决方法
开启窗口计时功能，间隔100
把代码放到计时器事件
e.form.TimerEnabled = false
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("表A","一类|二类|三类")
systemready=false
trv.Nodes(0).ExpandAll
systemready=true
[此贴子已经被作者于2021/5/20 15:19:24编辑过]