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)
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)