buaazk
2016-08-04 03:14
采纳率: 100%
浏览 1.3k
已采纳

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

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

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

  • 写回答
  • 好问题 提建议
  • 追加酬金
  • 关注问题
  • 邀请回答

3条回答 默认 最新

  • 舉杯邀明月 2016-08-09 12:47
    最佳回答

    第一步,把 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
    你可以修改一下,把要提示的内容经参数传入,可以显示不同的内容。
    要注意:信息标题、信息内容长度的限制。

    评论
    解决 无用
    打赏 举报
查看更多回答(2条)

相关推荐 更多相似问题