StripItems

Strip有一个Items属性,这是一个集合,包括该菜单的所有项目。
StripItem也有一个Items属性,这也是一个集合,包括所有子菜单项目,只有MenuItem和SplitButton类型的StripItem,才可以包括子项目,其Items属性才有意义。

Items的主要成员有:

Add(Name, Text, ImageFile, Type)

Name:      指定菜单项目名称
Text:      指定 菜单项目标题
ImageFile: 指定菜单项目的图标文件
Type:      指定菜单项目的类型,
StripItemTypeEnum类型,包括MenuItemButton LabelSplitButton、Separator五个候选值。

InsertControl(ItemName,Control,Index)

ItemName:项目名称,控件是作为一个特殊项目插入到菜单中的,所以要指定项目名称。
Control: 要插入的控件。
Index:   插入位置。

参考:插入标准控件

示例一

删除文件菜单中的打印命令:

If e.Form.Strips("主菜单").Items("File").Items.Contains("Print") Then
    e.Form.Strips("主菜单").Items("File").Items.Remove("Print")

End
If

示例二

完全不用窗口的菜单设计器,直接用代码动态创建一个简单的主菜单,在窗口的AfterLoad事件加上代码:

Dim mnu As Winform.Strip
Dim
itm As WinForm.StripItem
mnu
= e.Form.Strips.Add("主菜单",StripTypeEnum.MainMenu)
mnu
.Items.Add("File","文件(&F)","",StripItemTypeEnum.MenuItem)
mnu
.Items.Add("Edit","编辑(&E)","",StripItemTypeEnum.MenuItem)
mnu
.Items.Add("Option","选项(&O)","",StripItemTypeEnum.MenuItem)
mnu
.Items.Add("Help","帮助(&H)","",StripItemTypeEnum.MenuItem)
'
在主菜单右侧增加一个按钮
mnu
.Items.Add("Home","主页","home.ico",StripItemTypeEnum.Button)
mnu
.Items("Home").DisplayText = False
mnu
.Items("Home").DockToRight = True '靠右停放
'
为文件菜单增加项目
itm
= mnu.Items("File")
itm
.Items.Add("New","新建","new.ico",StripItemTypeEnum.MenuItem)
itm
.Items.Add("Open","打开","Open.ico",StripItemTypeEnum.MenuItem)
itm
.Items.Add("Save","保存","Save.ico",StripItemTypeEnum.MenuItem)
itm
.Items.Add("Separator1", "分割条", "", StripItemTypeEnum.Separator)
itm
.Items.Add("Print","打印","Print.ico",StripItemTypeEnum.MenuItem)
itm
.Items.Add("Preview","打印预览","Preview.ico",StripItemTypeEnum.MenuItem)
itm
.Items.Add("Separator2", "分割条", "", StripItemTypeEnum.Separator)
itm
.Items.Add("Exit","退出","",StripItemTypeEnum.MenuItem)
'
为常用项目增加快捷键
itm
.Items("New").ShortcutKeys = Keys.Control Or Keys.N
itm
.Items("Open").ShortcutKeys = Keys.Control Or Keys.O
itm
.Items("Save").ShortcutKeys = Keys.Control Or Keys.S
'这里只给文件菜单加上了内容,其它菜单的内容请自行编写.

这是生成的主菜单:

提示:相关图标文件要事先复制到项目的Images子目录下。

 


本页地址:http://www.foxtable.com/webhelp/scr/3221.htm