buaazk
buaazk
采纳率100%
2016-08-04 03:14

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

3
已采纳

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

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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

3条回答

  • Chen8013 舉杯邀明月 5年前

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

    点赞 1 评论 复制链接分享
  • caozhy 从今以后生命中的每一秒都属于我爱的人 5年前

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

    点赞 评论 复制链接分享
  • feng1790291543 鱼弦 5年前

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

    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 挺像的

    点赞 评论 复制链接分享

相关推荐