上一题下一题
跳转到
 
 
  世界如此多姿,发展如此迅速,窥一斑未必还能知全豹。但正如万花筒一样,每一个管窥都色彩斑斓。  
 
 
  知识通道 | 学习首页 | 教师首页 | PK首页 | 知识创造首页 | 企业首页 | 登录
 
本文对应知识领域
VB托盘程序详解
作者:未知 申领版权
2010年11月14日 共有 1039 次访问 【添加到收藏夹】 【我要附加题目
受欢迎度:

    
    很多软件运行时会在系统托盘区(就是桌面右下角显示时间的区域)出现一个小图标,它作为程序运行的一个标志,我们可以通过使用小图标所弹出的菜单来控制应用程序的状态。本例就给出了一个功能比较完整的托盘程序,我们可以看到怎样用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做定时断线程序
VisualBasic中的界面设计原则和编程技巧
VB6.0与Windows API 间的呼叫技巧
制作可以自动隐藏的弹出式菜单
ListBox中的字符串超长显示的解决方法
VB中的Unicode 和 Ansi 格式
优化程序显示速度
Visual Basic 产生渐层的 Form 背景
用VB实现客户——服务器(TCP/IP)
用VB制作注册软件的方法

题目筛选器
日期:
类型:
状态:
得分: <=
分类:
作者:
职业:
关键字:
搜索

 
 
 
  焦点事件
 
  知识体系
 
  职业列表
 
 
  最热文章
 
 
  最多引用文章
 
 
  最新文章
 
 
 
 
网站介绍 | 广告服务 | 招聘信息 | 保护隐私权 | 免责条款 | 法律顾问 | 意见反馈
版权所有 不得转载
沪ICP备 10203777 号 联系电话:021-54428255
  帮助提示    
《我的太学》是一种全新的应用,您在操作中遇到疑问或者问题,请拨打电话13564659895,15921448526。
《我的太学》