在托盘上显示Balloon Tooltip

原创 2002年07月22日 10:23:00

 

运行这个示例的前提是系统需要Windows 2000 or XP (Shell version 5 or better)
大家可能对托盘程序很熟悉了,这里我也不再多讲,这段小代码只是说明一下托盘的新特性:显示Balloon Tooltip。至于什么是Balloon Tooltip,只要把一下代码贴到VB中就会看到新鲜效果,再次提醒注意运行环境!

1.建立标准EXE工程,为Form1换一个PP的Icon,加入一个模块,改名为SysTray
SysTray.bas代码:

Option Explicit
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
     "Shell_NotifyIconA" (ByVal dwMessage As Long, _
     lpData As NOTIFYICONDATA) As Long

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
    uTimeoutOrVersion As Long   '由于VB中没有Union类型,只能用Long型代替
    szInfoTitle As String * 64
    dwInfoFlags As Long
End Type
 
Public Const NOTIFYICON_VERSION = 3
Public Const NOTIFYICON_OLDVERSION = 0

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2

Public Const NIM_SETFOCUS = &H3
Public Const NIM_SETVERSION = &H4
 
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

Public Const NIF_STATE = &H8
Public Const NIF_INFO = &H10
 
Public Const NIS_HIDDEN = &H1
Public Const NIS_SHAREDICON = &H2
 

Public Const NIIF_NONE = &H0
Public Const NIIF_WARNING = &H2
Public Const NIIF_ERROR = &H3
Public Const NIIF_INFO = &H1

Public nfIconData As NOTIFYICONDATA

2.Form1的代码:
Option Explicit

Private Sub Form_Load()
    With nfIconData
        .cbSize = Len(nfIconData)
        .hwnd = Me.hwnd
        .uId = vbNull
        .uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .hIcon = Me.Icon
        .szTip = "你的小消息可以放在此..." & vbNullChar
        .dwState = 0
        .dwStateMask = 0
        .szInfo = "这是一个Balloon Style Tool-tip!又一个小技巧可以应用了       " & Chr(13) & ":)" & vbNullChar
        .uTimeoutOrVersion = 15000
        .szInfoTitle = "哈哈,看到了么" & vbNullChar
        .dwInfoFlags = NIIF_INFO
    End With

     Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub


Private Sub Form_Unload(Cancel As Integer)
     Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
     End
End Sub

本程序代码使用Vb6 + Win2000调试通过

javafX8初探(提示)

本节我们学习提示信息,这个空间可以在任何UI控件上使用,当鼠标移动到UI上时就会出现提示框。 ToolTip类代表了公共的UI,它一般被用来表现UI控件的一些附加信息。提示信息可以通过调用setTo...
  • maosijunzi
  • maosijunzi
  • 2015年02月11日 10:51
  • 2976

C#中,当鼠标移动到控件上,动态显示提示内容 -> 用代码操作ToolTip

【背景】 写了个C#的小程序,其中在Settings窗体中有些配置参数,希望在鼠标移动到对应的配置选项上,动态显示相关的说明解释内容。 【解决过程】 1.原先就已经知道,有些控件,是带ToolT...
  • u010078133
  • u010078133
  • 2015年02月02日 10:59
  • 1127

bootstrap tooltip被挡住一部分,该如何正常显示

使用bootstrap 的tooltip显示验证信息的时候,如果是在一个弹出窗进行验证,可能会出现下面的尴尬... 圈圈里面的tooltip被挡住了一部分,该怎么办? 原因就是因为这个to...
  • aphy358
  • aphy358
  • 2015年12月23日 15:59
  • 3820

chart游标跟随并悬停显示ToolTip

  • 2014年07月30日 17:40
  • 42KB
  • 下载

带有图像的ToolTip显示功能

  • 2011年07月31日 09:50
  • 108KB
  • 下载

能够实现多行显示tooltip的类

  • 2006年02月23日 09:05
  • 11KB
  • 下载

Echarts中tooltip超出外层div显示不全问题

1、问题:提示框是根据鼠标位置实时变化的,但是当echarts图标高度较小,数据较多时,就会产生提示框显示不全的问题,如下图: 2、分析: 要想提示框不超出当前外层div,不考虑x轴显示位置的情况下...
  • wlangmood
  • wlangmood
  • 2017年07月12日 11:21
  • 2325

Qt5制作鼠标悬停显示Hint的ToolTip

在日常生活中的使用的软件中,我们经常会遇到这样的情况。 我们在网页上,有些网页链接的文字(比如文章标题,知乎问题标题,百度的词条等)因为太长了,而显示不出来,但是鼠标悬停在上面的时候就可以显示出来。...
  • u013007900
  • u013007900
  • 2015年12月08日 21:45
  • 4945

C# ComboBox下拉表单显示提示内容ToolTip

转自:http://blog.5d.cn/user2/skyline-moon/200901/511240.html   近日由于自已一个小程序的需要,要求在ComboBox下拉项目(每个ite...
  • yanjiee
  • yanjiee
  • 2012年12月07日 09:34
  • 6652

slider控件移动滑块,动态的显示tooltip方法!

网页对这个的介绍也不少,但是都是转载。。都不能成功实现要求!! 本人亲自实验。。特发代码。。   第一种方法。 .h  文件 CSliderCtrl m_Slider; CToolTipCtrl m_...
  • ccx_john
  • ccx_john
  • 2013年11月02日 08:28
  • 832
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在托盘上显示Balloon Tooltip
举报原因:
原因补充:

(最多只允许输入30个字)