以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码添加右键快捷菜单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146461)
--  作者：紫色幽魂
--  发布时间：2020/2/24 14:32:00
--  [求助]代码添加右键快捷菜单
能不能在表BeforeShowContextMenu事件中用代码添加快捷菜单名称和点击后执行的代码
--  作者：有点蓝
--  发布时间：2020/2/24 14:57:00
--  
参考

If e.HitType = HitTypeEnum.Cell  Then
    Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
    Dim a As new C1.Win.C1Command.C1Command
    a.name = "test"
    a.text = "test"
    Dim b As new C1.Win.C1Command.C1CommandLink(a)
    Dim c As new RibbonMenu.ContextCommand(b)
    If mnu1.items.Contains("test") = False Then
        mnu1.items.add(c)
    End If
    e.ContextMenu = ContextMenus("Cell") \'显示快捷菜单"菜单A"
End  If

点击执行代码只能到全局菜单事件里处理：http://www.foxtable.com/webhelp/topics/1129.htm
--  作者：y2287958
--  发布时间：2020/2/24 17:25:00
--  
蓝版，写个点击执行代码试试，好像在全局菜单事件中实现不了。
--  作者：有点蓝
--  发布时间：2020/2/24 17:32:00
--  
快捷菜单是没有办法。