主题：提示内容

取控件改为currentchanged事件里一样的用法

老师，我水平太差，不明白您说的应该怎么做。请您给改一下吧。谢谢。

 

检查自己代码，currentchanged事件里是怎么获取这个控件的，使用了什么代码？

将代码改后显示：

.NET Framework 版本：4.0.30319.1026
Foxtable 版本：2020.1.19.19
错误所在事件：表A,AfterSelChange
详细错误信息：
未找到类型“Panel”的公共成员“text”。

 

If Forms("窗口1").Opened AndAlso e.OldRange.ColSel <> e.NewRange.ColSel
    Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
    Select Case c.name
        Case "第一列"
            Forms("窗口1").Controls("Panel1").text = Tables("表B").Rows(0)("第三列")
        Case "第二列"
            Forms("窗口1").Controls("Panel1").text = Tables("表B").Rows(1)("第三列")
        Case "第三列"
            Forms("窗口1").Controls("Panel1").text = Tables("表B").Rows(2)("第三列")
           
           
        Case "第四列"
            Forms("窗口1").Controls("Panel1").text = Tables("表B").Rows(3)("第三列")
    End Select
End If

'If Forms("窗口1").opened Then
'    Dim rtxt = Forms("窗口1").Controls("Panel1").basecontrol.Controls("mytxt")
'    rtxt.Text = e.Table.Current("第一列")
'End If

Forms("窗口1").Controls("Panel1").basecontrol.Controls("mytxt").Text  = Tables("表B").Rows(0)("第三列")

老师，下面的代码不明白，为什么是第一列？我所有的列都有说明。

Dim rtxt As New System.Windows.Forms.RichTextBox
UtilsSetLineSpace.SetLineSpace(rtxt, 400)
rtxt.name = "mytxt"
rtxt.Dock = 5
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)
rtxt.Multiline = True
rtxt.Text = Tables("表A").Current("第一列")
addhandler rtxt.TextChanged, addressof mytxt_TextChanged

这个例子没有10楼例子里的文本框控件，这个是一个第三方的控件。而不是panel，panel是无法显示文字的。

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

点击浏览该文件:设置控件间距例子.zip

请问，怎么把上面的信息设置成红色写入panel1。