以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]Tabpag 中添加菜单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72508) |
||||
-- 作者:blsu33 -- 发布时间:2015/7/31 10:05:00 -- [求助]Tabpag 中添加菜单 红袍老师, 在窗口中增加菜单通过您的指导实现了,现在想在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 -- 发布时间: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‘怎么写?
|
||||
-- 作者:大红袍 -- 发布时间:2015/7/31 11:21:00 -- 不能自动铺满地。
菜单有多少,就添加多少宽度。 |
||||
-- 作者:逛逛 -- 发布时间:2015/7/31 11:36:00 -- menuStrip.Dock = 5
铺满整个窗口不是挺难看的吗 |
||||
-- 作者:blackzhu -- 发布时间: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 ) 退出事件 |
||||
-- 作者:大红袍 -- 发布时间:2015/7/31 12:19:00 -- 看错了,可以做的,参考代码
Dim menuStrip As new System.Windows.Forms.MenuStrip() |
||||
-- 作者:blsu33 -- 发布时间: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) |
||||
-- 作者:大红袍 -- 发布时间:2015/8/4 21:29:00 -- 添加
Dim menuStrip As new System.Windows.Forms.MenuStrip()
移除
Dim tab= e.form.Controls("TabControl1").Basecontrol |
||||
-- 作者:blsu33 -- 发布时间:2015/8/4 21:57:00 -- 红袍老师, 反复的点击页面1 页面2,为何不停的在增加菜单,已经增加了2个Remove,为何不删除,麻烦老师指点。
|
||||
-- 作者:大红袍 -- 发布时间:2015/8/4 23:36:00 --
|