- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Panel如何加入菜单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177093)
-- 发布时间：2022/5/9 10:48:00
-- Panel如何加入菜单
帮助有窗口加入菜单的示例 请教如何在panel内加入菜单呢
Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.ToolBar)
Strip = e.Form.Controls("Panel1").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 = e.Form.Controls("Panel2").Strips.Add("工具栏2", StripTypeEnum.ToolBar)
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)
-- 发布时间：2022/5/9 11:00:00
--
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)
-- 发布时间：2022/5/18 16:26:00
--
动态添加的菜单如何设置背景为白色
此主题相关图片如下：dingtalk_20220518162355.jpg
-- 发布时间：2022/5/18 16:28:00
--
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109772&skin=0