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

在线等,谁能修改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条)

报告相同问题?

悬赏问题

  • ¥15 数学的三元一次方程求解
  • ¥20 iqoo11 如何下载安装工程模式
  • ¥15 本题的答案是不是有问题
  • ¥15 关于#r语言#的问题:(svydesign)为什么在一个大的数据集中抽取了一个小数据集
  • ¥15 C++使用Gunplot
  • ¥15 这个电路是如何实现路灯控制器的,原理是什么,怎么求解灯亮起后熄灭的时间如图?
  • ¥15 matlab数字图像处理频率域滤波
  • ¥15 在abaqus做了二维正交切削模型,给刀具添加了超声振动条件后输出切削力为什么比普通切削增大这么多
  • ¥15 ELGamal和paillier计算效率谁快?
  • ¥15 蓝桥杯单片机第十三届第一场,整点继电器吸合,5s后断开出现了问题