Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单栏中如何创建多行文本框


  共有1608人关注过本帖树形打印复制链接

主题：菜单栏中如何创建多行文本框
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		菜单栏中如何创建多行文本框  发帖心情 Post By：2016/8/8 17:04:00 [只看该作者]

菜单栏中如何创建多行文本框，目前属性设置中没看到多行设置功能

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/8 17:14:00 [只看该作者]

 没有那种控件，你必须加入TextBox控件才行。

 回到顶部
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		  发帖心情 Post By：2016/8/8 17:18:00 [只看该作者]

那如何加入TextBox呢

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		  发帖心情 Post By：2016/8/8 19:23:00 [只看该作者]


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

请大师再明示下：
如何在 功能菜单 “实战演练” 的功能组 “当前内容” 中添加一个 多行 文本框。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		  发帖心情 Post By：2016/8/8 22:46:00 [只看该作者]

谢谢，成功向菜单栏加入了 多行文本框

再请教一下：

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

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

这样写系统提示错误。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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"
 回到顶部
帅哥哟，离线，有人找我吗？
凡夫俗子
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00 		  发帖心情 Post By：2016/8/8 23:18:00 [只看该作者]

谢谢，搞定
辛苦了，这么晚还在回复
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询