StripItems

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

Items的主要成员有：

• Count
  属性，整数型，返回菜单项目的数量。
  　
• Contains
  方法，判断是否存在指定名称的菜单项目。
  　
• Remove
  方法，用于删除指定名称的菜单项目
  　
• Clear
  清除所有菜单项目
  　
• Add
  增加菜单项目，语法：

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子目录下。