将目录树的AfterCheckNode事件代码设置为:
For Each nd As WinForm.TreeNode In e.Node.AllNodes nd.Checked = e.Node.CheckedNext
将目录树的DoubleClick事件代码设置为:
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("意和出入库登记表", "客户|工序|品名规格|出库单价")
Trv.Nodes(0).Expand()
Trv.ExpandAll()
测试结果:
双击目录树中的任意节点后,整个目录树的所有节点,全都展开了,而不是预期的当前节点后的所有节点。