以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单栏中如何创建多行文本框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88734)
--  作者：凡夫俗子
--  发布时间：2016/8/8 17:04:00
--  菜单栏中如何创建多行文本框
菜单栏中如何创建多行文本框，目前属性设置中没看到多行设置功能
--  作者：大红袍
--  发布时间：2016/8/8 17:14:00
--  
 没有那种控件，你必须加入TextBox控件才行。
--  作者：凡夫俗子
--  发布时间：2016/8/8 17:18:00
--  
那如何加入TextBox呢
--  作者：大红袍
--  发布时间：2016/8/8 17:34:00
--  

比如

 

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.Label
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
C1Ribbon1.tabs("111").Groups("222").Items.Add(b)
--  作者：凡夫俗子
--  发布时间：2016/8/8 19:23:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160808191914.png
图片点击可在新窗口打开查看
还是没搞定

请大师再明示下：
如何在 功能菜单 “实战演练” 的功能组 “当前内容” 中添加一个 多行 文本框。
--  作者：大红袍
--  发布时间：2016/8/8 20:10:00
--  

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New Windows.Forms.TextBox
a.Font = new font("宋体", 20)
a.backColor = color.red
a.MultiLine = True
a.height = 100

Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("Other").Groups("Execute").Items.Add(b)
--  作者：凡夫俗子
--  发布时间：2016/8/8 22:46:00
--  
谢谢，成功向菜单栏加入了 多行文本框

再请教一下：

如何通过 代码 向该文本框 写入值。

RibbonTabs("Other")("Execute")("自定义项1").Text = CurrentTable.Cols(CurrentTable.Colsel).Name

这样写系统提示错误。
--  作者：大红袍
--  发布时间：2016/8/8 23:10:00
--  

我测试，没问题

 

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim o = C1Ribbon1.tabs("Other").Groups("Execute").Items("自定义项1")
o.text = "1234"
--  作者：凡夫俗子
--  发布时间：2016/8/8 23:18:00
--  
谢谢，搞定
辛苦了，这么晚还在回复