以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样在目录树通过ctrl+节点选定多行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100040)
--  作者：xywl
--  发布时间：2017/5/3 16:10:00
--  怎样在目录树通过ctrl+节点选定多行
我想实现，在目录树通过Ctrl+节点（复选节点，不是在前面加复选框）筛选数据到表。请问怎样实现
--  作者：有点色
--  发布时间：2017/5/3 16:22:00
--  

AfterSelectNode事件

 

If ModifierKey <> Keys.Control Then
    For Each nd As WinForm.TreeNode In e.Sender.AllNodes
        nd.BackColor = Color.White
    Next
End If

If e.Node.BackColor = color.green Then
    e.Node.BackColor = color.white
Else
    e.Node.BackColor = color.green
End If
--  作者：xywl
--  发布时间：2017/5/4 13:51:00
--  

不是这个意思，是可以按住Ctrl选节点，然后表的数据跟着变 ，假如选中两个节点表里的数据包含这两个节点

 
--  作者：有点色
--  发布时间：2017/5/4 14:08:00
--  
以下是引用xywl在2017/5/4 13:51:00的发言：

不是这个意思，是可以按住Ctrl选节点，然后表的数据跟着变 ，假如选中两个节点表里的数据包含这两个节点

 

 

在下面编写事件代码即可，循环每一个节点，判断背景颜色，然后合成筛选条件

 

For Each nd As WinForm.TreeNode In e.Sender.AllNodes
    If nd.BackColor = Color.Green Then

        \'合成条件

    End If
Next

\'最后设置筛选，请参考 多选筛选树的知识来做

 

http://www.foxtable.com/webhelp/scr/2503.htm


 
--  作者：xywl
--  发布时间：2017/5/17 16:17:00
--  

nd.BackColor = Color.White
这个怎样改成透明色

 
--  作者：xywl
--  发布时间：2017/5/17 16:18:00
--  
感谢版主的帮助，发了几次贴都是您指导，非常感谢！
--  作者：有点色
--  发布时间：2017/5/17 17:21:00
--  
以下是引用xywl在2017/5/17 16:17:00的发言：

nd.BackColor = Color.White
这个怎样改成透明色

 

 

不能改成透明，只能这样

 

If ModifierKey <> Keys.Control Then
    For Each nd As WinForm.TreeNode In e.Sender.AllNodes
        nd.BackColor = e.Sender.BackColor
    Next
End If

If e.Node.BackColor = color.green Then
    e.Node.BackColor = e.Sender.BackColor
Else
    e.Node.BackColor = color.green
End If