Foxtable(狐表)用户栏目专家坐堂 → [求助]目录树


  共有1976人关注过本帖树形打印复制链接

主题:[求助]目录树

帅哥哟,离线,有人找我吗?
miaoqingqing
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
[求助]目录树  发帖心情 Post By:2019/11/26 12:00:00 [只看该作者]

想实现目录树点击一级节点,只展开二级节点单选,点击二级节点,展开三级节点可以多选
求助

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/26 12:03:00 [只看该作者]

在AfterCheckNode事件判断,如果勾选的是二级节点,就去掉其它二级节点的勾选

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)在AfterCheckNode事件判断,如果勾选...  发帖心情 Post By:2019/12/27 11:21:00 [只看该作者]

不懂怎么写这个代码,求助

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/27 11:33:00 [只看该作者]

If e.node.Level = 1 Then
    For Each n As WinForm.TreeNode In e.node.parentnode.Nodes
        If n.Index <> e.node.Index AndAlso n.Checked Then
            n.Checked = False
        End If
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)If e.node.Level = 1 Then  &nb...  发帖心情 Post By:2019/12/27 17:01:00 [只看该作者]

勾选二级节点时,如果之前一级节点有勾选则取消勾选。
已勾选一个二级节点,再勾选一级节点,则已勾选的一个二级节点取消勾选

要增加实现上面两个功能,上楼代码怎么修改,求助



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/27 17:10:00 [只看该作者]

If e.node.Level = 1 Then
    if e.node.Checked then e.node.parentnode.Checked  = false
    For Each n As WinForm.TreeNode In e.node.parentnode.Nodes
        If n.Index <> e.node.Index AndAlso n.Checked Then
            n.Checked = False
        End If
    Next
elseIf e.node.Level = 0 Then
if e.node.Checked then
    For Each n As WinForm.TreeNode In e.node.Nodes
        n.Checked = False
    Next
end if
End If

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)If e.node.Level = 1 Then  &nb...  发帖心情 Post By:2019/12/27 17:58:00 [只看该作者]

坛主,上楼代码,没效果,是否有误?

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2019/12/27 18:00:00 [只看该作者]

坛主,上楼代码,目录树显示复选框是,操作没效果,是否有误?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/27 21:11:00 [只看该作者]

上传实例说明

 回到顶部