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

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

量产谈判正在进行时:谷歌手表或比Google Glass先上市 Mozilla发布新版Firefox 25 提供支持Web Audio API UC产品总裁何小鹏:轻应用,做什么?怎么做? 高德携手阿里云发布“LBS云”,账户打通只是第一步 最后2天!2013移动开发者大会5折抢票倒计时 大数据如何改变在线广告业? 摩托罗拉推开源硬件平台计划Project Ara 七个垂手可得的敏捷开发工具 微信新版公众平台调整细节381处 300/次认证费引争议 libgit2:纯C语言实现的Git开发包 MongoDB的得与失 开箱即用!Android四款系统架构工具 谁说Kinect只是玩物?微软研究院使用它实现口语手语实时翻译 新浪微博推出粉丝服务平台 引发两微PK大战 MDCC2013移动开发者大会最新日程发布 门票优惠最后1天 英特尔CEO:EUV光刻技术或助力芯片突破摩尔定律 从微软大数据日看到的,银行、交通、医疗实践之路 IDC:iPad市场份额遭Android平板蚕食 滑至29.6% [TUP第30期]直击移动应用开发难点 探讨跨平台最佳解决方案 用动态语言编写程序,命名更重要 命中率80%,磁盘I/O减半,Flashcache的发展史 这次它很低调:谷歌正式发布Android4.4和Nexus 5 iPhone 5S来了,iPhone 6还会远吗?概念机来袭 [开源推荐]PhysicsJS:基于JavaScript的强大的物理引擎 望虚窥实!专访Oculus Rift创始人Palmer Luckey 利益至上,开源也不免于此 开发者必备,超实用的PHP代码片段! 福利来了!AngularJS资源大集锦 移动周报:“360儿童卫士”手环的是与非 Ion Stoica和他的数据故事(上) 开发者必备:测试网站速度的五个免费在线工具 简单问题,怎样得到ListView一单元格中的内容,如用GetItemText请问里面的参数怎样添? 全新安装的redhat 7.2为什么启动kde后不能打开Konqueroer浏览器和主目录 研究生在毕业时真的比本科生有优势吗? 请教:谁知道自动控制原理根轨迹乃试图。。,的算法? 我的AOUTOCAD总装不上??? 爱恋是什么东西?是好人就来看!!! 新闻组(NNTP)怎么用? 为何我用 Delphi写的 MDI Child Window关闭后无法打开? 为什么这样画不行呢? 语句char a='\72'则变量a包含几个字符 急,不难的问题(有代码) 问一个幼稚的问题,delphi6.0分为那几个版本,你们都用的哪一个。 呵呵,下网了,今天捞了150多的专家分,太少了~~,明天在我星期5发布的帖子里给大家分,每个人大概都有10分左右吧~~ 请问各位,现在什么版本的LIUX比较好,你们一般用那种? 快毕业了才心动!怎么办? 为什么我的可用分越来越少,参与分加得少,怎么回事啊 快毕业了才心动,怎么办? 有什么办法可以加快ACCESS的速度 快毕业了才心动~怎么办? 请问设a=3,b=4,c=5,则表达式!(a+b)+c-1&&b+c/2的值是多少? 我下载了tinyDB 2.8,需要注册怎么办? 高价寻求软件开发(5000.00元报酬) 网页填写提交表单时经常出现停顿,怎么回事? 111高价寻求软件开发(5000.00元报酬) 各位大虾,深圳那儿买书可以打折? putao请进 双服务器的网络连接问题,请进来看看。 pb7的exe连接sql server2000真难呀,我都弄了两周了!!!!!!!!!!还没解决!!!!??? 怎样响应鼠标在对话框上画图啊? 怎样访问局域网内的机器? asp+sql的查询! 有关MIDAS的问题,请看http://www.csdn.net/expert/topic/374/374719.shtm 紧急!!如何使用ADO创建数据库及表(zwjmouse) 哪位大侠能提供一个c语言写的俄罗斯方块的有注释的源程序(高分) 一段可以冒充QQ上线,下线的源代码,支持最新版0710B 有关于Delphi开发局域网数据库系统的书籍或者资料吗? 请问由mscomm发出的数据是什么格式,单片机怎么识别?》》》 求教??? 请问是否有快速建立二叉树的方法 请教确认提交页面部题 Cannot open "Javac.exe"--菜鸟问题 请问怎么样实现Date的加减呢?? 怎样得到下一天的日期 前段时间出差,最近有忙着考研,没时间上网,散分 确认页面问题。 AfxMessageBox话框标题问题 不是我重复,只是这个问题让我发疯,旦求解决这个问题,死而无怨 smtp认证发信的源代码 在DLL中如何知道自己父进程(ParentProcess)的路径和文件名? cview里的precreatewindow和cframewnd的precreatewindow应该调用那个? 如何在dw4中给已做好的FLASH动画加上超链接? 在包装上写 kg与kgs都有,究竟哪一个标准? 分数次方一问:x的m分之n次方就是x的n次方再开m次根,可不可以先开方再乘方?原因? 两个圆的直径分别为4分米和2分米,它们的半径比是(),周长比是(),面积比是() 50 gallons?50 gallon?10 kg?10 kgs?哪个对? 单位km是什么意思 两个圆的半径分别是3分米和4分米, 这两个圆直径比是(),周长比是(),面积比是()在线等 2010人教版七年级地理上册期末试卷答案 . 2009五年级下册语文期末试卷 km 是什么单位 若100ml0.1mol/L硫酸铝溶液与氢氧化钠溶液反应,得到1.17g沉淀,则需0.5mol/LNaOH溶液的体积为(请用图像法来解释啦) 2009年五年级下册语文期末试卷要2009年的 KM是什么单位名称? 1.100ml0.1mol/L的硫酸铝溶液,在其中加入一定量的氢氧化钠溶液,最终得到0.78g沉淀,求加入多少mol氢氧化钠?2.氯化镁加入过量氢氧化钠,现象为------------.氯化铝加入过量氢氧化钠,现象为----------. Word文档:10的5次方怎样打? 25度时,100ml 0.4mol/L的盐酸与等体积0.6mol/L的NaOH溶液混合后,溶液的PH值等于多少 往含0.1mol硫酸铝的硫酸铝溶液中滴加4mol/L的氢氧化钠溶液澄清,若要使溶液最终澄清,至少需要氢氧化钠溶液体积( )A.50mL B.150mL C.200mL D.100mL 2009年语文五年级下册期末试卷急死人了! KM/H 是什么单位?是 公里/小时 填空;5.12dm3=【 】L=【 】ml 把一个圆平均分成若干等份后,拼成一个周长为20.7分米的长方形,这个圆的面积是多少平方分米? 在25℃时,100ml 0.6mol/L的盐酸与等体积0.4mol/L的氢氧化钠溶液混合后,溶液的pH值等于多少? 填空;2.75L=【 】ml 0.45L=【 】ml 84ml=【 】L 若用1MOL/L的H2SO4滴定1MOL/L的NAOH溶液10ML时,在滴定的过程中出现误差,如1(多滴定了1滴H2SO4溶液注约0.5ML),2(少滴定了一滴H2SO4溶液)等溶液充分的反应后,两溶液的氢离子浓度之比为多少? 一个圆的半径是3分米,如果半径增加1分米,则周长增加多少分米,面积增加多少平方分米拜托各位大神 填空200ml=几L200ml=( )L 室温下用0.1mol/L氢氧化钠溶液分别滴定20毫升0.1mol/L的盐酸和醋酸下列说法正确的是V(NaOH)=10ml,c(CH3COO-)/c(CH3COOH)大于1V(NaOH)=20ml,c(Cl-)小于c(CH3COO-)图中A点(黄色)与B点的意义是 kg.n是什么单位 2009朝阳市五年级下学期语文期末试卷答案求2009朝阳市五年级下册语文期末试卷答案 求大神指导.浓度为0.1mol/l的氢氧化钠滴定同浓度一元弱酸HB,(pka=4.0)误差正负0.1%ph突越7.0-9.7,若弱酸pka3.0,则突越范围为……求指导求指导…… kg/(kW·h)是什么意思这是油耗单位 word中怎么输入x的m次方平方m在x的右上面,然后2在m的右上面 怎样配制氢氧化钠标准滴定溶液c=0.1mol/L 有没有规范单位表示方面的标准?比如千克用kg,千瓦用开kW. 2011苏教版五年级下册语文期末试卷的作文是什么啊? kgs是什么单位 五年级上册英语期末试卷的答案 苏教版五年级下册语文期末试卷作文直接给我发上作文题目和内容 磁感应强度的单位KGS/A与T之间怎么转换?KGS/A 是 千高斯/安 ,我以前都不知道磁感应强度还有这个单位的. 五年级上册英语期末试卷和答案 苏教版 2009 word中a的2次方要是想在2下面再打个2该怎么打就是在a的右上角和右下角同时打上2,怎么打 如果一个圆的半径由1分米增加到3分米,它的周长要增加( )分米,面积要增加( )平方分米, 苏教版五年级下册语文期末试卷会考什么作文 2的x次方怎么打?是x的次方 HCL溶液与NaOH溶液(0.1mol/L)相互滴定的pH突跃范围是多少?HCL溶液与NaOH溶液(0.1mol/L)相互滴定的pH图余额范围是多少?如果要求终点误差不超过0.2%,甲基橙和酚酞是否都可用作指示剂? 我想知道KGS是什么意思?我听说KGS是复数形式,如果是这样的话,那:净重:6KGS毛重:11KG,这样不是不对称了吗?我写的数字是以公斤计算的 我要2009至2010年的8年纪语文期末试卷答案 体重用kg做单位还是用N作单位.. 关于KGS的问题10KG可以换算到多少KGS!好象KGS是什么KG的复数! 语文S版2009年-2010年四年级上册期末试卷,请问谁有? 2011年小学六年级语文上册期末试卷 如何在Word中输入几次方的数字? 有4gNa2O2和Na2CO3的混合物溶于水,与100ml物质的量浓度为1mol/L的盐酸恰好完全反应,蒸干溶液,最终得到固体的质量为? 例如:50ml 1mol/l NAOH溶液中的1mol代表什么?RT Word里平方米就是M的2次方怎么打出来? 在A、B、C、D四个烧杯内分别放入0.1mol的钠、氧化钠、过氧化钠、氢氧化钠,然后各加入100ml水,搅拌使固体完全溶解,则A、B、C、D的质量分数大小顺序为:为什么是D 不溶于水的实心球重12N,体积为1.5dm²,若把它轻轻地放入足够大且装满了水的桶里,求:(g取10N/kg)(1)球受到的浮力的大小(2)从桶中溢出的水的质量的大小 WORD里10的负几次方怎么打? 有8g过氧化钠,氧化钠,碳酸钠,氢氧化钠的混合物与200g质量分数为3.68%的盐酸恰好完全反应,蒸干溶液,最- -,怎么变成这样了,算了, 把重为10N、体积为1.2dm³的空心铅球,轻轻地放入水中,铅球静止后受到的浮力多大?(g取10N/kg)如题.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn