以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么开发版的系统快捷菜单 range是空的?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128282)

--  作者:donald0001
--  发布时间:2018/12/3 10:46:00
--  为什么开发版的系统快捷菜单 range是空的?
开发版中没有找到System.Ribbon这个文件,只有System.foxrb这个文件,导入后,快捷菜单range是空的。是我操作的不对,还是foxtable就是这样的 ?我怎么才能得到range的快捷菜单?


--  作者:donald0001
--  发布时间: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


--  作者:donald0001
--  发布时间:2018/12/3 13:58:00
--  十分感谢!
十分感谢!