| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 显示动态提示信息 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184663) |
| -- 作者：cd_tdh -- 发布时间：2022/12/21 15:57:00 -- 显示动态提示信息 老师，这种动态提示信息，有没办法控制提示框的大小，内容多的时候显示一行，不但丑，还显示不完整。 [此贴子已经被作者于2022/12/21 15:57:07编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/12/21 16:01:00 -- 自能自己加换行符：http://www.foxtable.com/webhelp/topics/2688.htm |
| -- 作者：cd_tdh -- 发布时间：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
|