以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于RichTextBox的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121112)
--  作者：douglas738888
--  发布时间：2018/6/29 11:56:00
--  关于RichTextBox的问题

请教老师，参照设置控件间距例子做的panel上的间距设置，在窗口的Table点击行后，panel上的内容只会固定在第一行显示列的内容，current第二行或其他行后，panel里面的内容不会变化（不会像textbox绑定列的变化）

如果Table不在窗口设置，可以正常根据current行显示

 

下面代码写在CurrentChanged

 

Dim r As Row = Tables("会议纪要_Table1").Current
If r IsNot Nothing Then
    If Tables("会议纪要_Table1").Current IsNot Nothing Then
    Dim rtxt As New Windows.Forms.RichTextBox
    UtilsSetLineSpace.SetLineSpace(rtxt, 400)
    rtxt.name = "mytxt"
    rtxt.Dock = 5
    e.Form.Controls("Panel5").BaseControl.Controls.Add(rtxt)
    rtxt.Multiline = True
    rtxt.BackColor = Color.WhiteSmoke
    rtxt.Text = Tables("会议纪要_Table1").Current("正文内容")
    addhandler rtxt.TextChanged, addressof mytxt_TextChanged
    End If
End If

[此贴子已经被作者于2018/6/29 12:08:20编辑过]
--  作者：有点甜
--  发布时间：2018/6/29 14:43:00
--  

不能生成多个richtextbox

 

Dim rtxt As New Windows.Forms.RichTextBox

 

你在窗口打开的时候生成了一个，你在currentChanged又生成多个？

 

看懂这个例子 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104370&skin=0