以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树菜单  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113974)
--  作者：有点甜
--  发布时间：2018/1/25 23:08:00
--  
Select Case e.Node.Text
    Case "工序记录表"
        Forms("工序记录表").Open()
        MainTable = Tables("工序跟踪表")
End Select
--  作者：客人
--  发布时间：2018/1/25 23:13:00
--  
老师，我双击了工序记录表这个节点，还是没有触发，我这个目录树是手动添加的，不是用行后台生成哦，谢谢！
--  作者：有点甜
--  发布时间：2018/1/26 9:02:00
--  
msgbox(e.node.text)
Select Case e.Node.Text
    Case "工序记录表"
        msgbox(123)
        Forms("工序记录表").Open()
        MainTable = Tables("工序跟踪表")
End Select
--  作者：有点甜
--  发布时间：2018/1/26 9:29:00
--  

换种方式吧，改成控制背景颜色

 

static pnd As object
Dim tree As windows.Forms.treeview = e.sender.basecontrol
Dim x As Integer = System.Windows.Forms.Cursor.Current.Position.X
Dim y As Integer = System.Windows.Forms.Cursor.Current.Position.Y
Dim pt = tree.PointToClient(new Point(X, Y))  \'取当前坐标
Dim nd As System.Windows.Forms.TreeNode = tree.GetNodeAt(pt) \'取坐标所在位置的节点
If nd Is Nothing OrElse pnd Is Nothing OrElse pnd.name <> nd.name Then
    For Each nnd As WinForm.TreeNode In e.Sender.AllNodes
        nnd.BackColor = color.white
        nnd.ForeColor = color.black
    Next
   
    If nd IsNot Nothing
        nd.BackColor = color.red
        nd.ForeColor = color.yellow
    End If
End If
pnd = nd