vb气泡提示的类,文字可换行,只要设置对应的控件即可'使用范例:
'Dim tooltip As New Class1
'Set tooltip.ParentControl = Text1 '气泡应用于哪个控件(要有Hwnd)
'tooltip.ToolTipTitle = "气泡标题" '气泡标题(不允许换行/字体粗体)
'tooltip.ToolTipText = "气泡内容" & vbCrLf & "123" '气泡内容(允许换行)
'tooltip.Create '创建气泡
需要带工程下载的请访问此地址:http://commonprogrames.googlecode.com/files/clsTooptip.rar
1