主题：请教：项目打开后如何仅显示菜单？

此主题相关图片如下：1604363088(1).png

就是想达到图片的效果，我用以下代码在命令窗口是可以，但在AfterOpenProject事件中未成功，请问怎么做？

'''
Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")
a.height = 106
basemainform.height = a.height  '项目高度
ApplicationMenu.visible = False  '隐藏程序菜单
RibbonTabs.HideTabHeaderRow = True      '隐藏功能区标题QAT.Visible = False  '隐藏快速访问栏
BaseMainForm.Controls("C1StatusBar1").Visible = False  '隐藏状态栏
BaseMainForm.Controls("MainPages").Visible = False '隐藏表主页
QAT.Visible = not QAT.Visible  '隐藏快速访问栏
BaseMainform.MaximizeBox = True      '隐藏最大化
BaseMainform.MinimizeBox = False '隐藏最最小化
BaseMainForm.Text = "主表管理" '程序标题
Applicati
BaseMainform.WindowState = 0 '正常

此主题相关图片如下：1604363088(1).png

放到计划管理，延迟处理，等界面显示了再改

谢谢蓝版，又问如何禁止用鼠标调整项目大小？在项目中设置无效

O了，是我设置的不对。再次谢谢！