以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何动态生成右键菜单???  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111642)
--  作者：jeeter
--  发布时间：2017/12/26 17:33:00
--  如何动态生成右键菜单???
如何动态生成右键菜单???

在右键列头的时候    想根据不同的表生成不同的菜单
--  作者：有点甜
--  发布时间：2017/12/26 17:40:00
--  

参考

 

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

 
--  作者：jeeter
--  发布时间：2017/12/26 17:58:00
--  
然后快捷菜单里面的项要怎么生成?

现在要实现的功能是,右键不同的表的列头显示不同的菜单    
然后菜单的项也是不同的    项的个数表的行数来的
[此贴子已经被作者于2017/12/26 17:57:59编辑过]
--  作者：有点甜
--  发布时间：2017/12/26 17:59:00
--  

1、设置快捷菜单

 

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

 

2、在2楼的事件那里，调用你设置的
--  作者：jeeter
--  发布时间：2017/12/26 18:42:00
--  
显示菜单我知道怎么处理

我现在的问题是要动态生成菜单项


我找到一个例子
http://www.foxtable.com/webhelp/scr/2233.htm

但这个不是我要的    因为我的菜单项不是固定的
[此贴子已经被作者于2017/12/26 18:45:47编辑过]
--  作者：jeeter
--  发布时间：2017/12/26 18:45:00
--  



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

这个例子  是需要两个菜单   然后新的菜单复制旧的菜单

不是我要的结果    我是希望菜单项可以完全的动态生成
[此贴子已经被作者于2017/12/26 18:46:00编辑过]
--  作者：有点蓝
--  发布时间：2017/12/26 20:22:00
--  
11
[此贴子已经被作者于2017/12/26 21:37:24编辑过]
--  作者：jeeter
--  发布时间：2017/12/26 20:45:00
--  

不行啊   下面这种方式  需要两个菜单才能实现生成     

Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")
mnu2.Items.Add(mnu1.Items("Cut"), False)
mnu2.Items.Add(mnu1.Items("Copy"))
mnu2.Items.Add(mnu1.Items("Paste"))
mnu2.Items.Add(mnu1.Items("Ascending"))
mnu2.Items.Add(mnu1.Items("Descending"))
mnu2.Items.Add(mnu1.Items("UnSort"))


我是希望只有一个菜单也能生成
例如这样:
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("列头菜单")
mnu1.Items.Add("A01","状态1")
mnu1.Items.Add("A02","状态2")
mnu1.Items.Add("A03","状态3")

菜单项的数据来源于状态表 , 不是固定的  
有可能某一个操作员打开程序只有 状态1 和 状态2
而另一个操作员程序打开可能有不一样了
所以想动态生成
--  作者：有点蓝
--  发布时间：2017/12/26 21:38:00
--  
测试了一下，没有办法。
--  作者：有点蓝
--  发布时间：2017/12/26 21:40:00
--  
如果是在窗口用的，可以考虑使用窗口快捷菜单：http://www.foxtable.com/webhelp/scr/3116.htm