Foxtable(狐表)用户栏目专家坐堂 → 请测试:菜单“快速访问”右键删除后无法返回


  共有2854人关注过本帖树形打印复制链接

主题:请测试:菜单“快速访问”右键删除后无法返回

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/10/20 14:08:00 [显示全部帖子]

1、怎么操作会出现问题呢?我测试不出来。

2、类似:

http://www.foxtable.com/help/topics/1138.htm

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/10/20 15:31:00 [显示全部帖子]

这个没有办法的。

另删除重做和撤销按钮的话,也需要修改菜单中的相关事件。

例如菜单的systemidle中的以下代码就需要删除:

 

'以下代码用于更新快速访问栏中的"撤销"和"重做"按钮的状态,如果按钮已经改名或者移到别的功能区,请对应地修改此段代码
'如果删除了这两个按钮,也应该删除此段代码
Static Undo As RibbonMenu.Button
Static Redo As RibbonMenu.Button
If Undo Is Nothing Then
    Undo = QAT.Items("Undo")
    Redo = QAT.Items("Redo")
End If
If CurrentTable.CanUndo Then
    If Undo.Enabled = False Then Undo.Enabled = True
Else
    If Undo.Enabled  Then Undo.Enabled = False
End If
If CurrentTable.CanRedo Then
    If Redo.Enabled = False Then Redo.Enabled = True
Else
    If Redo.Enabled Then Redo.Enabled = False
End If


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/10/20 17:04:00 [显示全部帖子]

以下是引用y2287958在2014-10-20 16:44:00的发言:
我的目的不是要删除
能否判断一下不给删除(费用用户无聊的时候点上了)

 

你可以完善系统菜单的代码:

 

if qat.items.contains("Undo") then

   ‘相关代码

end if


 回到顶部