狐表隐藏大全:
ApplicationMenu.Visible = False '程序菜单
QAT.Visible = False '快速访问栏
'配置栏***************************
一、
Dim o As Object = BaseMainForm.Controls("C1Ribbon1")
o.ConfigToolBar.Visible = False
二、
For Each o As Object In Configbar.Items
o.Visible = False
Next
'配置栏***************************
'功能区***************************
一、
BaseMainForm.Controls("C1Ribbon1").Visible = False
二、
For Each r As object In RibbonTabs
r.Visible = False
Next
'功能区***************************
BaseMainForm.ShowIcon = False '程序图标
BaseMainForm.Icon = Nothing '不设置程序图标(但会显示默认图标) 'New Icon(ProjectPath & "Images\55.ico")
BaseMainForm.Text = "" '程序标题
BaseMainForm.Controls("C1StatusBar1").Visible = False '状态栏
TableCaptionVisible = False '表标题
For Each t As Table In Tables
t.Visible = False '主表
Next
以上设置后,只剩下一个净光的窗口
BaseMainForm.Visible = False '主界面
这下彻底不见了
[此贴子已经被作者于2014-9-18 9:54:27编辑过]