[求助] 遍历状态按钮后，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

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

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

嗯能用了

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

精彩！

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

不过，对于具体的一个功能区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

嗯应该直接定义功能组！

多谢啦！

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

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

For Each itm As object In QAT.Itmes

output.show(itm.name)

上面这段代码，和 10楼的代码就差在 items 和 Items。

这里，还受 i 的大小写影响吗？

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