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

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

报告相同问题?

悬赏问题

  • ¥50 求大神教题,这个代码和讲解思路都怎么写呀,完全卡住了
  • ¥15 基于ffmpeg 编码成yuv420p nv12的问题
  • ¥15 python随机森林对两个excel表格读取,shap报错
  • ¥15 基于STM32心率血氧监测(OLED显示)相关代码运行成功后烧录成功OLED显示屏不显示的原因是什么
  • ¥100 X轴为分离变量(因子变量),如何控制X轴每个分类变量的长度。
  • ¥30 求给定范围的全体素数p的(p-2)/p的连乘积值
  • ¥15 VFP如何使用阿里TTS实现文字转语音?
  • ¥100 需要跳转番茄畅听app的adb命令
  • ¥50 寻找一位有逆向游戏盾sdk 应用程序经验的技术
  • ¥15 请问有用MZmine处理 “Waters SYNAPT G2-Si QTOF质谱仪在MSE模式下采集的非靶向数据” 的分析教程吗