以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问一个问题，请看一下以下代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59792)
--  作者：SDFXDC
--  发布时间：2014/11/11 10:32:00
--  问一个问题，请看一下以下代码？
 下列代码只对主菜单有用，当更换用户后，菜单快速访问栏不改变，用代码如何解决更换用户后的效果，谢谢？

For Each rt As RibbonMenu.Tab In RibbonTabs

    rt.Visible = True

    rt.Enabled = True

    For Each rg As RibbonMenu.Group In rt.Groups

        rg.Visible = True

        rg.Enabled = True

        For Each itm As RibbonMenu.RibbonItem In rg.Items

            itm.Visible = True

            itm.Enabled = True

        Next

    Next

Next
--  作者：有点甜
--  发布时间：2014/11/11 10:33:00
--  
For Each i As object In QAT.Items
    i.visible = False
Next
--  作者：SDFXDC
--  发布时间：2014/11/11 10:34:00
--  
谢谢