Foxtable(狐表)用户栏目专家坐堂 → 求助,目录节点选择控制方法


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

主题:求助,目录节点选择控制方法

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/8 10:48:00 [显示全部帖子]

 多选目录树?

 

 方法一:勾选以后,遍历所有节点,查找是否有其它选中的节点不在同一级节点;

 

 方法二:勾选第一次,为true的时候,用变量记录Level,再次勾选的时候,比较一下,就知道了。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/8 14:57:00 [显示全部帖子]

 根节点不允许多选?

 

Select Case e.Node.Level
    Case 0
        If e.Node.Checked Then
            For Each nd As WinForm.TreeNode In e.Sender.nodes
                If nd.Checked = True
                    e.node.checked = False
                    msgbox("提示")
                    Exit For
                End If
            Next
        End If
    Case 1
       
End Select


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/8 15:54:00 [显示全部帖子]

 如下代码

 

If e.Node.Checked Then
    For Each nd As WinForm.TreeNode In e.Sender.AllNodes
        If nd.Checked = True AndAlso nd.FullPath <> e.Node.FullPath Then
            If nd.FullPath.Split("\")(0) <> e.Node.FullPath.Split("\")(0) Then
                e.node.checked = False
                msgbox("只能在同一根节点下")
                Exit For
            End If
        End If
    Next
End If


 回到顶部