以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何设置双击目录树选中节点，展开当前节点后的所有节点？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98400)
--  作者：fengwenliuyan
--  发布时间：2017/3/29 9:48:00
--  如何设置双击目录树选中节点，展开当前节点后的所有节点？

将目录树的AfterCheckNode事件代码设置为：

For Each nd As WinForm.TreeNode In e.Node.AllNodes
    nd.Checked  = e.Node.Checked
Next


将目录树的DoubleClick事件代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("意和出入库登记表", "客户|工序|品名规格|出库单价")

Trv.Nodes(0).Expand()

Trv.ExpandAll()


测试结果：

双击目录树中的任意节点后，整个目录树的所有节点，全都展开了，而不是预期的当前节点后的所有节点。
--  作者：有点色
--  发布时间：2017/3/29 10:28:00
--  

mousedoubleclick事件

 

e.Node.ExpandAll
--  作者：fengwenliuyan
--  发布时间：2017/3/29 14:18:00
--  
谢谢老师