[求助]Tabpag 中添加菜单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Tabpag 中添加菜单

共有2994人关注过本帖树形打印复制链接主题：[求助]Tabpag 中添加菜单

blsu33

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

[求助]Tabpag 中添加菜单 发帖心情

Post By：2015/7/31 10:05:00 [只看该作者]

红袍老师，

在窗口中增加菜单通过您的指导实现了，现在想在TabControl 的页面中增加菜单，是否可以直接实现

Dim menuStrip As new System.Windows.Forms.MenuStrip()

Dim pg As WinForm.TabPage= e.Form.Controls("TabControl1").TabPages(1)

希望如下代码成立

pg.add(menuStrip) ‘e.Form.baseform.controls.add(menuStrip)

查看了 baseform 是否只能在TabControl 的页面中增加Panl 然后将窗口放在上上面才能间接实现呢？

blsu33

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/7/31 11:12:00 [只看该作者]

红袍老师，

动态菜单能否满屏所在的窗口

Dim menuStrip As new System.Windows.Forms.MenuStrip()

e.Form.baseform.controls.add(menuStrip)

menuStrip.ClientSize=e.Form.baseform.controls.size‘怎么写？

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/31 11:21:00 [只看该作者]

不能自动铺满地。

菜单有多少，就添加多少宽度。

逛逛

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12117 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2015/7/31 11:36:00 [只看该作者]

menuStrip.Dock = 5

铺满整个窗口不是挺难看的吗

blackzhu

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2015/7/31 11:39:00 [只看该作者]

Dim Ribbon As C1Ribbon.C1Ribbon = BaseMainform.Controls("C1Ribbon1")

e.Form.Panel.Controls.Add(Ribbon ) '窗口事件

Dim Ribbon As C1Ribbon.C1Ribbon = BaseMainform.Controls("C1Ribbon1")

e.Form.Panel.Controls.Remove(Ribbon ) 退出事件

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/31 12:19:00 [只看该作者]

图片点击可在新窗口打开查看看错了，可以做的，参考代码

Dim menuStrip As new System.Windows.Forms.MenuStrip()
Dim tab = e.Form.Controls("TabControl1").Basecontrol
dim pg = tab.TabPages(1)
pg.Controls.add(menuStrip) 'e.Form.baseform.controls.add(menuStrip)

blsu33

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/8/4 21:25:00 [只看该作者]

红袍老师，

清除怎么写呢

Dim menuStrip As new System.Windows.Forms.MenuStrip()

Dim tab= Forms("窗口4").Controls("TabControl1").Basecontrol

Dim tpg = tab.TabPages(e.Sender.SelectedIndex)

tpg.Controls.Remove(menuStrip)

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/4 21:29:00 [只看该作者]

添加

Dim menuStrip As new System.Windows.Forms.MenuStrip()
Dim tab = e.Form.Controls("TabControl1").Basecontrol
Dim pg = tab.TabPages(1)
pg.Controls.add(menuStrip)
vars("菜单") = menuStrip

移除

Dim tab= e.form.Controls("TabControl1").Basecontrol
Dim tpg = tab.TabPages(1)
tpg.controls.Remove(vars("菜单"))