以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何隐藏用户菜单中的命令?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97513)

--  作者:bbgg945
--  发布时间:2017/3/14 0:07:00
--  请问如何隐藏用户菜单中的命令?
请问老师,如何根据登录用户的不同,隐藏用户菜单中的某一命令呢?
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170314000019.png
图片点击可在新窗口打开查看
比如非开发者用户隐藏打印按钮
--  作者:有点蓝
--  发布时间:2017/3/14 8:43:00
--  

相框:http://www.foxtable.com/webhelp/scr/2438.htm

 


--  作者:bbgg945
--  发布时间:2017/3/14 9:08:00
--  

菜单系统事件LoadUserSetting加入如下代码没有效果:

Dim xt As RibbonMenu.Button = QAT.Items("系统").Items("系统菜单")
If User.Name <> "开发者" Then
 xt.Visible = True
Else
 xt.Visible = False
End If

请问老师,哪里错了呢?

[此贴子已经被作者于2017/3/14 9:09:31编辑过]

--  作者:有点蓝
--  发布时间:2017/3/14 9:20:00
--  
运行有什么问题?
--  作者:bbgg945
--  发布时间:2017/3/14 9:43:00
--  

系统毫无反应

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:即时库存表.rar


--  作者:有点蓝
--  发布时间:2017/3/14 10:35:00
--  

这个意思?

 

If User.Name <> "开发者" Then
 xt.Visible = false
Else
 xt.Visible = true
End If


--  作者:bbgg945
--  发布时间:2017/3/14 10:42:00
--  
图片点击可在新窗口打开查看谢谢蓝老师!