以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何做一个没有菜单的程序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28796)
--  作者：anx
--  发布时间：2013/2/19 10:45:00
--  如何做一个没有菜单的程序

菜鸟，问题很幼稚。

就想作一不要菜单的窗口程序，怎么让菜单不出现？
--  作者：狐狸爸爸
--  发布时间：2013/2/19 10:54:00
--  

在AfterOpenProject事件中加上：

 

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

 

这样打开项目就没有菜单了。

 

如果你想开发者进去之后，还是有菜单，可以改为：

 

If user.Type <> UserTypeEnum.Developer Then
    For Each t As RibbonMenu.Tab In RibbonTabs
        t.Visible = False
    Next
End If
--  作者：anx
--  发布时间：2013/2/19 11:04:00
--  
谢谢狐爸
--  作者：blackzhu
--  发布时间：2013/2/22 15:20:00
--  
老大,这句代码是可以切除全部菜单的

Tables("表B").Grid.TopLevelControl.Controls.RemoveAt(3)

但是不知为什么,老是切掉状态栏.   有啥办法修改下?
[此贴子已经被作者于2013-2-22 15:33:52编辑过]