主题：[求助]RichTextBox随机单元格例子

用RichTextBox作为显示或编辑窗口，效果比textbook效果要好，例子中有些代码虽然没有报错，但却没产生作用，例如：字体、字号、行间距等，不知是何原因？

另外希望大师能帮助完善一项功能，例子里窗口绑定了表中的[第一列]，希望能同步当前表的焦点单元格，作为显示或编辑的窗口。

谢谢！

代码如下：

Dim rt As new Windows.Forms.RichTextBox  '定义 一个RichTextBox
rt.Dock = Windows.Forms.DockStyle.Fill  '控件停靠方式为撑满父控件
rt.name = "RichTextBox1"  '设置控件名称
'rt.languageoption = System.Windows.Forms.richtextboxlanguageoptions.uifonts  '设置 LanguageOption 属性
rt.Font = new System.Drawing.Font(FontFamily.GenericMonospace, 20)    '此代码有效,但不能设字体

rt.DataBindings.Add("text", Tables("表A").Grid.DataSource, "第一列")   'RichTextBox绑定第一列,希望同步所有单元格

'rt.SelectionColor = Color.Red    '背景色无效
'rt.SelectionFont = New Font("楷体",20,FontStyle.Bold)  '字体字号无效
'rt.SetLineSpace(600)   '设置行间距无效

e.Form.Controls("Panel1").BaseControl.Controls.Add(rt)   '控件放入Panel1中作为子控件

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:richtextbox随机单元格例子.table