此主题相关图片如下: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