以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]一个关于目录树的函数，看了程版的视频做的。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44029)
--  作者：2
--  发布时间：2013/12/20 23:44:00
--  [原创]一个关于目录树的函数，看了程版的视频做的。
可以有人用得着，函数名：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
    Next
    nd1.ParentNode.checked=pd
    Functions.Execute("ParentNodeSelect",nd1.ParentNode)
End If
[此贴子已经被作者于2013-12-21 0:13:17编辑过]
--  作者：逛逛
--  发布时间：2013/12/21 7:38:00
--  
赞一个