[原创]一个关于目录树的函数，看了程版的视频做的。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

可以有人用得着，函数名：ParentNodeSelect

1、就是选中某节点，其父节点（的父节点....）跟着被选中；

2、子节点全部取消选用时，父节点取消选中。

Dim nd1 As WinForm.TreeNode = args(0)'复选框状态改变的节点

Dim pd As Boolean '节点是否选中

If nd1.ParentNode IsNot Nothing '选中一个子节点,即自动选中父节点;取消选中所有字节点,自动取消选中父节点

For Each nd As WinForm.TreeNode In nd1.ParentNode.AllNodes

pd=nd.checked

If nd.Checked Then

Exit For

End If

nd1.ParentNode.checked=pd

Functions.Execute("ParentNodeSelect",nd1.ParentNode)

End If

[此贴子已经被作者于2013-12-21 0:13:17编辑过]

主题：[原创]一个关于目录树的函数，看了程版的视频做的。