主题：[讨论]绑定RichTextBox

老大,你这个不能放到容器里面去的吗,另外不能设置大小吗?

另外richtextbox的重排是怎样的?

Dim ct As New Windows.Forms.RichTextBox
ct.Dock = Windows.Forms.DockStyle.Fill
e.Form.Controls("SplitContainer1").Panel1.Add(ct)

或者

 

e.Form.Controls("SplitContainer1").Panel1.AddControl(ct)    都不行

 

ct.DataBindings.Add("Text", Tables("配置栏").Grid.DataSource, "代码编辑器")

哦,原来是这样的

那老大,我想问的是今日问的那个查找一类的属性是不是一样的,

因为是动态的,控件的名称是什么呢?  是CT还是RichTextBox1

 

这个有缩进的,缩进的代码是什么(也就是代码编辑器里面的重排)

哦,我试试看.

Dim ct As New Windows.Forms.RichTextBox
ct.Dock = Windows.Forms.DockStyle.Fill
ct.Name ="ABC"
e.Form.Controls("SplitContainer1").Panel1.BaseControl.Controls.Add(ct)
ct.DataBindings.Add("Text", Tables("配置栏").Grid.DataSource, "代码编辑器")

 

  是这样吗?但是我指定了,其他按钮事件怎么引用呢?

 

 

这个因为是放在窗口事件中的.

老大你再看看,我在窗口事件的代码:

 

Dim ct As New Windows.Forms.RichTextBox
ct.Dock = Windows.Forms.DockStyle.Fill
ct.Name ="RichTextBox1"
e.Form.Controls("SplitContainer1").Panel1.BaseControl.Controls.Add(ct)
ct.DataBindings.Add("Text", Tables("配置栏").Grid.DataSource, "代码编辑器")

 

 在查找按钮的代码:

 

If forms("代码").Opened Then
    Dim ct As Windows.Forms.RichTextBox
    ct = e.Form.Controls("SplitContainer1").Panel1.BaseControl.Controls("RichTextBox1")
    Dim t1,t2 As String
    t1=e.Form.Controls("RichTextBox1").text
    t2=e.Form.Controls("TextBox1").text
    e.Form.Controls("RichTextBox1").Select()
    If t2 <> "" Then
        If Instr(t1,t2) <> 0 Then
            e.Form.Controls("RichTextBox1").SelectionStart = Instr(t1,t2)-1
            e.Form.Controls("RichTextBox1").SelectionLength = Len(t2)
        Else
            MessageBox.Show("没有找到!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
        End If
    Else
        MessageBox.Show("请输入要查找的字符!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Question)
    End If
End If

 

提示找不到控件!

 

改成:

 

t1=e.Form.Controls(ct).text                 通不过

 

我真是个傻瓜蛋,明明CT就是一个控件,还要去做什么控件名称.现在终于可以睡觉啦,谢谢,今晚睡的着了,不然一夜多睡不着,明日看重排,就可以了.谢谢老大.

 

我的代码编辑器基本和你的差不多了,除了附件部分.