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

 再改一下

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

点击浏览该文件:管理项目3.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随机窗口情况。

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

 没看懂你这样做的意图，先测试这个例子是否符合你的功能，哪些地方不符合 

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

点击浏览该文件:管理项目3.table

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

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

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

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