以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码不起作用是怎么回事?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83909)
--  作者：狂风暴雨狂波
--  发布时间：2016/4/19 16:03:00
--  [求助]代码不起作用是怎么回事?

菜单系统事件LoadUserSetting中的代码:

If _UserName = "admin"  Then
    TableCaptionVisible = True
    Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
    xtcd.Visible=True
Else
    TableCaptionVisible = False
    Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
    xtcd.Visible=False
End If

切换用户后并不起作用,"进入系统菜单"仍可见,求高手帮忙看看代码是否有错?
--  作者：大红袍
--  发布时间：2016/4/19 16:12:00
--  
 你自己做的登陆窗口的话，这段代码，要写到你的登陆按钮那里去的。
--  作者：狂风暴雨狂波
--  发布时间：2016/4/19 16:23:00
--  
已搞定,谢谢大红袍老师!