- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何发布项目的时候关闭所有菜单功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172170)
-- 发布时间：2021/9/27 22:35:00
-- 如何发布项目的时候关闭所有菜单功能
如何发布项目的时候关闭所有菜单功能
是不是，不设置系统菜单，就不会出现。
[此贴子已经被作者于2021/9/28 12:16:25编辑过]
-- 发布时间：2021/9/27 23:12:00
--
afteropenproject事件
if IssueName = "运行环境" then
For Each c As RibbonMenu.Tab In RibbonTabs
c.visible = false
Next
ApplicationMenu.visible = false
RibbonTabs.HideTabHeaderRow = true
end if
[此贴子已经被作者于2021/9/28 14:46:12编辑过]
-- 发布时间：2021/9/28 12:10:00
--
项目打开以后，不用开发者账户登录，整个项目会自动退出。
[此贴子已经被作者于2021/9/28 12:29:20编辑过]
-- 发布时间：2021/9/28 13:33:00
--
执行了什么代码？
-- 发布时间：2021/9/28 14:18:00
-- 退出问题找到了。帮忙看一下，菜单问题
此主题相关图片如下：1632809903(1).jpg
如何把图片里的菜单，在发布项目以后不显示。
[此贴子已经被作者于2021/9/28 14:18:44编辑过]
-- 发布时间：2021/9/28 14:34:00
--
看2楼
-- 发布时间：2021/9/28 14:42:00
-- 帮忙看一下代码，二楼的代码写在最下面
Forms("初始欢迎界面").Open
Forms("用户登录").Open()
MainTable = Tables("界面")
If IssueName = "运行环境" Then
For Each c As RibbonMenu.Tab In RibbonTabs
c.visible = True
Next
ApplicationMenu.visible = True
RibbonTabs.HideTabHeaderRow = False
End If
[此贴子已经被作者于2021/9/28 14:44:43编辑过]
-- 发布时间：2021/9/28 14:47:00
--
搞反了，改一下
if IssueName = "运行环境" then
For Each c As RibbonMenu.Tab In RibbonTabs
c.visible = false
Next
ApplicationMenu.visible = false
RibbonTabs.HideTabHeaderRow = true
end if