Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单按钮显示


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

主题：菜单按钮显示
帅哥哟，离线，有人找我吗？
实话实说
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/11/17 9:02:00 [只看该作者]

系统菜单和设计菜单分开用时正常的
设计菜单：
Syscmd.Project.OpenUserMenu() '显示功能区
TableCaptionVisible = True '显示表标题
应用菜单：（用户菜单）
For Each tb As RibbonMenu.Tab In  RibbonTabs
    If tb.visible = True Then
        tb.visible = False
    End If
Next
Dim lb1 As new RibbonMenu.Label("Space")
lb1.Text = new String(" ",500)
ConfigBar.Items.Add(lb1)
TableCaptionVisible = False '不显示表标题
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107780 积分：548245 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/17 9:16:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/11/17 9:22:00 [只看该作者]

2个按钮分开时正常的
设计按钮：
Syscmd.Project.OpenUserMenu() '显示功能区
TableCaptionVisible = True '显示表标题
应用按钮：
For Each tb As RibbonMenu.Tab In  RibbonTabs
    If tb.visible = True Then
        tb.visible = False
    End If
Next
Dim lb1 As new RibbonMenu.Label("Space")
lb1.Text = new String(" ",500)
ConfigBar.Items.Add(lb1)
TableCaptionVisible = False '不显示表标题
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/11/17 10:58:00 [只看该作者]

这是设计菜单

图片点击可在新窗口打开查看此主题相关图片如下：snap8.jpg
图片点击可在新窗口打开查看
这是应用菜单

图片点击可在新窗口打开查看此主题相关图片如下：snap9.jpg
图片点击可在新窗口打开查看
其实都是自定义菜单
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107780 积分：548245 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/17 11:09:00 [只看该作者]

表面看不出什么问题，请上传实例测试！

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/11/17 11:30:00 [只看该作者]

这样可以了
Dim rdo1 As RibbonMenu.Button
rdo1 = QAT("系统管理")("设计菜单")
If rdo1.text= "设计菜单" Then
    Syscmd.Project.OpenUserMenu() '显示功能区
    TableCaptionVisible = True '显示表标题
    Dim rdo2 As RibbonMenu.Button
    rdo2 = QAT("系统管理")("设计菜单")
    If rdo2.text= "设计菜单" Then
        rdo2.text= "用户菜单"
    End If
ElseIf rdo1.text= "用户菜单"
    rdo1.text= "设计菜单"
    For Each tb As RibbonMenu.Tab In  RibbonTabs
        If tb.visible = True Then
            tb.visible = False
        End If
    Next
    Dim lb1 As new RibbonMenu.Label("Space")
    lb1.Text = new String(" ",500)
    ConfigBar.Items.Add(lb1)
    TableCaptionVisible = False '不显示表标题
End If
顺便问个其它的问题
今天发现，笔记本电脑中ctrl+shift+F11或ctrl+shift+F12不起作用，全被用来调节屏幕亮度，（本来只用F11和F12调节亮度）

 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107780 积分：548245 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/17 11:33:00 [只看该作者]

这个我也不清楚，应该是系统键盘设置有问题吧：https://www.baidu.com/baidu?word=系统键盘设置

 回到顶部
总数 17 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询