帮助手册 关于第三方开发接口中有如下内容
所有的控件都有一个BaseControl属性，返回其对应的System.Windows.Forms.Control对象
窗口有一个Panel对象，返回一个Foxtable.FormPanel容器，窗口所有的控件都在这个容器中
对于模式窗口和独立窗口，可以通过窗口的BaseForm属性，返回对应的System.Windows.Forms.Form对象
例如希望消除某个独立或模式窗口的边框，可以在窗口的AfterLoad事件中加入代码：
e.Form.BaseForm.FormBorderStyle =
System.Windows.Forms.FormBorderStyle.None
在窗口添加第三方控件的时候，不能直接添加到BaseForm中，必须添加到Panel中。
例如需要在窗口中加入一个RichTextBox控件，可以在窗口的AfterLoad事件中加入代码：
Dim ct As New
System.Windows.Forms.RichTextBox
ct.Dock =
System.Windows.Forms.DockStyle.Fill
e.Form.Panel.Controls.Add(ct)
如果已经添加了第三方控件，建议在窗口的BeforeClose事件中，将这些控件移除并销毁。
在一个窗体中 有一个按钮 代码如下：（定义一个富文本并且绑定该富文本到"表A"的第一列，下面的代码没有实现数据保存在表a的第一列。求解！）
Dim ct As New System.Windows.Forms.RichTextBox
ct.Dock = System.Windows.Forms.DockStyle.Fill
e.Form.Controls("Panel1").BaseControl.Controls.Add(ct)
ct.text=rng.Text '.replace(chr(13), vbcrlf)
If e.Form.Controls("Panel1").BaseControl.Controls("TextBox1").DataBindings.Count =0 Then
e.Form.Controls("Panel1").BaseControl.Controls("TextBox1").DataBindings.add("Text",Tables("表A").Grid.DataSource, "第一列")
End If
第二 怎样清空这个RichTextBox控件里的值 便于新增数据时 保存新的内容呢？帮助里说是要移除并销毁？怎么实现额？
加好友 
发短信
Post By：2021/1/19 14:07:00 [显示全部帖子]
