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


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

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


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：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


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/11/17 8:49:00 [显示全部帖子]

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

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


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/11/17 8:58:00 [显示全部帖子]

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

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


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：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 '不显示表标题
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：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 '不显示表标题
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2020/11/17 10:58:00 [显示全部帖子]

这是设计菜单

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

图片点击可在新窗口打开查看此主题相关图片如下：snap9.jpg
图片点击可在新窗口打开查看
其实都是自定义菜单
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19396 威望：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调节亮度）

 回到顶部
总数 11 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.05859 秒, 5 次数据查询