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)
老师，我上面这几行代码，也没有问题呢呀，很奇怪，保存生成菜单就报错，把他注释掉，就正常，可这个 奶出库，就没有二级菜单了
加好友 
发短信
Post By：2020/7/29 14:23:00 [显示全部帖子]
