- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助有关菜单的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44875)
-- 发布时间：2014/1/10 20:12:00
-- 求助有关菜单的问题
此主题相关图片如下：2kk2o%wo7noyn1`fwd2(6po.jpg
在我点击某个菜单标准按钮后让按钮背景颜色改变 让客户知道我当前操作的是哪个功能模块，再点击另外一个按钮后，第一次点击的按钮还变回原色，
请教大侠们怎么用代码实现？
-- 发布时间：2014/1/10 20:38:00
--
首先，你把所有的按钮换成ToggleButton类型，状态按钮。然后去编写主菜单的click事件，用下面的代码
If e.Sender.Gettype.name = "ToggleButton"
For Each tab As RibbonMenu.Tab In RibbonTabs
For Each group As RibbonMenu.Group In tab.Groups
For Each btn As object In group.Items
If btn.Gettype.name = "ToggleButton" Then
btn.pressed = False
End If
Next
Next
Next
e.sender.pressed = True
End If