主题：[求助]关于菜单显示动态文本框？

怎样在菜单栏的右侧设置一个规范的文本框，可以更新一些通知和说明类文本？

动态添加即可

 

 

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)

这段代码不理解啊，写在哪里？主窗口的afterload？

可以写在afterOpenProject事件。用vars记录一下

 

Dim a As New Windows.Forms.TextBox

 

vars("通知") = a

 

------------需要修改的时候，就写代码

 

vars("通知").Text = "987654321"

是个动态提示的好方法。

[2015年11月18日.png]UploadFile/2015-11/20151118151590655.png[/upload]
此主题相关图片如下：2015年11月18日.png

1、在你的菜单里面加入一个按钮，调出代码窗口；

 

Syscmd.Project.CommandWindow()

 

2、切换到你的菜单，打开代码窗口

C1Ribbon1.tabs("功能区名字").Groups("功能组名称").items.add(b)

 

明白了，如果我把代码写到秒计里，就可以实现内容的动态更新是吧。

 

vars("通知").Text = "987654321"