[求助] 遍历状态按钮后，Pressed 属性不好用？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在一个功能区中，有多个功能组，每个功能组里都加有不少的状态按钮。

希望点击任何一个状态按钮时，其它按钮都被排斥而自动弹起，所以给所有的状态按钮都设置了相同的分组名。

但是测试的时候发现，同一功能组内的状态按钮工作正常；但是，不同功能组内的状态按钮却并不是互相排斥的。

如果每次点击不同功能组中的一个状态按钮，那么有多少个功能组，就有多少个状态按钮呈现 “ 按下 ” 状态。

所以，想在每个状态按钮的 click 事件中设置代码，先分别遍历各个功能组中的所有状态按钮，将其设置成 “ 弹起 ” 状态，再将要点击的动态按钮设置成 “ 按下 ” 状态。

状态按钮C1 中的代码：

Dim itm As RibbonMenu.RibbonItem

For Each itm In RibbonTabs("功能区A").Groups("功能组B1").Items

itm.Pressed = False

For Each itm In RibbonTabs("功能区A").Groups("功能组B2").Items

itm.Pressed = False

RibbonTabs("功能区A").Groups("功能组B1").Items("状态按钮C1").Pressed = True

执行这段代码，说是 itm.Pressed = False 出错，奇怪啊！

不应该吧？要怎么改呢？

此主题相关图片如下：状态按钮 - 遍历后，使用 pressed 出错.png

Dim itm As RibbonMenu.RibbonItem

改成

Dim itm As Object

还是不对，改后测试，显示这个：

此主题相关图片如下：状态按钮 - 遍历后用 pressed 出错 2.png

参考代码

Dim itm As object
For Each itm In RibbonTabs("功能区A").Groups("功能组B1").Items
    If Typeof itm Is RibbonMenu.ToggleButton Then
        msgbox(123)
    End If
Next

嗯能用了

不过，有没有什么更简化一些的办法，直接遍历一个功能区里所有功能组中的各个组件，而不用一个个功能组的遍历呢？

比如

For Each r As RibbonMenu.Tab In RibbonTabs
    output.show(r.text)
    For Each g As RibbonMenu.Group In r.Groups
        output.show(g.text)
        For Each c As object In g.Items
            output.show(c.name)
        Next
    Next
Next

精彩！

对于所有的功能区、功能组、组件，遍历可执行！

不过，对于具体的一个功能区A，却不行，为什么呢？

代码：

For Each r As RibbonMenu.Tab In RibbonTabs("功能区A")

output.show(r.text)

For Each g As RibbonMenu.Group In r.Groups

output.show(g.text)

For Each c As object In g.Items

output.show(c.name)

出错：

此主题相关图片如下：状态按钮 - 遍历后出错 3.png

参考

For Each g As RibbonMenu.Group In RibbonTabs("功能区A").Groups
    output.show(g.text)
    For Each c As object In g.Items
        output.show(c.name)
    Next
Next

嗯应该直接定义功能组！

多谢啦！

怎么遍历快速访问栏 QAT 里的组件呢？

下面代码说 “Items” 不是 RibbonMenu.QAT 的成员

For Each itm As object In QAT.Itmes

output.show(itm.name)

主题：[求助] 遍历状态按钮后，Pressed 属性不好用？