- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [分享]showtooltip多行显示代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78733)
-- 发布时间：2015/12/16 8:50:00
-- [分享]showtooltip多行显示代码
做了个综合信息查询小系统，其中就有一个文件管理的小功能，当鼠标移动到“文件”列之后通过showtooltip显示内容，因为showtooltip不支持多行，所以就想了个笨办法实现该功能，代码其实不够简洁，目前只想到这么多，请版主及网友指正。
此主题相关图片如下：1.jpg
以下内容只有回复后才可以浏览
[此贴子已经被作者于2015/12/16 8:52:02编辑过]
-- 发布时间：2015/12/16 9:06:00
--
看看
-- 发布时间：2015/12/16 9:24:00
--
汗，没这么麻烦
Dim s As String = "奥斯都发酥覅哦啊速递发生地发哦深刻的佛啊是自行车阿斯达克佛"
Dim str As String = ""
Dim c As Integer = Math.Floor(s.length / 10)
For i As Integer = 0 To c - 1
str &= s.SubString(i*10, 10) & vbcrlf
Next
str &= s.SubString(c*10) & vbcrlf
msgbox(str)
-- 发布时间：2015/12/16 10:24:00
--
以下是引用大红袍在2015/12/16 9:24:00的发言：
汗，没这么麻烦
Dim s As String = "奥斯都发酥覅哦啊速递发生地发哦深刻的佛啊是自行车阿斯达克佛"
Dim str As String = ""
Dim c As Integer = Math.Floor(s.length / 10)
For i As Integer = 0 To c - 1
str &= s.SubString(i*10, 10) & vbcrlf
Next
str &= s.SubString(c*10) & vbcrlf
msgbox(str)
版主，感谢赐教。。。。
-- 发布时间：2016/8/25 9:44:00
--
学习一下...
-- 发布时间：2016/8/25 9:53:00
--
-- 发布时间：2016/8/25 10:21:00
--
看看。
-- 发布时间：2016/8/25 18:30:00
--
看看
-- 发布时间：2016/8/25 18:45:00
--
ddddddddddddd
-- 发布时间：2016/11/24 21:08:00
--
vb