以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何直接隐藏cell快捷菜单。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=34754)

--  作者:faxfaxfax
--  发布时间:2013/6/14 17:46:00
--  [求助]如何直接隐藏cell快捷菜单。
BeforeShowContextMenu中

ContextMenus("Cell")("Copy").Visible = False

上面的代码禁用了快捷菜单中名为"Copy"的项目(命令)。


如何直接隐藏cell快捷菜单。


--  作者:Bin
--  发布时间:2013/6/14 17:51:00
--  
.Enabled = False 才是禁用 你的代码就是隐藏.
--  作者:faxfaxfax
--  发布时间:2013/6/14 18:10:00
--  
表达错了,
BeforeShowContextMenu中

ContextMenus("Cell")("Copy").Visible = False

上面的代码隐藏了快捷菜单中名为"Copy"的项目(命令)。


如何直接隐藏cell快捷菜单,就是隐藏cell快捷菜单下的所有。



--  作者:faxfaxfax
--  发布时间:2013/6/15 7:40:00
--  
自己顶
--  作者:Bin
--  发布时间:2013/6/15 9:10:00
--  
你这也思路不太科学吧,应该直接从菜单设计下手取消这个菜单.

非要隐藏的话可以这样做

For Each it As RibbonMenu.ContextCommand In ContextMenus("Cell").Items
    it.visible=False
Next

--  作者:狐狸爸爸
--  发布时间:2013/6/15 10:14:00
--  

楼主也许是有的表要显示,有的表不要显示的。

如果要隐藏所有,不如直接取消,在BeforeShowContextMenu设置代码
 
If e.HitType = HitTypeEnum.Cell Then \'如果是Cell菜单
    e.Cancel = True
End If


--  作者:faxfaxfax
--  发布时间:2013/6/15 10:21:00
--  
狐爸确实理解了俺的意思,我表达能力有问题。
自己做或者是利用系统菜单,结果都一样的。
根据自己的需求了。