主题：提示内容

请问老师，想在表中做一个停靠窗口，窗口中放一个文本框。鼠标在不同的列，在文本框显示不同的提示内容。请问老师怎么实现呢？

老师您好，非常感谢回复。

抱歉，我写的不清楚。我想做一个评分表，但评分条件太长了，平分的项目有18项。想在A表评分，B表放条件。

我想双击了A表的第一列，在窗口1的文本框中显示B表第一列第一行中的内容。

      双击了A表的第二列，在窗口1的文本框中显示B表第一列第二行中的内容。

依次类推

 

代码怎么写呢？

没有关联的列，想用代码控制，代码不知怎么写。

双击表A第一列，取表B第一列第一行的信息。

双击表A第三列，取表B第一列第三行的信息。

其它类似

 

也不一定是双击，反正选中哪一列，对应的显示这一列的说明。

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

点击浏览该文件:提示信息显示.zip

老师，您真是高人啊，圆满解决了我的问题。谢谢。

老师您好，这个例子成功后发现，用textbox控件字一多看不清楚，因为行间距太小了。想改成下面这个例子的panpel控件，请老师给改一改代码。谢谢。

 

 

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

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

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

 

将代码改后显示：

.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

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

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

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