VB托盘程序详解

生活 CN-P5 1542℃ 0评论

很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标,它作为程序运行的一个标志,我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序,我们可以看到怎样用API函数Shell_NotifyIcon来添加、删除、更改托盘图标;而且例中还演示了为托盘图标添加右键菜单和浮动提示的方法。

  程序(附后)用到了Shell_NotifyIcon、SendMessage、CallWindowProc、SetWindowLong等API函数,其中Shell_NotifyIcon是主要的函数,它用来添加、删除、更改系统托盘区(taskbar status area)的图标,所以我们先来看看这个函数的声明和参数:

  使用API函数之前必须先在程序中声明如下:

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

  
  其中各参数的意义如下表:

参数: 意义
dwMessage 为消息设置值,它可以是以下的几个常数值:0、1、2
NIM_ADD = 0  加入图标到系统状态栏中
NIM_MODIFY = 1   修改系统状态栏中的图标
NIM_DELETE = 2   删除系统状态栏中的图标

  LpData 用以传入NOTIFYICONDATA数据结构变量,其结构如下所示:

Type NOTIFYICONDATA

  cbSize As Long        需填入NOTIFYICONDATA数据结构的长度
  HWnd As Long         设置成窗口的句柄
  Uid As Long         为图标所设置的ID值
  UFlags As Long        设置uCallbackMessage,hIcon,szTip是否有效
  UCallbackMessage As Long   消息编号
  HIcon As Long         显示在状态栏上的图标
  SzTip As String * 64     提示信息
End Type

  返回值 Long,非零表示成功,零表示失败

  在使用这个API函数之前我们应该先定义结构类型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 * 64
   End Type  

  然后定义一个NOTIFYICONDATA的变量TheData来记录设置托盘图标的数据

Private TheData As NOTIFYICONDATA

  这时我们就可以使用这个函数来设置系统托盘图标了,具体方法如下:

   1、添加图标

With TheData
    .Uid = 0
    .HWnd = frm.HWnd       ’frm.HWnd是程序主窗体的句柄
    .cbSize = Len(TheData)
    .HIcon = frm.Icon.Handle  ’frm.Icon.Handle指向主窗体的图标
    .UFlags = NIF_ICON
    .UCallbackMessage = TRAY_CALLBACK
     ‘作用是允许返回消息,在下一节中会有详细解释。
    .UFlags = .UFlags Or NIF_MESSAGE
    .cbSize = Len(TheData)
   End With
   Shell_NotifyIcon NIM_ADD, TheData  
  ’根据前面定义NIM_ADD,设置为“添加模式”,然后添加
   

   2、删去图标

With TheData
    .UFlags = 0
End With
Shell_NotifyIcon NIM_DELETE, TheData  
‘根据前面定义NIM_DELETE,设置为“删除模式”
   
   3、更改图标

With TheData
  .HIcon = pic.Handle    
  ’pic是图片狂PictureBox,存放图标文件
  .UFlags = NIF_ICON
End With
Shell_NotifyIcon NIM_MODIFY, TheData 
‘根据前面定义NIM_MODIFY,设置为“更改模式”
   
   4、为图标添加浮动提示信息

With TheData
    .SzTip = tip & vbNullChar 
      ‘tip是字符串string,存储提示信息
    .UFlags = NIF_TIP   
    ’指明要对浮动提示进行设置
End With
Shell_NotifyIcon NIM_MODIFY, TheData 
‘根据前面定义NIM_MODIFY,设置为“修改模式”  
   

  通过以上几段代码我们就能根据自己需要添加、删除、更改系统托盘图标,并能添加系统图标上的浮动提示信息。但这时的托盘图标是孤立的,我们并不能利用它来控制应用程序的行为,怎么办呢?别急,请往下看……

     以上我们就取得并处理了来自托盘图标的消息,现在的问题是在鼠标右键菜单弹出后,怎么控制程序主窗体的状态,这时我们需要用到SendMessage函数来向主窗体发送最大化、最小化、关闭、移动等消息,具体的代码实现如下,其中HWnd是主窗体的句柄,WM_SYSCOMMAND表示发送的是系统控制类的消息,SC_MOVE、SC_SIZE、SC_RESTORE便是要发送的消息了:

   ’托盘图标右键菜单上的“移动”项被点击时
   Private Sub mnuTrayMove_Click()
     SendMessage HWnd, WM_SYSCOMMAND, SC_MOVE, 0&
   End Sub
   ’托盘图标右键菜单上的“恢复”项被点击时
   Private Sub mnuTrayRestore_Click()
     SendMessage HWnd, WM_SYSCOMMAND, SC_RESTORE, 0&
   End Sub
   ’托盘图标右键菜单上的“退出”项被点击时
   Private Sub mnuTraySize_Click()
     SendMessage HWnd, WM_SYSCOMMAND, SC_SIZE, 0&
   End Sub  

  最后要提醒你,在程序退出时一定要把窗口过程的地址恢复为默认值,同时把托盘图标移去哦。

转载请注明:黑白的自留地 » VB托盘程序详解

喜欢 (0)
发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址