在线等，谁能修改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
你可以修改一下，把要提示的内容经参数传入，可以显示不同的内容。
要注意：信息标题、信息内容长度的限制。

托盘这个功能貌似本身并不复杂,有必要使用一个不熟悉的第三方控件么- -#

http://www.m5home.com/blog2/blogview.asp?logID=217&cateID=2
你短消息里的问题,只需要在窗体的QueryUnload事件里处理一下即可:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> vbFormCode Then '只要不是在代码里调用Unload Me,则执行隐藏操作.
Cancel = 1
Me.Hide
End If
End Sub

要退出时,需要在某处调用Unload Me.

跟delphi 挺像的

搜索下源代码，找Shell_NotifyIcon NIM_ADD, xxx （假设第二个参数叫xxx）
这个方法的第二个参数是 NOTIFYICONDATA类型的变量
增加样式
xxx.dwInfoFlags = NIIF_GUID