说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

把图标放在WIN95的系统托盘中-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
把图标放在WIN95的系统托盘中-VB资料



在系统托盘中的图标又被称作“提示图标”(NotifyIcon)。这个小小的图标不仅可以启动程序,还可用来显示程序运行的状态。

一个 hWnd被用来接收鼠标在提示图标上时所产生的事件所发出的消息。但如果用此方法,可能会触发其它控件的MouseMove 事件。在本例中,使用一个PictureBox来接收来自鼠标的消息。真正的事件被包含在MouseMove事件中的X参数中,然后通过代码来I 提取每一个事件。

同时你还必须指定要显示图标的句柄。使用PictureBox的DragIcon属性可以轻松地实现。

为了产生一个提示图标,你必须首先将图标的有关信息储存在一个自定义类型变量中。然后调用Shell_NotifyA。当创建了一个提示图标 后所有的鼠标事件将触发在PictureBox上的MouseMove事件。请注意在程序结束后删除提示图标。

首先在你的窗体上放置一个PictureBox。本例假设该控件名为Picture1。将其Visible属性设为False。将其DragIcon属性设定为你想要显示的To 图标文件。使用下面的代码在Form_Load事件中创建提示图标。在Form_Unload事件中删除提示图标。

把下面的代码放在一模块的声明段中。

DefInt A-Z

Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

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

' commands & flags for NotifyIcons
Global Const NIM_ADD = &H0&
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200
Global NI as NOTIFYICONDATA

创建提示图标

将下面的代码放在Form_Load事件中以产生一个提示图标。所有的鼠标事件都将会传递到PictureBox的MouseMove事件中。

' stock NOTIFYICONDATA structure
NI.cbSize = Len(NI) 'length of this structure
NI.hWnd =Picture1.hwnd 'control to receive messages
NI.uID = 0 ' uniqueID
NI.uFlags = NIF_MESSAGE or NIF_ICON or NIF_TIP ' Operation Flags
NI.uCallbackMessage = WM_MOUSEMOVE ' message to send to control
NI.hIcon = Picture1.DragIcon ' handle to Icon
NI.szTip = "My Tool Tip" + Chr$(0) ' Tool Tip

' 必须给提示图标分配一个唯一的ID号
' so increment until creation is successful

Do
NI.uID = NI.uID + 1
result = Shell_NotifyIconA(NIM_ADD, NI)
Loop While result = 0

修改提示图标Modifying NOTIFYICON

下面的例子可以修改图标

NI.hIcon = Picture2.DragIcon
NI.szTip = "Different Tool Tip" + Chr$(0)
' modifies an existing NotifyIcon
result = Shell_NotifyIconA(NIM_MODIFY, NI)

删除提示图标Deleting NOTIFYICON

将下面的代码放在Form_Unload事件中

' 删除已有的提示图标
result = Shell_NotifyIconA(NIM_DELETE, NI)

下面的代码放在 PictureBox的MouseMove事件中

' 从提示图标接收消息
' 消息通过X参数传递

Dim Msg as Long


Msg = (X And &HFF) * &H100
Select Case Msg

Case 0 ' 鼠标移动
' 在此输入你的代码

Case &HF00 ' 鼠标左键被按下
' 在此输入你的代码

Case &H1E00 '
' 在此输入你的代码

Case &H2D00 ' 双击鼠标左键
' 在此输入你的代码

Case &H3C00 ' 鼠标右键被按下
' 在此输入你的代码

Case &H4B00 ' 鼠标右键弹起
' 在此输入你的代码

Case &H5A00 ' 双击鼠标右键
' 在此输入你的代码

End Select

用Visual Basic创建FTP组件 用Visual Basic开发数据库浏览器 用Visual Basic轻松地设计Browser及Ftp程序 VB用Winsock控件发信Email VB用Winsock实现点对点通信 邮件检查程序(二) -VB资料 邮件检查程序(一) -VB资料 在VB程序中怎样挂断拨号网络 在VB中利用UDP协议编写聊天程序 在VB中模拟实现邮件传输 在VB中实现文件上传 在VB中使用UDP协议 在VB中用Outlook发电子邮件 在程序中打开 Internet 拨号连接窗口 -VB资料 在一个单位内部或通过广域协议(如X.25)互联的行业内部都有几十或上万台计算机互联,用Intrane 在应用中集成浏览器-VB资料 在桌面上建立一个 Internet 快捷键 -VB资料 VB怎样接收电子邮件(POP3协议简介) VB怎样用VB得知系统当前是否处于internet链结状态 VB制作自己的网络搜索软件 自动更新工作站的应用程序-VB资料 自己的IE——用VB制作浏览器 VB6制作Win98风格的工具栏 VB实现窗口的弹出式菜单 用VB做个漂亮的进度条 Cool 3D 浮動按鈕的模擬作法-VB资料 VB 5.0中实现鼠标拖放 VB5.0下工具条的制作 VB5.0中基于桌面的屏幕技巧 VB5.0中实现字体闪烁效果 VB5实现窗口图像缩放、滚动技巧 关于pos系统数据同步传输,欢迎大家进入讨论! 怎么得到本机的ip地址? 关于package 的问题 关于打开网页的问题 怎么在文本文件中的两行中添加一行?怎么删除一行? “split”分割问题 请教:怎么配置Tomcat可以禁止访问目录 ,比如访问 http://127.0.0.1/test 不会出现文件列表? 请问怎样在对话框窗口中的Edit控件里按下Enter键后不要退出 有关dremveaver ultradev 的动态网页制作问题, 请教高手。。 在delphi中如何实现全屏?? 100分。请大虾帮忙搞定 谁有存储过程的学习资料? 怎样判断计算机上有没有装madc数据库连接,? 项目中的一个问题,急待解决,请帮忙,谢谢 无聊散分 鼠标在图片上移动所发生的事件 一个怪问题:ping得通却NetTerm不上? JBuilder中如何拖动控件到面板,位置放置的问题。(高手指教) 请问在那里有csdn helper 下载 是否可以给表的字段编号? 我想让程序启动该怎么做 这样一个项目计划怎么写? vb.net 附值问题,请教高人 一次檢索出DataSet數據存至Session還是每次DataGrid翻頁時檢索為好? 一个程序不停的写一个文件,越来越大。怎样把以前的数据拷出来然后把他们从文件里删去? 会自动关机的电脑 怎样在listCTRL中加入彩色字?Waiting Online 请问到哪里去找w2k下编译需要的头文件和库文件呀 请问各位哪里有UNIX平台或LINUX平台的POWERBUILDER下载? 吐血给分!小问题,简单的很! 请教有关ServerSocket的问题 请问到哪里去找w2k下编译需要的头文件和库文件呀 想玩网络游戏,各位给推荐一下,谢了先!!! 请各位在这里留下已知的并已解决的BCB的BUG问题,也好让大家少走弯路了,谢谢! CMOS的问题,我是XP系统! 看看流星花园的搞笑版吧(转载) Word 和 Excel 启动不了 问几个菜鸟问题关于数组的。请大家帮忙! 关于用asp.net代码实现文件上传的问题!急! 新手提问:如何在vb中设计一个扁平的按钮。----在线等待~!~!! 这个查询可以在一条语句中完成吗?高分! 保存问题 关于浮点数累积误差的问题:水平直线旋转180度后两端点相差了1个像素。如何解决~高分谢高手。(内有代码) 一个在vb中使用数据库的问题,急! 请教VB怎样操作磁带机? SQL7.0表中记录打不开,提示如下: 怎么才能给Listview中的每一行都加一个图标,怎样引用Listview中每一行??? 关于文件的查找!! 急救!!关于数据导入问题!在线等待 weblogic如何保留jsp编译的中间源文件? 关于文件的查找!! 急求清史稿八十九列传刘统勋那段的翻译! 班级挑战书我们是一六班,要跟五班较量,哪位高人帮我想一想怎样写,最好写出来!还有替一五班再写一份,最好不要写重了!是成绩上的较量! 填动物的名称 哪位兄弟给个[清史稿 刘统勋传]的翻译 班级之间的挑战书怎么写我们九7班,他们九八班,应学校要求每个班都要找对手班级,不要太嚣张的,激情一点,然后,额,(里面有关于在学风,班风,纪律等等一系列的方面进行竞争的话——班头语 你知道《塞翁失马》这则寓言的寓意吗? 刘统勋在哪个电视剧中出现过 班级各小组的挑战书怎么写?急.哎.今天必须要完成那. 这则寓言告诉我们了什么道理.要简短,容易弄懂 仿句:我喜爱蓝色,蓝色是天空,我愿我的胸怀向天空一样宽广要自己写的、 急 如何写班级挑战书? 七年级《语文》160页的(塞翁失马)寓言的寓意 抬头仰望天空,它是那样的蓝,那样的惹我喜欢.在白云点缀的蓝天里让我不时的幻想,幻想那些可能和不可能发生的事. 班级挑战书怎么写学习上的啊.呵呵 类似《塞翁失马》的寓言故事有那些? 湖心亭看雪词语手册字词拜托 Brain Teasers:When do people have two mouths? 第36课 ________,因为他有尊严.补充完整 快不要书上的 湖心亭看雪的注释 填动物名称组词成语:()头()尾 ()首是檐 杀()骇() ()假()威 塞翁失马的寓意要简短 《湖心亭看雪》第一段翻译,赏析,重点字词及一切上课时需要的. when do pople have two mouths? 塞翁失马是什么寓意? 六年级400字中秋日记 请将下面问题各各填一种动物天空之王——大地之王——群山之王——大海之王——凤之王——雷之王——水之王——火之王——(不要重复,小说设定,以符合要求最多者给分,一个5财富)兄 塞翁失马的寓意是什么 湖心亭看雪的课下注释 湖心亭看雪翻译 注释 七年级下语文作业本答案全部,最好不要和答案一样...浙教版 不想回答的别过来损人 求一篇中秋节的日记,是要六年级水平的作文,500字以上, 甲乙两人分别在相距50km的两地同向而行,乙在甲的前面,甲每小时走16千米,乙每小时行18千米,如果乙先走一小时.问甲走出多少分钟后两人相距70千米? 七年级上册语文作业本答案求求各位大侠啦 找一篇关于【勇敢】这个话题的作文!600字以上.. ( )口余生 在中间填上什么动物名称! 一物体做匀加速直线运动,初速度为0.5m/s,加速度为0.1m/s,则该物体在4s内的位移和平均速度分别是多少? 宇宙是扩张的还是收缩? 填什么动物名称啊? 一物体做匀速直线运动,初速度为0.5m/s,加速度为0.1m/s^2,则该物体在第4秒内的位移和平均速度各是多少答案上是0.85m的0.85m/s^2 我要《湖心亭看雪》这一文的解释! 《湖心亭看雪》中的 强饮三大白 强字究竟是 痛饮 还是勉强我们老师说的是勉强,可百度百科以及其他大部分都说痛饮,惟少数说是勉强,而且解释的还不一样, 四字寓言故事有哪些? 我喜欢蓝色的天空,我喜欢打篮球,我喜欢交朋友.我喜欢看书. 湖心亭看雪 全文赏析 600字 读后感;钢铁是怎样炼成的,600字,快,十分钟之内,像六年级孩子写的 六年级中秋节日记,500字以上,带好词好句最好不要写错 速度越快越好 当然一定要500字以上 标点符号不算 《湖心亭看雪》中的“独”字如何解释为好?是独自还是孤独? 《塞翁失马》的意思 《海燕》中 海燕的形象表现 形象特点 象征意义《海燕》中 海燕的形象表现 形象特点 象征意义 要 表现→形象→象征 的答题形式 一共要5个 急 《塞翁失马》中“其父”的意思 塞翁失马的意思是什么 《湖心亭看雪》中的“强饮”应如何解释? 英语翻译我要准确的 一字一字的对译 呵呵我要的是塞翁失马这篇课文的翻译 不是塞翁失马这个成语的翻译 七年级上册语文作业本答案,急!答案别老师收走了 求 我的大学生活英文作文 水平不用太高 带汉语翻译的谢谢 塞翁失马的意义结合自己的生活体验,“举例”!谈谈你对塞翁失马寓意的理解 物体以5m/s的初速度做匀变速直线运动 第3s内的位移是2.5m 物体的加速度是 求解释和过程 信改变了我的生活 那篇作文的中文翻译、不要英语原文、谢谢 《塞翁失马》寓意 塞翁失马的含义快
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘