以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断最后点击的目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107638)
--  作者：happyft
--  发布时间：2017/10/6 11:09:00
--  如何判断最后点击的目录树
窗口中有几个目录树,想通过一个按钮实现点击时展开或收缩鼠标刚刚定位到上面的那个目录树,要怎么判断才行?
For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TreeView Then \'判断控件是否是目录树
        Dim tr As WinForm.TreeView = c
        If tr.Focused = True Then  \'如何判断是鼠标刚刚点击过的目录树?
            tr.CollapseAll
        End If
    End If
Next

谢谢!
--  作者：有点甜
--  发布时间：2017/10/6 11:50:00
--  

在各个目录树的click事件（或者在窗口全局的click事件），加上代码记录控件名，如 vars("最后焦点目录树") = e.sender

 

这样就可以引用了。