【开源】【VB6】阿杰+系统托盘+气泡提示正式版【源码】

阿杰

<p><font face="Verdana">'********************************************************************<br/>'功能列表: 共四个命令:开启托盘、气泡提示、更换托盘图标、关闭托盘<br/>'<br/>'1.开启托盘(窗口,提示文本,托盘图标)<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1窗口&nbsp;&nbsp;&nbsp;&nbsp; ,不能为空,该参数表示窗口的名子<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2提示文本 ,可为空,为空时表示无任何提示。<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 3托盘图标 ,可为空,如果为空表示用窗口的图标作为托盘图标<br/>'<br/>'&nbsp; 例子:开启托盘(form1,"阿杰的托盘提示")<br/>'<br/>'2.气泡提示(气泡内容,气泡标题,提示图标类型,托盘图标)<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1气泡内容&nbsp;&nbsp;&nbsp;&nbsp; ,可为空,默认为:"系统托盘气泡提示文字"<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2气泡标题&nbsp;&nbsp;&nbsp;&nbsp; ,可为空,默认为:"气泡提示",该参数是气泡提示的标题<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 3提示图标类型 ,可为空,默认为:1=信息图标<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 4托盘图标&nbsp;&nbsp;&nbsp;&nbsp; ,可为空,默认为:窗口图标<br/>'<br/>'3.更换托盘图标(托盘图标)<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1托盘图标,为图标的句柄<br/>'<br/>'4.关闭托盘()</font></p>
<p>&nbsp;</p> DaPSo1Zv.rar (66.55 KB, 下载次数: 18744)

2009-1-30 17:42 上传

点击文件名下载附件
【开源】【VB6】阿杰+系统托盘+气泡提示正式版【源码】

<br/>

[此贴子已经被作者于2009-1-30 17:42:26编辑过]

everyone

<p>右键后,鼠标移开后,菜单并没有消失呢</p>

everyone

好家伙！

马大哈

右键后,鼠标移开后,菜单并没有消失呢
everyone 发表于 2009-4-17 00:02

    先要把自己某个句柄SetForegroundWindow一下再弹出菜单就行了.

xbhml

气泡这个东东要研究一下，谢谢

andyliang007008

这个不错

siuwai

除了感谢不知道说什么了