以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问窗口上面空白功能栏怎么去掉？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145409)
--  作者：wyz
--  发布时间：2020/1/18 19:37:00
--  请问窗口上面空白功能栏怎么去掉？
如题，
图片点击可在新窗口打开查看此主题相关图片如下：ｋｓｓ图.png
图片点击可在新窗口打开查看
--  作者：sloyy
--  发布时间：2020/1/19 1:06:00
--  

AfterLoad事件

For i As Integer = 0 To RibbonTabs.Count -1
    RibbonTabs(i).Visible = False
Next
--  作者：有点蓝
--  发布时间：2020/1/19 10:27:00
--  
上面代码放到项目afteropenproject事件

也可以使用：BaseMainForm.controls("C1Ribbon1").visible = False
--  作者：wyz
--  发布时间：2020/2/14 14:15:00
--  请问使用这个以后切不回系统菜单了,怎么操作?
For i As Integer = 0 To RibbonTabs.Count -1
    RibbonTabs(i).Visible = False
Next
--  作者：有点蓝
--  发布时间：2020/2/14 14:25:00
--  
另外写代码切换回来

For i As Integer = 0 To RibbonTabs.Count -1
    RibbonTabs(i).Visible = true
Next

或者如果是开发者就不要隐藏
If User.Type <> UserTypeEnum.Developer
For i As Integer = 0 To RibbonTabs.Count -1
    RibbonTabs(i).Visible = False
Next
End If
--  作者：wyz
--  发布时间：2020/2/14 14:36:00
--  关键是切换不回系统菜单了.怎么办?

上面菜单不出来了,CTRL+SHIFT+F12,提示点了确定,菜单还是不出来.
--  作者：有点蓝
--  发布时间：2020/2/14 14:51:00
--  
按住Ctrl键打开项目，用开发者登录，输入密码后，先按住Ctrl键，再点击确定，一直到项目打开再松开Ctrl键
--  作者：wyz
--  发布时间：2020/2/14 15:18:00
--  

这回解决 了,谢谢!