主题：[分享]showtooltip多行显示代码

做了个综合信息查询小系统，其中就有一个文件管理的小功能，当鼠标移动到“文件”列之后通过showtooltip显示内容，因为showtooltip不支持多行，所以就想了个笨办法实现该功能，代码其实不够简洁，目前只想到这么多，请版主及网友指正。

此主题相关图片如下：1.jpg

 

看看

汗，没这么麻烦

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)

版主，感谢赐教。。。。