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

红袍老师，

在窗口中增加菜单通过您的指导实现了，现在想在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 然后将窗口放在上上面才能间接实现呢？

红袍老师，

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

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

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

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

红袍老师，

清除怎么写呢

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)

红袍老师，

反复的点击页面1 页面2，为何不停的在增加菜单，已经增加了2个Remove，为何不删除，麻烦老师指点。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:页面菜单.foxdb

红袍老师，

选择不同的页面希望页面上的菜单根据表变化，下面的代码没有生成菜单，劳烦您在给看看

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

Dim tab= e.Form.Controls("TabControl1").Basecontrol

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

tpg.Controls.add(vars("菜单"))’生成菜单

Dim gz As String = DataTables("AS002分类编码方案").Find("基础档案名称 = '菜单列表'")("编码规则")‘添加菜单项目

Dim dt As DataTable = DataTables("菜单列表")

Dim ft As String= "([窗口名称] Like '%,"& tpg.Name &"'or [窗口名称] Like '"& tpg.Name &",%' or [窗口名称] Like '%\"& tpg.Name &"\%' or [窗口名称]='"& tpg.Name &"')"

For Each dr As DataRow In dt.Select(ft,"编码规则")

If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then

Dim tsmi As new System.Windows.Forms.ToolStripMenuItem

tsmi.name = dr("编码规则")

tsmi.Text = dr("编码名称")

menuStrip.Items.Add(tsmi)

AddHandler tsmi.Click, AddressOf menu_Click

Functions.Execute("菜单生成",tsmi,dt,gz)

End If

劳烦您了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:菜单.table

谢谢红袍老师又学到不少东西！图片点击可在新窗口打开查看

主题：[求助]Tabpag 中添加菜单