VB托盘程序详解

您现在的位置是：软件 > 开发者网络 > 程序方舟 > 开发专栏 > VB开发 > 正文

	T O P 排行
-	Java套接字编程（下）
-	MediaStudio Pro 6.5教程
-	三款卸载软件最新试用
-	基于Visual C++的Winsock API研究

网校热门

VB托盘程序详解

2001-10-24· ·--··yesky

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

　　　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，设置为“修改模式”

　　　

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

【责任编辑：方舟　】

【发表评论】【关闭窗口】


	■ 相关内容

	VB的子类处理应用两例　 VB中访问API函数之防错技巧　半透明窗体(win2000特有API) 　采用API实现的文件拖放　妙用GetSystemMetrics函数　 Fast Folders-另类的文件夹浏览方式

感谢访问天极网，如果您觉得该文章涉及版权问题，请看这里！