以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助菜单 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153036) |
-- 作者:outcat -- 发布时间:2020/7/29 14:23:00 -- 求助菜单 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) 老师,我上面这几行代码,也没有问题呢呀,很奇怪,保存生成菜单就报错,把他注释掉,就正常,可这个 奶出库,就没有二级菜单了 |
-- 作者:有点蓝 -- 发布时间:2020/7/29 14:37:00 -- 不要使用相同的控件名称 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) |
-- 作者:有点蓝 -- 发布时间:2020/7/29 14:40:00 -- 名称不同重复,标题可以重复。 Items的Add方法语法是: Add(Name, Text, ImageFile, Type, Delimiter) Name: 指定项目名称 itm = mnu.Items("奶制品").Items("这里使用的是名称不是标题") |
-- 作者:outcat -- 发布时间:2020/7/29 15:12:00 -- 采购入库单 部门领用单 调拨入库单| 入库汇总、出库汇总、销售汇总 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 |
-- 作者:有点蓝 -- 发布时间:2020/7/29 15:21:00 -- 一个Case语句可以同时设置多个值,各个值之间用逗号分开,例如: Dim Value As Integer = 5 Case "采购入库单","部门领用单" e.Form.Controls("TabControl1").TabPages(0).Visible = True e.Form.Controls("TabControl1").SelectedIndex = 0 |