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

叶帆 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




...全文
687 点赞 收藏 26
写回复
26 条回复
Gutta 2005年03月29日
不过他的东西都封装了,想看怎么写控件的内容看不见,晕哦~~~

虽然可以用,但是感觉好象 ...

不好意思,我只是说我想的,别见怪哦!
回复 点赞
junki 2005年02月19日
我有个同学也叫叶帆,不过他是学化学的
回复 点赞
shiyunlong 2005年01月21日
mark
回复 点赞
zxsoft 2005年01月21日
太好啦!下载看看能不能用!
回复 点赞
joa 2004年12月28日
up
回复 点赞
33184777 2004年12月28日
支持、支持、支持
回复 点赞
无言的苦衷 2004年12月28日
支持叶帆的“共享”精神。
回复 点赞
hr88rong 2004年12月28日
不错呀,学习!!
回复 点赞
smx717616 2004年12月26日
mark
回复 点赞
aohan 2004年12月22日
支持中
回复 点赞
RUKYO 2004年12月22日
支持、支持、支持~
回复 点赞
thisme2401 2004年12月21日
up
回复 点赞
acev 2004年12月21日
支持!呵呵,我也想跟楼主混哪~~
回复 点赞
True1024 2004年12月21日
支持楼主,前些天给楼主发了封简历,打算跟楼主混,
楼主竟然回了,让我兴奋不已,可惜近来十分的忙,
一直没给楼主回封详细的简历。看来我还得在现在的
公司磨练一段时间后才有资格跟楼主混。
忘见谅。
回复 点赞
pikachu8guan 2004年12月21日
谢谢楼主 以后应该用更多像楼主那样 把自己的好东西拿来开源
回复 点赞
BladeMaster_Lee 2004年12月21日
你们混哪里的?几袋了?
不过叶帆的都是好东东,顶!
偶的东西上不了台面,唉......
回复 点赞
liulu07 2004年12月20日
up
回复 点赞
无言的苦衷 2004年11月20日

楼主是好人,大家帮忙宣传楼主。
回复 点赞
dongge2000 2004年10月26日
Ding,楼主好像没分了???让大家给你一些,开源时放出,也算加社区的GDP吧!
回复 点赞
pandengzhe 2004年10月26日
支持!
回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2748

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告