以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]屏蔽系统菜单  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16970)
--  作者：whtjtx
--  发布时间：2012/2/29 3:35:00
--  [求助]屏蔽系统菜单

请教下，如何在启动时候只显示主菜单呢？在项目事件

If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If
Forms("启动窗口").Open()
MainTable = Tables("发货")

 

搞了一晚上，实在搞不出来，伤脑筋。
--  作者：blackzhu
--  发布时间：2012/2/29 7:35:00
--  
Syscmd.Project.OpenSystemMenu() 打开系统菜单
Syscmd.Project.OpenUserMenu() 打开用户菜单
--  作者：狐狸爸爸
--  发布时间：2012/2/29 7:59:00
--  

你到底是要屏蔽主菜单，还是显示主菜单啊？

 
--  作者：whtjtx
--  发布时间：2012/2/29 12:40:00
--  
以下是引用狐狸爸爸在2012-2-29 7:59:00的发言：

你到底是要屏蔽主菜单，还是显示主菜单啊？

 

不好意思，昨天晚上搞太晚了，有点困，打错字了，是只要显示主窗口，其他部分都屏蔽掉，该怎么操作？
--  作者：whtjtx
--  发布时间：2012/2/29 12:47:00
--  

只显示窗口，其他都不要

[此贴子已经被作者于2012-2-29 12:47:26编辑过]
--  作者：易服
--  发布时间：2012/2/29 13:47:00
--  
http://www.foxtable.com/help/
--  作者：whtjtx
--  发布时间：2012/2/29 14:17:00
--  
以下是引用易服在2012-2-29 13:47:00的发言：
http://www.foxtable.com/help/

找了一晚上，没找出来
--  作者：狐狸爸爸
--  发布时间：2012/2/29 14:32:00
--  

很简单：

 

For Each tab As RibbonMenu.Tab In RibbonTabs
    tab.Visible = False
Next