专家坐堂-[求助]动态增加窗口主菜单和工具栏Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.StripItem.Name

Case "文件"

MessageBox.Show("文件演示")

Case "新建"

MessageBox.Show("新建演示")

Case "打印"

CurrentTable.Print(True, False)

End SelectSelect Case e.StripItem.Name

Case "文件"

MessageBox.Show("文件演示")

Case "新建"

MessageBox.Show("新建演示")

Case "打印"

CurrentTable.Print(True, False)

End Select

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)

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)