Foxtable(狐表)用户栏目专家坐堂 → 如何在菜单中调用已有窗口中的控件


  共有5363人关注过本帖树形打印复制链接

主题:如何在菜单中调用已有窗口中的控件

帅哥哟,离线,有人找我吗?
大红袍
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 10:18:00 [只看该作者]

剪切的就是你设计的菜单啊,有什么问题。

 回到顶部
帅哥哟,离线,有人找我吗?
tjzj_lyl
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
  发帖心情 Post By:2015/11/13 10:30:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20151113102951.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
tjzj_lyl
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
  发帖心情 Post By:2015/11/13 10:31:00 [只看该作者]

我想上面的快速访问栏设计的菜单放在下面的窗口里。。。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 10:45:00 [只看该作者]

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.qat.visible = True
a.ApplicationMenu.visible = False
a.ConfigToolBar.visible = False
For Each t As object In a.tabs
    t.visible = False
Next

forms("窗口1").controls("panel1").basecontrol.controls.add(a)


 回到顶部
帅哥哟,离线,有人找我吗?
tjzj_lyl
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
  发帖心情 Post By:2015/11/13 11:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20151113110827.png
图片点击可在新窗口打开查看

 

出现了一个错误


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 11:15:00 [只看该作者]

写到窗口的afterload事件啊。

 回到顶部
帅哥哟,离线,有人找我吗?
tjzj_lyl
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
  发帖心情 Post By:2015/11/13 11:31:00 [只看该作者]

这个编译后能去掉吗?
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20151113113017.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 11:32:00 [只看该作者]

你可以另外用一个panel把上面的东西遮住嘛

 回到顶部
帅哥哟,离线,有人找我吗?
tjzj_lyl
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
  发帖心情 Post By:2015/11/13 11:36:00 [只看该作者]

好的

 回到顶部
帅哥哟,离线,有人找我吗?
tjzj_lyl
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1341 威望:0 精华:0 注册:2015/9/23 20:33:00
  发帖心情 Post By:2015/11/13 11:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20151113114833.png
图片点击可在新窗口打开查看
代码如下:

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.qat.visible = True
a.ApplicationMenu.visible = False
a.ConfigToolBar.visible = False
For Each t As object In a.tabs
    t.visible = False
Next
forms("项目信息").controls("panel1").basecontrol.controls.add(a)

Dim b As object = BaseMainForm.controls("C1Ribbon1") '设置快速访问栏的字体大小
b.QAT.font = new font("宋体",10)

 

请帮忙解决下,谢谢您


 回到顶部
总数 33 上一页 1 2 3 4 下一页