systray.ocx控件的源码可以在vb安装包中找到,地址百度下就有(不是安装后的文件里)。
该控件做托盘图标比较稳定,但就不能气泡提示。我的程序已大量引用,所以不想改用其它托盘图标的程序,只要修改这个控件的代码,让其可以气泡提示。
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
你可以修改一下,把要提示的内容经参数传入,可以显示不同的内容。
要注意:信息标题、信息内容长度的限制。