以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助有关菜单的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44875)
--  作者：myzzip
--  发布时间：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