Strips

Form有个Strips属性，这是一个集合，返回窗口的所有菜单，包括主菜单、工具栏、快捷菜单和状态栏。
通过Strips集合，可以获取指定名称的菜单，例如：

Dim Strip As WinForm.Strip = e.Form.Strips("工具栏1")
Strip.Visible = False

Strips的主要成员有：

• Count
  属性，整数型，返回窗口菜单的数量
  　
• Contains
  方法，判断窗口是否存在指定名称的菜单，例如：
  
  If e.Form.Strips.Contains("工具栏1") Then
      MessageBox.Show("工具栏1已经存在")
  End If
  　
• Remove
  删除指定名称的菜单，例如：
  
  If e.Form.Strips.Contains("工具栏1") Then
      e.Form.Strips.Remove("工具栏1")
  End If
  　
• Clear
  清除所有菜单，例如：
  
  e.Form.Strips.Clear()
  　
• Add
  增加菜单，语法：
  
  Add(Name,Type)
  
  Name：新增菜单的名称
  Type：新增菜单的类型，StripTypeEnum型枚举，可选值有MainMenu，ToolBar，StatusBar，ContextMenu
  
  例如在窗口的AfterLoad事件加上代码：

  Dim Strip As WinForm.Strip
  Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.ToolBar)
  Strip.Items.Add("New", "新建", "new.ico", StripItemTypeEnum.Button)
  Strip.Items.Add("Open", "打开", "Open.ico", StripItemTypeEnum.Button)
  Strip.Items.Add("Save", "保存", "Save.ico", StripItemTypeEnum.Button)
  Strip.Items.Add("Print", "打印", "Print.ico", StripItemTypeEnum.Button)
  Strip.Items.Add("Separator1", "分割条", "", StripItemTypeEnum.Separator)
  Strip.Items.Add("Cut", "剪切", "Cut.ico", StripItemTypeEnum.Button)
  Strip.Items.Add("Copy", "复制", "Copy.ico", StripItemTypeEnum.Button)
  Strip.Items.Add("Brush", "格式刷", "Brush.ico", StripItemTypeEnum.Button)
  Strip.Items.Add("Separator2", "分割条", "", StripItemTypeEnum.Separator)
  Strip.Items.Add("Help", "帮助", "Help.ico", StripItemTypeEnum.Button)

  可以自动生成下图所示的工具栏：

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