以文本方式查看主题

-  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()
Dim tab = e.Form.Controls("TabControl1").Basecontrol
dim pg = tab.TabPages(1)
pg.Controls.add(menuStrip)  \'e.Form.baseform.controls.add(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
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("菜单"))


--  作者:blsu33
--  发布时间:2015/8/4 21:57:00
--  
红袍老师,
   反复的点击页面1 页面2,为何不停的在增加菜单,已经增加了2个Remove,为何不删除,麻烦老师指点。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:页面菜单.foxdb



--  作者:大红袍
--  发布时间:2015/8/4 23:36:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:页面菜单.foxdb