显示动态提示信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 显示动态提示信息

共有5346人关注过本帖树形打印复制链接主题：显示动态提示信息

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3191 积分：21219 威望：0 精华：0 注册：2016/3/28 16:57:00

显示动态提示信息 发帖心情

Post By：2022/12/21 15:57:00 [显示全部帖子]

老师，这种动态提示信息，有没办法控制提示框的大小，内容多的时候显示一行，不但丑，还显示不完整。

[此贴子已经被作者于2022/12/21 15:57:07编辑过]

cd_tdh

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3191 积分：21219 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2022/12/21 16:22:00 [显示全部帖子]

这样确实能实现

If e.Col.Name = "说明" AndAlso e.Row.IsNull("说明") = False Then

Dim s As String = e.Row("说明")

Dim n As Integer = 50

Dim lst As New List(Of String)

Do While s.Length > n

Dim s1 As String = s.Substring(0, n)

s = s.Substring(n)

lst.Add(s1)

Loop

lst.Add(s)

Dim sn As String = String.Join(vbcrlf, lst.ToArray)

e.Table.ShowToolTip(sn, e.Row, e.Col)

' e.Table.ShowToolTip(e.Row("说明"), e.Row, e.Col)

End If

主题：显示动态提示信息