- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 为什么开发版的系统快捷菜单 range是空的？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128282)
-- 发布时间：2018/12/3 10:46:00
-- 为什么开发版的系统快捷菜单 range是空的？
开发版中没有找到System.Ribbon这个文件，只有System.foxrb这个文件，导入后，快捷菜单range是空的。是我操作的不对，还是foxtable就是这样的 ？我怎么才能得到range的快捷菜单？
-- 发布时间：2018/12/3 11:04:00
-- 如图
此主题相关图片如下：range为空.png
-- 发布时间：2018/12/3 12:11:00
--
正常情况。load事件的这段代码给range菜单弄进去内容的
\'以下代码用于将Cell快捷菜单中部分命令复制到Range快捷菜单中
\'如果自行设计了Range菜单,或者调整了有关菜单命令的名称,请自行修改或删除以下代码
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")
If mnu2.Items.Count = 0 \'如果Range快捷菜单中没有命令,说明用户没有自行设计Range快捷菜单
mnu2.Items.Add(ContextMenus("Cell").Items("Cut"),False)
mnu2.Items.Add(ContextMenus("Cell").Items("Copy"))
mnu2.Items.Add(ContextMenus("Cell").Items("Paste"))
mnu2.Items.Add(ContextMenus("Cell").Items("RowMenu"))
mnu2.Items.Add(ContextMenus("Cell").Items("ColMenu"))
mnu2.Items.Add(ContextMenus("Cell").Items("Ascending"))
mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))
mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))
End If
-- 发布时间：2018/12/3 13:58:00
-- 十分感谢！
十分感谢！