在线等，谁能修改VB自带的systray.ocx控件，让其可以气泡提示？

Question

systray.ocx控件的源码可以在vb安装包中找到，地址百度下就有（不是安装后的文件里）。

该控件做托盘图标比较稳定，但就不能气泡提示。我的程序已大量引用，所以不想改用其它托盘图标的程序，只要修改这个控件的代码，让其可以气泡提示。

Answer 1

第一步，把 mSysTray.bas 中，NOTIFYICONDATA的类型成员添加完整。
类型定义改成这个：
Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
注意第7个成员，与官方资料的不同，必须要szTip As String * 128。
按官方文档资料，szTip As String * 64是无法显示气泡提示的。

第二步，在 cSysTray.ctl 的代码模块中添加一个公共过程接口来显示气泡提示：
Public Sub ShowTooltip()
Dim Tray As NOTIFYICONDATA

If gInTray Then
Tray.cbSize = Len(Tray)
Tray.hWnd = gTrayHwnd
Tray.szInfo = "气泡消息，信息内容" & vbNullChar
Tray.szInfoTitle = "气泡消息" & vbNullChar
Tray.uFlags = NIF_INFO
Tray.dwInfoFlags = 1
Shell_NotifyIcon 1&, Tray
End If
End Sub
你可以修改一下，把要提示的内容经参数传入，可以显示不同的内容。
要注意：信息标题、信息内容长度的限制。