- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于菜单显示动态文本框？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77358)
-- 发布时间：2015/11/17 9:16:00
-- [求助]关于菜单显示动态文本框？
怎样在菜单栏的右侧设置一个规范的文本框，可以更新一些通知和说明类文本？
此主题相关图片如下：2015年11月17日2.png
-- 发布时间：2015/11/17 9:36:00
--
动态添加即可
Dim C1Ribbon1 As C1Ribbon.C1Ribbon = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim a As New Windows.Forms.TextBox
a.MultiLine = True
a.Text = "123456789"
a.Font = new font("宋体", 20)
a.backColor = color.red
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
b.height = 100
C1Ribbon1.tabs("Other").Groups("Execute").items.add(b)
-- 发布时间：2015/11/18 14:12:00
--
这段代码不理解啊，写在哪里？主窗口的afterload？
如果建立了一个日常通知的表，有5条通知轮流显示，应该如何设计？
-- 发布时间：2015/11/18 14:39:00
--
可以写在afterOpenProject事件。用vars记录一下
Dim a As New Windows.Forms.TextBox
vars("通知") = a
------------需要修改的时候，就写代码
vars("通知").Text = "987654321"
-- 发布时间：2015/11/18 14:42:00
--
是个动态提示的好方法。
-- 发布时间：2015/11/18 15:05:00
--
[2015年11月18日.png]UploadFile/2015-11/20151118151590655.png[/upload]
代码编辑器里的菜单如何显示我自己设计的菜单选项？
C1Ribbon1.tabs("Other").Groups("Execute").items.add(b)
这行代码我应该如何修改？
此主题相关图片如下：2015年11月18日.png
[此贴子已经被作者于2015/11/18 15:09:23编辑过]
-- 发布时间：2015/11/18 15:47:00
--
1、在你的菜单里面加入一个按钮，调出代码窗口；
Syscmd.Project.CommandWindow()
2、切换到你的菜单，打开代码窗口
-- 发布时间：2015/11/18 15:48:00
--
C1Ribbon1.tabs("功能区名字").Groups("功能组名称").items.add(b)
-- 发布时间：2015/11/18 16:31:00
--
明白了，如果我把代码写到秒计里，就可以实现内容的动态更新是吧。
-- 发布时间：2015/11/18 16:33:00
--
以下是引用ehomecd在2015/11/18 16:31:00的发言：
明白了，如果我把代码写到秒计里，就可以实现内容的动态更新是吧。
明白了，如果我把代码写到秒计里，就可以实现内容的动态更新是吧。
vars("通知").Text = "987654321"