托盤-在線等，誰能修改VB自帶的systray.ocx控件，讓其可以氣泡提示？

在線等，誰能修改VB自帶的systray.ocx控件，讓其可以氣泡提示？

systray.ocx控件的源碼可以在vb安裝包中找到，地址百度下就有（不是安裝後的文件裡）。

該控件做托盤圖標比較穩定，但就不能氣泡提示。我的程序已大量引用，所以不想改用其它托盤圖標的程序，只要修改這個控件的代碼，讓其可以氣泡提示。

最佳回答：

第一步，把 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
你可以修改一下，把要提示的內容經參數傳入，可以顯示不同的內容。
要注意：信息標題、信息內容長度的限制。