Foxtable(狐表)用户栏目专家坐堂 → [分享] 狐表隐藏大全


  共有5223人关注过本帖平板打印复制链接

主题:[分享] 狐表隐藏大全

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
[分享] 狐表隐藏大全  发帖心情 Post By:2014/9/9 17:02:00 [只看该作者]

狐表隐藏大全:

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编辑过]

 回到顶部
总数 17 1 2 下一页