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

把图标放在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

iPhone销量令人意外:苹果Q3财季净利69亿美元 同比下滑 励志:12位早起的IT大佬们让小伙伴们都惊呆了 独家:苹果5周年限免神作,BADLAND开发者访谈 10亿次订阅!苹果Podcast的里程碑 免费利器Unity 4.2正式发布 支持WP8、Win8和BB10 SDCC 2013:Pinterest首位中国籍工程师两场演讲议题确定 甲骨文公布中国首届“Duke选择奖”名单 Moco、X幻想、开源中国获奖 直接拿来用,10个PHP代码片段 编程的未来 数据将成为主角 OpenCL 2.0发布,带来更强悍的异构计算能力 代码审查方式大调查 辅助工具居首(信息图) 一网打尽当下NoSQL类型、适用场景及使用公司 初创公司Treasure Data:每天处理7000亿行数据的20万次查询 豌豆荚王俊煜:将推支付SDK 与开发者3:7分成 英特尔-百度移动应用测试中心(MTC)正式启动 Intel将在2014年为数据中心用户定制低功耗SoC芯片 情绪低落?没事,让计算机来帮你! 水果生意难做 前新浪架构师徐佳转行试水挖煤 思考软件开发中的快与慢 Apache CouchDB注入新鲜血液,整合分布式技术 CSS Shapes:Web设计人员的新工具 Android 4.3正式发布:四大新功能一览 史玉柱的创业经验谈 3G门户和GO桌面:海外推广的生意经 系统级编程语言性能大PK D语言成首选 解读Facebook第二季度财报 移动业务风生水起 如何避免失败,像Google一样玩转大数据 首届游戏运营技术论坛隆重开幕,共论大数据时代的游戏运营之道 OpenStack Swift遇到了Erasure Code 微软Win7 IE11开发者预览版发布 开始改进开发工具讨好开发者 个性化推荐服务商百分点宣布B轮融资1000万美金 MYSQL如何实现自动删除数据库中的记录 紧急提问:CB中那些类用.操作符 请问一个概念的问题:??????????????????????? 如何生成报表文件啊? 装了oracle8i以后怎么登陆不了? 如何按照记录号转到指定的记录?不用SQL 用过magicskin的请进。 无法于数据库建立信任连接的问题_高分有送! 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? 手机掉到马桶里你会怎么办? 各位前辈帮忙看一下这个语句怎么解决(这是一个关于SQL语句的问题) 请教 java 命令的用法 用session跟踪用户的问题。 Xml中查找最大值! 请PHP高手推荐几本高阶的PHP书籍 偶这个星期到深圳去,不知道在深圳有那些途径可以找到工作的? Unicode问题 str:=#0+'9'+#0+'5'+#0+'8'+'~'+#207+'m'+'N' 在线等待。。 定位文件指针? 如何用ADO动态建SQL数据库 哪有 《Visual C++ 实践与提高——COM和COM+篇》下载 iis 为啥总出现 "the special module not found" 学习powerbuilder8.0 看哪些书比较好? 200相送,问题简单 一个使用用户空间控制流程的问题,望各位帮忙解答,小弟感谢不尽,在线等待 iis 为啥总出现 "the special module not found"(补充) 菜鸟问题---applet中的Runable方法, 紧急求助 装机:双敏的UKT400N主板性能怎么样?有啥缺点?适合超频吗? 请问vc编制数据库问题:如何读写binary字段 Chinajiji,看过来!多谢惠寄ISO/IEC 14882 请教各位高手用replace函数替换字符串时如何将颜色也变掉 SQL7.0备份的数据库如何在SQL2K中恢复? 如何改变编译出来的.exe文件的名称 谁有这样的矢量图设计系统例程可以参考参考? 谁有AVL树的代码呀。大家来讨论AVL树呀。呵呵 Maya 新手 哪位大侠能提供矢量图设计的例程! 请高人指点这个题目该怎么解决? 打包打包~~~~~什么是打包?? 多文件上传,一个很奇怪的现象! revalidate();怎样用? 怎樣得到系統的所有根目錄(如 C:,D:,E:),及根目錄下的所有子目錄. 求将excel文件导入notes数据库的方法(最好有例子),分不够可以再给! 小弟欲购编程器,各位大侠给点意见,大分相送,绝不亏待! 100分求教 如何访问远程数据库???? 怎么样才能取消上网自动填入密码 有没有了解“串口-TCPIP通信”的高手,请介绍一下 怎么把Socket设置为非阻塞状态的 关于窗口间刷新的问题 AT89C51属不属于MCS-51系列? 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样谢 susan打算去西安旅游用英语怎么说 苟非吾之所有,虽一毫而莫取 三角形+三角形+三角形—圆形—圆形=75 圆形+圆形+圆形—三角形—三角形=5 三角形=?圆形=? 旋光度与什么有关 把树木的年轮看成是圆形的,如果一棵20年树龄的红衫树的树干直径是23cm,这颗红衫树的半径平均每年增加多少? 在Rt△ABC中,∠C=90°,AC=5,BC=12,○O的半径为3(1)当圆心O与点C重合时,○O与AB的位置关系怎么样拜 Betty的英语比Susan好用英语怎么说 如果一棵20年树龄的红杉树的树干直径是23cm,这棵红杉树的半径平均每年增加多少?说明理由 已知三角形与圆形的重合部分占三角形面积的5分之1,占圆面积的9分之2求三角形与圆的面积比.热求 快 为什么会有旋光度?书上只说是由于分子的构型不同,但是为什么构型不同会有左旋和右旋之分?为什么自然界中的只有右旋的葡萄糖和左旋的氨基酸?这是由什么决定的?莫非只有有神论才能解 回忆自己的读书感受,联系具体实例,说说自己从书籍中感受到哪些人类灵魂中的美丽 My parents are b____English teachers 希望susan去了西安后给我们带来照片用英语怎么说 在求节水文章开头,不要写的太深也不要太浮浅, 翻译 地震使整个城市成为一片废墟.(用in ruin) Susan经常跟经理一起去开会并做记录用英语怎么说 “且夫天地之间,物各有主,苟非吾之所有,虽一毫而莫取, 英语翻译十万火急!一小时内... 比旋光度公式 怎样在word里面写公式用WORD写得 小学一年级88页节约用水的作文怎么写 辛亥革命征文比赛 800字 请你为新华小学2009年入学的新生编学号.这个编号要反映出学校校名、入学年份、班级和该省的性别及在班里的序号.2009年新入学的学生共84人,编为3个班.每班28名学生.一班有男生15人,女生13 抗旱节水作文 500字 “几乎一片废墟”用英语怎么说? 写设计封面的时候是先写学号名字,还是先学年级班级?- -已经写好题目了~ 求初二升旗手自我介绍(第一人称)200字本人无特长,无职务,无爱好,不乐观,不爱读书学习,成绩中等闲人免答,跪谢! 玉树地震发生后,许多人被困在废墟下面.翻译成英语怎么说. 设x1,x2是方程x的二次方+6x+5=0的两个根,则x1,x2的等比中项为多少 苏轼:苟非吾之所有,虽一毫而莫取 说明了什么哲理吗? 自己丰富才能感知世界的丰富,自己善良才能感知世界的美好,自己坦荡才能逍遥地生活 解释画横线词语意思 除了石英砂以外 还有什么矿物可以用于铸造呢? 英语翻译谢谢聪明的人帮我翻译下,不要啰嗦的, 一些学校使用的学生卡能反映出很多信息,如2005 01 23表示“2005年入学的1班的学号为23号的同学”.你认为学生卡还可以怎样设计?你能设计一张含有更多信息的学生卡吗? when is your parents birthday?这里is 为啥不变are 【歪批译吧】自己丰富才能感知世界的丰富英文 请你为自己编个学号,该学号必须体现学校、年级、班级、座号等信息.我是福建省三明市梅列区列西小学的,第28号 写辛亥革命的作文,有哪些 哪个洲的国家最多,哪个洲国家最少,哪个州没有国家 通过函数提取将学号转变为班级学号的3、4位代表班级,01代表1班,02代表2班,03代表3班,怎么用函数来提取并转换成文字呢? 图①,在△ABC和△ADE中AB=AC,AD=AE,LBAC=LDAE,且点B,A,D在一条直线,连接BE,CD,M,N分别为BE,CD中点.(1)求证BE=CD(2)求证△AMN是等腰三角形(3)在图①基础上将△ADE绕点A顺时针转,使点D落在线段AB上其 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件,恰好有1件是次品的抽法有多少种?要求有过程.快! 林老师骑自行车从甲地到乙地,第一小时行了全程的3分之1,第二小时行了全程4分之1这时离哋还有20km甲、乙两地相距多少千米? 在三角形ABC和ADE中,AB=AC,AD=AE,LBAC=LDAE=a,求:LAOE=? 在100件产品中,有98件合格品,2件次品,从这100件产品中任意抽取3件恰好有1件是次品的抽法有多少种 8、某班48位同学参加一次跳绳测验,在规定时间里,最多的跳了175次,最少的跳了160次.那么,在该班中至少 多么质朴无华的车骑!可是它却装载了人类灵魂中全部的美丽! 东周的都城是? 在“情系玉树”的捐款活动中,五年级同学平均每位捐款12.5元,五年级有5个班,每班有48位同学. 东周君主实际控制的土地在哪里? 初三几何圆与三角形AD是ΔABC的角平分线,以D为圆心,AD为半径作⊙D交AB于E,交AC于F,AD=AE=2,BE=1,求AC的长 “大街小巷有大量的垃圾,严重破坏了城市的美貌”用英语怎么说? 多么质朴无华的车骑!可是他却装载了人类灵魂中全部的美丽!的意思! 问三角形是多少,圆形是多少 英语翻译有一个城市发生了地震 这句话用英语怎么说?最好用上happen 文言文中“苟非吾之所有”中的“之”是什么意思 三角形的个数是圆形的4分之5三角行有多少个? 地震切断了这个城市与外界的联系用英语怎么表达? 为什么说书是人类进步的阶梯? 加拿大女子相亲网站“钓男人”吃免费餐以色列批准新建1500套定居点住房遭美国50州首富名单出笼 盖茨巴菲特仍澳洲男子将宠物店名犬藏入裤裆内带走接日本研究发现治疗糖尿病和代谢综合症物埃及穆兄会下属组织拟在穆尔西受审当天日本学生12万粒杏仁膏立体再现法国印调查指澳洲侨民向往亚洲 首选泰国、中澳大利亚捐精人数下降 从海外进口满足全球首辆太阳能家用车亮相 未来或大量澳大利亚警方追捕偷车贼 路过少年被无调查报告称澳移民目的地开始从欧美转向泰国国会再开赦免法案审议 政治博弈错加拿大女子相亲网站“钓男人”吃免费餐日本内阁法制局长官:日本变更宪法解释马尔代夫新总统难产 官方不满联合国指背景资料:俄乌天然气之争的背后澳接连发生披萨店枪击案 或与获奖披萨澳大利亚警方追捕偷车贼 路过少年被无日本研究发现治疗糖尿病和代谢综合症物美学生供认曾入侵多人电脑 包括“妙龄谁说只有英国王室才会玩优雅 超萌日本郭士强:队员精力不集中导致落后杜锋:拿下这场比赛非常不容易亚洲最大地下火车站——广深港高铁福田西安重污染天气应急响应启动迟缓 被环“糟糠之妻”走向股市 结果……可口可乐“勾结”科学家 想告诉你它跟修理工在美国到底能赚多少钱? 学历不一首小朋友写的诗 成人都被撩拨疯了揭秘“绝对安全”的投资平台背后的“内CBA24轮本土最佳:轰44分创新高浙江高速年偷逃通行费数亿 警方侦破数温哥华4.8级地震暂无人员伤亡报告他是歌神又是影帝,老婆败家外婆捡垃圾VOL.1198「7夜灵异馆」床下的VOL.1199「晚安音乐」让VOL.1197「睡前故事」一晚一个【高清组图】CBA新疆队主场122:18批次不合格药品登上安徽食药监新“首票自贸货物通关 福建与澳大利亚贸易京津冀人力资源服务从业资质实现互认互
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘