以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  功能区疑问  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127307)

--  作者:zaq3574020
--  发布时间:2018/11/10 17:31:00
--  功能区疑问
菜单的功能区,需要在选择哪个,背景需要区分。该如何写
--  作者:有点蓝
--  发布时间:2018/11/10 17:33:00
--  
功能区无法设置背景
--  作者:zaq3574020
--  发布时间:2018/11/12 8:41:00
--  
以下是引用有点蓝在2018/11/10 17:33:00的发言:
功能区无法设置背景

那用户打开哪个功能区,是无法区分开的了


--  作者:有点甜
--  发布时间:2018/11/12 9:27:00
--  
不是可以看最上面的选项卡么?背景是肯定换不了的,你试试别的方法。
--  作者:zaq3574020
--  发布时间:2018/11/13 17:09:00
--  

就是这种切换,选择之后出现这种背景就可以了

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/11/13 17:47:00
--  

测试了一下,无法设置背景颜色的。只可以设置字体颜色,如

 

Dim a = BaseMainForm.controls("C1Ribbon1")
For Each t As object In a.tabs
    If RibbonTabs.SelectedTab.Text = t.text Then
        t.ForeColorInner = color.red
        t.ForeColorOuter = color.red
    Else
        t.ForeColorInner = color.blue
        t.ForeColorOuter = color.blue
    End If
Next


--  作者:zaq3574020
--  发布时间:2018/11/14 10:04:00
--  
以下是引用有点甜在2018/11/13 17:47:00的发言:

测试了一下,无法设置背景颜色的。只可以设置字体颜色,如

 

Dim a = BaseMainForm.controls("C1Ribbon1")
For Each t As object In a.tabs
    If RibbonTabs.SelectedTab.Text = t.text Then
        t.ForeColorInner = color.red
        t.ForeColorOuter = color.red
    Else
        t.ForeColorInner = color.blue
        t.ForeColorOuter = color.blue
    End If
Next


那你们这个切换选择后的背景 是怎么做到的


--  作者:有点甜
--  发布时间:2018/11/14 10:09:00
--  

这个是控件独有的

 

状态按钮

状态按钮外观类似于标准按钮,实际使用的时候类似于检查框。
例如下图中的计算按钮,用以打开和关闭自动计算功能:

图片点击可在新窗口打开查看

如果有多个功能状态按钮,且设置了相同的“所属分组名”属性,那么这些状态按钮的状态将是互斥的,按下其中一个按钮,那么之前按下的按钮将会自动弹起。