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


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

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

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 14:54:00 [显示全部帖子]

直接用有什么问题?

 

Dim btn = forms("窗口1").Controls("Button3")

msgbox(btn.Text)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 15:39:00 [显示全部帖子]

拷贝2楼代码。你想做什么?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 17:00:00 [显示全部帖子]

用窗口来做,比如做一个 共有窗口, 停靠设置成 上

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 22:32:00 [显示全部帖子]

以下是引用tjzj_lyl在2015/11/12 22:27:00的发言:
又有个新问题,我怎么能把它停靠在菜单之上呢?谢谢

 

把菜单剪切到窗口里去


Dim a As object = BaseMainForm.controls("C1Ribbon1")
forms("窗口1").controls("panel1").basecontrol.controls.add(a)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 23:19:00 [显示全部帖子]

以下是引用tjzj_lyl在2015/11/12 23:00:00的发言:
以上代码写在哪里呢?

 

可以写在窗口的afterLoad事件。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/12 23:19:00 [显示全部帖子]

以下是引用tjzj_lyl在2015/11/12 23:15:00的发言:
回不到系统菜单中了?
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20151112231446.png

 

重新打开项目即可。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/13 9:16:00 [显示全部帖子]

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


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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)


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


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

写到窗口的afterload事件啊。

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