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


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

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


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

类似窗口按钮，1个当2个用，代码如下。
Dim rdo1 As WinForm.Button
If rdo1.text= "设计菜单" Then
    rdo1.text= "应用菜单"
    rdo1.ForeColor = Color.Red
Else
    rdo1.text= "设计菜单"
    rdo1.ForeColor = Color.Black
End If

菜单按钮也想这样用，可是没反应
Dim rdo1 As RibbonMenu.Button
rdo1 = QAT("系统管理")("设计菜单")
If rdo1.text= "设计菜单" Then
    rdo1.text= "应用菜单"
    rdo1.ForeColor = Color.Red
Else
    rdo1.text= "设计菜单"
    rdo1.ForeColor = Color.Black
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

菜单按钮没有提供设置字体颜色的用法

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


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

今天发现，笔记本电脑中ctrl+shift+F11或ctrl+shift+F12不起作用，全被用来调节屏幕亮度，（本来只用F11和F12调节亮度）
[此贴子已经被作者于2020/11/17 7:03:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

下面代码错在哪？提示：未将对象引用设置到对象的实例。这是将2个按钮合二为1，单独执行没问题。
Dim rdo1 As RibbonMenu.Button
rdo1 = QAT("系统管理")("设计菜单")
If rdo1.text= "设计菜单" Then
rdo1.text= "应用菜单"
Syscmd.Project.OpenUserMenu() '显示功能区
TableCaptionVisible = True '显示表标题
    rdo1.text= "应用菜单"
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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

代码没有问题，是不是菜单名称不对？QAT("系统管理")("设计菜单")

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


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

菜单的名称和标题都是“设计菜单”

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


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

这样正常
Dim rdo1 As RibbonMenu.Button
rdo1 = QAT("系统管理")("设计菜单")
If rdo1.text= "设计菜单" Then
rdo1.text= "应用菜单"
    rdo1.text= "应用菜单"
ElseIf rdo1.text= "应用菜单"
rdo1.text= "设计菜单"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是不是没有切换到用户菜单？自定义菜单在系统菜单模式下是用不了的

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


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

是在切换到用户菜单模式下开始使用的

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


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

请上传实例测试

如果是在用户菜单模式下，Syscmd.Project.OpenUserMenu() 完全是多余的
[此贴子已经被作者于2020/11/17 9:00:59编辑过]
 回到顶部
总数 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.03906 秒, 4 次数据查询