StripItems
Strip有一个Items属性,这是一个集合,包括该菜单的所有项目。
StripItem也有一个Items属性,这也是一个集合,包括所有子菜单项目,只有MenuItem和SplitButton类型的StripItem,才可以包括子项目,其Items属性才有意义。
Items的主要成员有:
Add(Name, Text, ImageFile, Type)
Name: 指定菜单项目名称
Text: 指定 菜单项目标题
ImageFile: 指定菜单项目的图标文件
Type: 指定菜单项目的类型,StripItemTypeEnum类型,包括MenuItem、Button、 Label、SplitButton、Separator五个候选值。
InsertControl
用于插入标准控件,语法:
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子目录下。