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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助菜单

共有2428人关注过本帖树形打印复制链接主题：求助菜单

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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)

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/29 14:40:00 [显示全部帖子]

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

Items的Add方法语法是：

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

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

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

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/29 15:21:00 [显示全部帖子]

一个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

下一主题 >> << 上一主题

主题：求助菜单