【叶帆开源区】定制的托盘图标提示

博客专家认证

业界专家认证

2004-10-14 10:11:25

友好、并且可以定制的托盘图标提示源码。
欢迎大家提出不同见解！

【程序界面】--------------------------------
http://www.bjjr.com.cn/yefan/pic/NotifyIcon.jpg

【源码下载】--------------------------------
http://blog.csdn.net/yefanqiu/
【叶帆源码】－>托盘图标提示

【源码介绍】--------------------------------
http://blog.csdn.net/yefanqiu/archive/2004/10/14/135813.aspx?Pending=true

【部分源码摘要】--------------------------------

'*************************************************************************
'**模块名：frmTest
'**说明：YFsoft 版权所有2004 - 2005(C)
'**创建人：叶帆
'**日期：2004-10-14 09:08:28
'**修改人：
'**日期：
'**描述：托盘气球提示
'**版本：V1.0.0
'*************************************************************************
Option Explicit

'*************************************************************************
'**函数名：cmdDel_Click
'**输入：无
'**输出：无
'**功能描述：删除图标
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-10-14 09:34:58
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub cmdDel_Click()
DelNotifyIcon Me
End Sub

'*************************************************************************
'**函数名：cmdShow_Click
'**输入：无
'**输出：无
'**功能描述：显示提示
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-10-14 09:34:44
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub cmdShow_Click()
ShowNotifyIcon Me, txtTitle, txtInfo, cmbType.ListIndex
End Sub

'*************************************************************************
'**函数名：Form_Load
'**输入：无
'**输出：无
'**功能描述：
'**全局变量：
'**调用模块：初始化
'**作者：叶帆
'**日期：2004-10-14 09:08:57
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub Form_Load()
cmbType.ListIndex = 1 '信息图标
cmdShow_Click '显示信息
End Sub
'*************************************************************************
'**函数名：Form_Unload
'**输入：Cancel(Integer) -
'**输出：无
'**功能描述：结束
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2004-10-14 09:35:32
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
Private Sub Form_Unload(Cancel As Integer)

'删除图标
cmdDel_Click

' 卸载所有窗体
Dim frm As Form
For Each frm In Forms
Unload frm
Next
End Sub
【叶帆开源区】其它链接
XP界面窗体制作（可放缩、可缩小到托盘）
http://community.csdn.net/Expert/topic/3387/3387552.xml?temp=.416424
有意思的老人源码
http://community.csdn.net/Expert/topic/3376/3376547.xml?temp=.1939661
VB源码之友
http://community.csdn.net/Expert/topic/3365/3365079.xml?temp=7.926577E-02
定制公用对话框（如photoshop的文件打开对话框）
http://community.csdn.net/Expert/topic/3385/3385386.xml?temp=.2206842
绝对经典的扫雷源码(仿微软扫雷界面）－－可以作弊呢！！！
http://community.csdn.net/Expert/topic/3380/3380429.xml?temp=.3048517
MSComm串口通信示例
http://community.csdn.net/Expert/topic/3387/3387736.xml?temp=.2366754
任意透明窗体－－运用API实现特异窗体
http://community.csdn.net/Expert/topic/3389/3389796.xml?temp=.8869898

...全文