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

Dim mnu As Winform.Strip

Dim itm As WinForm.StripItem

mnu = e.Form.Strips.Add("主菜单",StripTypeEnum.MainMenu)

mnu.Items.Add("商品库存","商品库存(&F)","",StripItemTypeEnum.MenuItem)

mnu.Items.Add("费用","费用(&E)","",StripItemTypeEnum.MenuItem)

mnu.Items.Add("会员","会员(&O)","",StripItemTypeEnum.MenuItem)

mnu.Items.Add("奶制品","奶制品(&H)","",StripItemTypeEnum.MenuItem)

'在主菜单右侧增加一个按钮

mnu.Items.Add("Home","主页","home.ico",StripItemTypeEnum.Button)

mnu.Items("Home").DisplayText = False

mnu.Items("Home").DockToRight = True '靠右停放

'为文件菜单增加项目

itm = mnu.Items("商品库存")

itm.Items.Add("商品入库","商品入库","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品出库","商品出库","Open.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品库存","商品库存","Open.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("商品库存").Items("商品入库")

itm.Items.Add("商品入库","采购入库单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品入库","调拨入库单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品入库","入库汇总","new.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("商品库存").Items("商品出库")

itm.Items.Add("商品出库","部门领用单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品出库","调拨出库单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品出库","商品销售单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品出库","出库汇总","new.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("费用")

itm.Items.Add("费用","费用支出单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("费用","其它收入单","Open.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("费用","支出汇总","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("费用","收入汇总","Open.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("会员")

itm.Items.Add("会员","充值汇总","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("会员","消费汇总","Open.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("会员","会员账户金额","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("会员","会员账户资金变动","Open.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("奶制品")

itm.Items.Add("奶入库","奶入库单","new.ico",StripItemTypeEnum.MenuItem)

'itm.Items.Add("Separator1", "分割条", "", StripItemTypeEnum.Separator)

itm.Items.Add("奶制品","奶出库","new.ico",StripItemTypeEnum.MenuItem)

'itm.Items.Add("Separator2", "分割条", "", StripItemTypeEnum.Separator)

itm.Items.Add("奶制品","奶库存","Open.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("奶制品").Items("奶入库")

itm.Items.Add("奶入库","奶入库单","new.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("奶制品").Items("奶出库")

itm.Items.Add("奶出库","奶出库单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("奶出库","奶销售单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("奶出库","客户订奶单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("奶出库","奶站送奶单","new.ico",StripItemTypeEnum.MenuItem)

老师，我上面这几行代码，也没有问题呢呀，很奇怪，保存生成菜单就报错，把他注释掉，就正常，可这个奶出库，就没有二级菜单了

不要使用相同的控件名称

itm.Items.Add("商品入库1","商品入库","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品出库","商品出库","Open.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品库存","商品库存","Open.ico",StripItemTypeEnum.MenuItem)

itm = mnu.Items("商品库存").Items("商品入库")

itm.Items.Add("商品入库2","采购入库单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品入库3","调拨入库单","new.ico",StripItemTypeEnum.MenuItem)

itm.Items.Add("商品入库4","入库汇总","new.ico",StripItemTypeEnum.MenuItem)

名称不同重复，标题可以重复。

Items的Add方法语法是：

Add(Name, Text, ImageFile, Type, Delimiter)

Name：      指定项目名称
Text：      指定项目标题
ImageFile：指定项目的图标文件
Type：      指定项目的类型，StripItemTypeEnum类型，包括MenuItem、Button、 Label、SplitButton四个候选值。
Delimiter：可选参数，逻辑型，是否在该项目前面插入一个分割条。

itm = mnu.Items("奶制品").Items("这里使用的是名称不是标题")

采购入库单部门领用单调拨入库单|

入库汇总、出库汇总、销售汇总

1、老师，菜单生成好了，然后下面是2个页面，1个用于显示单据，带目录树结构，一个用户显示汇总页面，没有目录树，我想把单据的做个集合，汇总的做个集合，下面case 调用这个集合可以吗，自己写不出来这个，请老师帮忙，

2、我的两个页面，分别只放一个表，然后动态调用查询，这个能实现吗，我前面做好的是放了很多表，都是全部加载的，这个可能后期太影响速度了，请老师指点一下，我该学哪块了，一直对sql，不精通，为了系统，还得学呀

Select Case e.Stripitem.Name

Case "采购入库单"

e.Form.Controls("TabControl1").TabPages(0).Visible = True

e.Form.Controls("TabControl1").SelectedIndex = 0

Case "部门领用单"

e.Form.Controls("TabControl1").TabPages(0).Visible = True

e.Form.Controls("TabControl1").SelectedIndex = 0

Case "入库汇总"

e.Form.Controls("TabControl1").TabPages(1).Visible = True

e.Form.Controls("TabControl1").SelectedIndex = 1

Case "出库汇总"

e.Form.Controls("TabControl1").TabPages(1).Visible = True

e.Form.Controls("TabControl1").SelectedIndex = 1

End Select

一个Case语句可以同时设置多个值，各个值之间用逗号分开，例如：

Dim Value As Integer = 5
Select Case Value
    Case 1,3,5,7,9
        OutPut.Show("奇数")
    Case 2,4,6,8,10
        OutPut.Show("偶数")
End Select

Case "采购入库单"，"部门领用单"

e.Form.Controls("TabControl1").TabPages(0).Visible = True

e.Form.Controls("TabControl1").SelectedIndex = 0

http://www.foxtable.com/webhelp/topics/1933.htm

主题：求助菜单