| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 菜单按钮显示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158332) |
| -- 作者：实话实说 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2020/11/16 20:24:00 -- 菜单按钮没有提供设置字体颜色的用法 |
| -- 作者：实话实说 -- 发布时间：2020/11/17 5:02:00 -- 今天发现，笔记本电脑中ctrl+shift+F11或ctrl+shift+F12不起作用，全被用来调节屏幕亮度，（本来只用F11和F12调节亮度） [此贴子已经被作者于2020/11/17 7:03:06编辑过]
|
| -- 作者：实话实说 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2020/11/17 8:44:00 -- 代码没有问题，是不是菜单名称不对？QAT("系统管理")("设计菜单") |
| -- 作者：实话实说 -- 发布时间：2020/11/17 8:49:00 -- 菜单的名称和标题都是“设计菜单” |
| -- 作者：实话实说 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2020/11/17 8:56:00 -- 是不是没有切换到用户菜单？自定义菜单在系统菜单模式下是用不了的 |
| -- 作者：实话实说 -- 发布时间：2020/11/17 8:58:00 -- 是在切换到用户菜单模式下开始使用的 |
| -- 作者：有点蓝 -- 发布时间：2020/11/17 8:59:00 -- 请上传实例测试 如果是在用户菜单模式下，Syscmd.Project.OpenUserMenu() 完全是多余的
[此贴子已经被作者于2020/11/17 9:00:59编辑过]
|