主题：[求助]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

非常感谢有点色老师，非常好用，以后确实可以代替textbox了。还有一点，就是点击控件直接进入编辑状态，不出现全选的过程，怎样设置？

还有一点，鼠标右键功能没有了。

 

搜了两条，但不会用：

1、

http://www.phpfans.net/ask/MTMwNjQyMQ.html/

2、

http://wenda.so.com/q/1378594785073714

 

 

 

我用的是试用版，不能在窗口设置"快捷菜单1”；

 

rt.ContextMenuStrip = e.form.Strips("快捷菜单1").basecontrol '则在鼠标位置显示快捷菜单

 

我在系统菜单设置的"快捷菜单1”，上句代码改为：

 

rt.ContextMenuStrip = ContextMenus("快捷菜单1")      ’提示错误。

 

 

此主题相关图片如下：image 1.jpg

  

此主题相关图片如下：image 3.jpg

1、我在项目的AfterOpenProject事件里隐藏表；

For Each t As Table In Tables
    t.Visible = False
Next

 

2、在窗口的AfterLoad设置  打开“窗口1”时,后台的焦点表为“表A”；

If Forms("窗口1").opened
Dim t As Table = Tables("表A")
    If t.Visible Then
        MainTable = t
        t.Focus
    End If
End If

 

这时，窗口就不跟随单元格同步了，是哪里原因？去掉项目事件的隐藏表代码，就可以同步。

例子： 

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

点击浏览该文件:richtextbox记录窗口.table

大师，我把随机窗口独立出来，在多个主窗口调用它，这样在主窗口的afterload事件中就只需要一段代码，代码如下：

Dim PB1 As WinForm.Panel = e.Form.Controls("Panel1")
Dim Name1 As String = "rtf随机窗口"
Forms(Name1).OPEN(-1000,-1500)
Forms(Name1).BaseForm.TopLevel = False
Forms(Name1).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name1).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB1.BaseControl.Controls.Clear
PB1.BaseControl.Controls.add(Forms(Name1).BaseForm)

 

如果这样可行的话，麻烦再给看看需要怎样调整代码？谢谢！（还是隐藏表时不行）

 

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

点击浏览该文件:richtextbox记录窗口-隐藏表-窗口打开随机窗口.table

1、表中有的单元格字数很多，如果想看全，就要把表的行距拉很大，看着这样的表很乱，因此，把表都隐藏起来，查看和编辑都在记录窗口和rtf随机窗口中进行。

2、另外，记录窗口在进入编辑状态时，行距会进一步紧缩，视觉效果很差，所以，我只用记录窗口作为显示和定位，编辑录入基本都在rtf随机窗口。

3、我上面的实例是根据在窗口中打开窗口制作的，确实存在多个窗口或一个窗口的不同页面打开rtf随机窗口情况。

但是，在不隐藏表的时候是没有问题的。

可以实现我要的效果，但要是有多个这样的窗口，每个窗口都要在afterload、timertick事件中写两段代码，在项目mytxt_TextChanged  函数中写下列两行代码。

Dim brgd = Forms("窗口1").Controls("RecordGrid1").basecontrol
Tables(sender.tag).current(brgd(brgd.Selection.r1,0)) = sender.text

 

实际我写的程序中这样的窗口有几十个，每个窗口再对应不同的表。

想创建窗口时少写一些代码。