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

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

VB中自制文件搜索器 Windows 初始化文件的修改 -VB资料 Word 97与WPS97的完美结合 -VB资料 比较两个文件-VB资料 采用递归算法删除带有多级子目录的目录-VB资料 菜单项的动态装入 -VB资料 处理加了密码的MDB文件-VB资料 VB创建临时文件 从公共对话框控件中提取多个文件名称 -VB资料 从全路径名中提取文件名 -VB资料 打印MsChart之类的控件 -VB资料 谈谈在VB6.0中如何使用资源文件进行编程 动画图像分解在VB动画设计中的应用 多重文档界面设计方法-VB资料 恢复回收站中的文件 -VB资料 VB获得位图文件的信息 VB获得文本框中光标所在行的内容 VB获取程序工作路径的方法 VB获取文件或文件夹属性 基于VB的通用折行打印程序 基于VB和EXCEL的报表设计及打印 VB建立多级目录 -VB资料 VB建立快捷方式-VB资料 VB建立文件关联 -VB资料 将RichTextBox 之中被选取的内容复制到剪贴簿-VB资料 将我的程序的文本直接送到WORD中(不用粘贴)-VB资料 开启文件属性窗口 -VB资料 快速读取 TextBox 第 N 行的资料 -VB资料 快速选择里List全部项目-VB资料 VB利用 App.Path 读取「应用程序所在之目录」 VB利用 EM_LINESCROLL 信息控制 TextBox 的卷动。 如何查找一个对话框的owner窗口? 我应该选择VC还是C#??? 在系统启动时至少有一个服务或驱动程序产生错误,详细信息,请使用事件查看器查看事件日志 操作系统是如何发现新插入的设备的? 关于对Com1,Com2读取条形码的编程 帮个忙,先,谢了! 接着那个堆栈问题,创建了,试验了。但应用时出现了对创建错误? 我想在对话框上输出一个char数组,用什么方法比较好????????????? 怎样移动较大副图片的时候避免或者尽量减少闪动? 怎么把网络编程和数据库联系起来 如何贴背景透明的按钮?急,急,在线等待!!! 奇怪了! 请问如何获得居于网中一个工作组下的所有计算机?? 还是一个dll内部变量的问题。 怎么回事? 送分! 大家看看 请问MSDN的帮助怎么获得 怎么样获得一同名text表单域的值? **C++语言的设计和演化** 图书好贵呀!!! 求表达式正确与否的校验算法 怎样控制DllMain?在哪里可以编辑这个函数? 同一个句柄对于所有进程是否一样? 我的red hat linux8 怎么才能配置声卡 如何判断一个字符串是否是常数 《Java与模式》一书已经出版 --- 作者 各为高手,如何能够看到我打开网页的session的值 关于 Geforce256 的问题. 一定给分!数据库查询问题 solaris下有没有用过syslog编程的? 推荐个好点的flash的控件吧 数据库中的Currency类型字段 初学pb8请指教!多谢! 如何让richtextbox支持语法高亮显示 请问rtsp是什么协议? 函数返回临时指针到底如何处理较好? 原来在bcb4下的程序为什么在BCB6下运行出错? 我是新手 如何用代码关闭显示器和硬盘??????? 如何打印PictureBox中的所有内容,分不够可以再加 问一下大家的下载和注册的比率好吗? 我的IE怎么了? 这是我第二天的C#学习笔记,敬请高手指教 ★★★ 在线等待,高分求对 ★★★ >>>>>>> 虞美人身佩玉蝴蝶蝶恋花 linux 热启动后能不能再进入winme? 大家说高中毕业自学的c#程序员有可能找到工作吗? 急!如何给DBGrid对应的列字段规定显示格式 用VB将图片插入到Excel或WORD里 请问文本压缩目前有什么标准? 怎么控制小数点后的位数????? Oracle Developer的B/S结构是如何实现的? 在图①△ABC中,∠ACB=90°,AC=BC,直线MN经过点C,且AD⊥MN于D,BE⊥于E.(1)说明△ADC≌△CEB ..(2)说明AD+BE=DE(3)当直线MN绕点C旋转到图②的位置时,试问AD,BE,DE具有怎样的关系?请写出来并加以 英语翻译怎么翻译the design should be approximately 35% each for feed and metering sections with the remaining 30% as transition zone The teacher,with the student is going to work on the farm this sunday 为什么用is 如图1,在△ABC中,∠ACB=90°,AC=BC,直线l经过点C,AD⊥l与D BE⊥l于E 1,求证△ADC全等于△CEB 2.当直线l绕点c旋转到图2的位置时,DE,AD,BE且又怎样的数量关系,比证明kuai 求一部明朝的电视剧小时候看过的,内容具体是崇祯有两个女儿,2女儿很坏,通敌叛国.我只记得那么点了, The teacher with the students often ___ to the moutains.A.go B.are going C.goes D.is going 急...A:Hello!What are you going to do?B:I am going to the shop to buy something for our evening party.A:Evening party?_____________B:Yes,we are.A:________________B:Toninght.We'll get our teachers and classmates together.A:can you tell me something m 为什么很多武侠剧都是发生在明朝? The teacher is giving ___ the new books to the students填介词或副词 [How long have you been coming here]这一句有什么错误,该怎样改? 有一个地方,不管哪个方向都是北,那么这个地方在哪里 扑克牌A代表什么意思 In the 12 months since I last wrote to you,a lot ----(happen)to me 人固有一死的固是什么意思? 生物分类依据病毒分类吗?立克次氏体分类吗?真菌,动、植物和微生物的分类依据,通俗点。按照界、门、纲、目、科、属、种来分。 his young brother once wrote to him in 2005,and 〔hasn't been heard from〕sincehear from意思是收到,那么为什么要用been heard from的被动句? 我们可以在互联网上与彼此聊天. We can chat with each other ____ ____ ____. 描写树木茂盛的成语(10个以上)急, It has been two weeks since I last wrote to you.意思? 在ΔABC中,∠ACB=90度,AC=BC,直线MN经过点C,且AD垂直与MN于点D,BE垂直MN于点E.说明ΔADC全等ΔCEB 生物分类的依据动物的分类单位不仅要比较外部形态,还要比较动物的_____和______. 珠江夜景作文300字 She should help her mother ()housework 沙漠的动物怎样生存 沿珠江哪里看珠江夜景 She didn’t help her mother do any housework until she was fifteen同义句这有两个空 help her mother do any housework 这有一个空 she was fifteen 问下be going to 的句型是不是be going to的句型后面可以加动词啊?yes,i am to go to learn that how to driveyes,i am to learn that how to drive 这两句话语法上是对的么?有什么区别 如图,在△ABC中,∠ACB=90°,AC=BC,直线MN经过点C,且AD⊥MN于D,BE⊥MN与点E,试判断S△ADC与△CEB全等吗? 英语经典习题:情景对话Allen:hello!Mike:hello._____.May I speak to Allen,please?Allen:_______.Mike:Hi,Allen,Hwo are you?Allen:Fine,thanks.Hwo are you?Mike:I‘m fine._____.Allen,I need some help.____.Allen:Sure._______.Mike:There is somethi 描写树木长得茂盛的成语(最少4个)那么 英语翻译楼主给你20-80的悬赏分.要多少悬赏分.自己写在答案边. 两道英语情景对话题,-How is it going,Tom? - ( ) A.Oh,okay,I guess. B.Not doing wrong. C.Sorry,I'm not so good. D.Noting,thanks 2.-Can I help you,sir? -( ) A.Yes,you can help me. B.No,I don 为什么植物开花季节不同?写说明文急需, 英语翻译我可以满足你的要求.*_* 我国的珍贵的历史文物有哪些 michael is going to be a singer when he grows up (对划线部分提问 划线部分是a singer 现在市场上塑料粒子价格大概是多少啊~ 做塑料薄膜袋的~ 我国珍贵历史文物只要名【如秦兵马俑】. I'm going to take you to the library.(对划线部分提问)划线部分是有.给个完整的句子 我国有什么地方一年四季都冷?最热时候温度不要超过20度?有没有这样地方?感觉西部一带,冰山脚下应该可以,但是,那种地方应该很偏僻,外地人不好生活,有没有比较好找工作的地方,不然,去了 中国的历史文物有什么要二十个 how will you go there?by train. Sally left the school last month.sally()()()from the school since last month 同义句转换 像从前一样的好朋友是什么词 how soon will you go there?这句话有语病吗 中国有哪些地方一年四季如春 像从前一样做好朋友是什么词语 How will you go there? 请问中国境内一年四季如春的地方是哪里四季天气晴好的地方都有哪里 急求 在哪个季节开花的植物,花芽的形成最需要光照?( ) A春季 B夏季 C秋季 D冬季 请速给我一篇题目叫‘红色少年’的作文 只要内容就是写树立自己远大理想等等 关于夜景的好词好句 绿色开花植物长 到一定阶段产生花芽绽放称称开花对么 原题是判断题 争当热爱祖国,理想远大的好少年如题,200字左右的国旗下讲话稿,急,这两天要,好的话可以加多二十分! (1)黄旗的面数是红旗的2.5倍,黄红旗共70面,红旗黄旗各多少面?(2)黄旗的面数是红旗面数的2.5倍,黄旗比红旗多45面,红旗黄旗各多少面? 和秦兵马俑同样珍贵的历史文物有哪些? 做爱国、理想远大的好少年的作文一篇400字 如图,在△ABC中,已知∠ACB=90°,AC=BC,直线MN经过点C,AD⊥MN于点D,BE⊥MN,求证△ADC全等于△CEB这个 商店有红旗45面,黄旗35面,绿旗的面数是红旗和黄旗总面数的1/4,绿旗有多少面? 除兵马俑外,我国珍贵的历史文物有( ),( )
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘