以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  treeview控件快捷菜单  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109893)

--  作者:yxliang2012
--  发布时间:2017/11/22 12:42:00
--  treeview控件快捷菜单
  请教如何实现右键点击treeview不同支点,能弹出不同快捷菜单。
[此贴子已经被作者于2017/11/22 12:43:13编辑过]

--  作者:有点蓝
--  发布时间:2017/11/22 14:25:00
--  
mouseup事件

If e.Sender.Selectednode IsNot Nothing Then
    If e.Sender.Selectednode.text = "a"
        Dim m As RibbonMenu.ContextMenu = ContextMenus("快捷菜单1")
        m.Show(e.Sender,e.x,e.y)
    Else
        Dim m As RibbonMenu.ContextMenu = ContextMenus("快捷菜单2")
        m.Show(e.Sender,e.x,e.y)
    End If
End If

--  作者:yxliang2012
--  发布时间:2017/11/22 14:35:00
--  
ok  谢谢