- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码创建窗口菜单不显示标题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123968)
-- 发布时间：2018/8/28 9:18:00
-- 代码创建窗口菜单不显示标题
一个主窗口，在afterload下有如下代码。
e.Form.Strips.Clear()
Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("11manu", StripTypeEnum.MainMenu)
Strip.Items.Add("CSU", "123123123", "", StripItemTypeEnum.Button)
但是标题不出现，如截屏。
请问代码怎么改？
此主题相关图片如下：capture.jpg
-- 发布时间：2018/8/28 10:04:00
--
| DisplayText | 逻辑型，是否显示标题。 |
[此贴子已经被作者于2018/8/28 10:58:52编辑过]
-- 发布时间：2018/8/28 10:23:00
--
但是通过编辑器就可以添加。代码怎么做？
此主题相关图片如下：capture.jpg
-- 发布时间：2018/8/28 10:27:00
--
一样不行的。
-- 发布时间：2018/8/28 10:34:00
--
这样应该是第二层了啊。
Strip = e.Form.Strips.Add("11manu", StripTypeEnum.MainMenu) 第一层主菜单 11manu
Strip.Items.Add("CSU", "123123123", "", StripItemTypeEnum.Button)，第二层items中的一个按钮。
-- 发布时间：2018/8/28 10:37:00
--
不然，你添加这种按钮控件吧，如
http://www.foxtable.com/webhelp/scr/3111.htm
-- 发布时间：2018/8/28 10:44:00
--
不对，你将的是下拉菜单里面有按钮，但是我要在第一层窗口就有按钮。同菜单编辑器可以实现，但是代码不知道怎么做。
这样才是第三层，变成下拉菜单了。
e.Form.Strips.Clear()
Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.MainMenu)
Strip.Items.Add("CSU", "123", "", StripItemTypeEnum.MenuItem)
Dim sit As WinForm.StripItem = e.Form.Strips("工具栏1").Items("CSU")
sit.items.add("CSU2", "123123123", "", StripItemTypeEnum.button)
此主题相关图片如下：capture.jpg
-- 发布时间：2018/8/28 10:52:00
--
应该是一个bug
e.Form.Strips.Clear()
Dim Strip As WinForm.Strip
Strip = e.Form.Strips.Add("工具栏1", StripTypeEnum.MainMenu)
Strip.Items.Add("CSU", "123", "", StripItemTypeEnum.button)
Dim sit As WinForm.StripItem = e.Form.Strips("工具栏1").Items("CSU")
sit.DisplayText=True 必须加上这一句，否则默认按钮不带标题。
-- 发布时间：2018/8/28 10:58:00
--
不是bug，必须设置属性
| DisplayText | 逻辑型，是否显示标题。 |
-- 发布时间：2018/8/28 11:14:00
--
如何修改这个代码创建的菜单的字体？
Dim r As object = BaseMainForm.controls(locat)？
Dim r As object = e.Form.Strips("工具栏1").Items(locat)？