以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  添加按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116188)
--  作者：nxqtxwz
--  发布时间：2018/3/21 8:18:00
--  添加按钮
想在系统菜单的项目管理项里加一个按钮，如何实现呢？
--  作者：有点甜
--  发布时间：2018/3/21 8:43:00
--  

引用系统菜单模板，然后添加或者删除，都可以

 

http://www.foxtable.com/webhelp/scr/1079.htm

 
--  作者：nxqtxwz
--  发布时间：2018/3/21 16:39:00
--  

在主菜单－功能区－Project中加了“升级文件”功能组，在这个功能组中设置了“上传升级文件”的按钮，现在想实现用开发者登录就显示这个按钮，以别的用户登录就不显示或者以灰色显示，我写了下面的代码，结果出错请老师看看。

 

Dim btn As RibbonMenu.group
If user.name="开发者"
    btn = RibbonTabs("project").Groups("上传升级文件")
    btn.Enabled = True
Else
    btn = RibbonTabs("project").Groups("上传升级文件")

    btn.Enabled = False
End If

 

 

 

[此贴子已经被作者于2018/3/21 17:04:50编辑过]
--  作者：有点甜
--  发布时间：2018/3/21 20:08:00
--  

大小写敏感的

 

Dim btn As RibbonMenu.group
If user.name="开发者"
    btn = RibbonTabs("Project").Groups("上传升级文件")
    btn.Enabled = True

Else
    btn = RibbonTabs("Project").Groups("上传升级文件")

    btn.Enabled = False
End If