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

用VB实现任务栏右下角的小图标

HTML文档下载 WORD文档下载 PDF文档下载
用VB实现任务栏右下角的小图标


将VB应用程序缩成系统状态栏图标二法
第一种方法:
VB光盘的tools\unsupport\systray目录下有一个例子,将此目录复制到硬盘,编译生成一个OCX控件,在自己的程序中使用此控件,可以实现将程序图标放于右下角系统图标区,这方法比调用API要简单得多


第二种方法:
梁洁仪
---- 在很多应用程序中,其操作窗口缩小后将变成一图标放置在系统状态栏中。

---- 为什么有的程序可以缩小成图标呢?

---- 对于Windows来说,这些图标并非窗口或程序,它们只是图标,能作出这样的功能,关键在于调用了Windows的API函数Shell_NotifyIcon,在Visual Basic开发环境中,通过其所附带的API浏览器,我们可查找出Shell_NotifyIcon的声明格式如下:

---- Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

---- 现把本函数声明中的参数分别说明如下:

---- 参数dwMessage为消息设置值,它可以是以下的几个常数值:0、1、2。在程序中为了使用更方便,我们把它们定义为三个常量:NIM_ADD、NIM_MODIFY及NIM_DELETE,本示例中的常量及Shell_NotifyIcon调用都可以在窗口新建的模块中声明它:

Public Const NIM_ADD = 0 //加入图标到系统状态栏中
Public Const NIM_MODIFY = 1 //修改系统状态栏中的图标
Public Const NIM_DELETE = 2 //删除系统状态栏中的图标

---- 这三个常量的应用将中下文中具体介绍。
---- 参数LpData 用以传入NOTIFYICONDATA数据结构变量,我们也需要在"模块"中定义其结构如下:

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

---- 在本数据结构定义中,各变量都有其实用意义:
cbSize:需填入NOTIFYICONDATA数据结构的长度。
HWnd:设置成窗口的句柄。
Uid:为图标所设置的ID值。
UFlags:用来设置以下三个参数uCallbackMessage、
hIcon、szTip是否有效。
UCallbackMessage:消息编号。
HIcon:显示在状态栏上的图标。
SzTip:提示信息。

---- 其中参数uCallbackMessage、hIcon、szTip也应在模块中声明为以下的常量:
Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4

---- 了解了上述各参数所代表的意义,就可以直接编写代码了。应用本函数所建立的窗体示例(略)。
---- 为了进一步让大家了解本函数的使用,下面将将详细介绍上例所需编写的代码。

---- 1、加入图标按钮。代码如下:

Dim nid As NOTIFYICONDATA

nid.cbSize = Len(nid)
//取数据结构的长度设置给cbSize
nid.hWnd = Me.hWnd //设置窗体的句柄
nid.uID = 9999 //图标的ID值,可自定义
nid.uFlags = NIF_ICON //表示设置图标
nid.hIcon = Me.Icon
//把图标设置成当前窗体的图标,也可以指定为某一图标文件

Shell_NotifyIcon NIM_ADD, nid //加入图标

---- 2、删除图标按钮。这里要注意的是,当我们把图标加入到状态栏后,一定要把hWnd及uID的值记下来,不然将无法正确删除此图标,本按钮的Click事件代码如下:

Dim nid As NOTIFYICONDATA
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd //记下句柄
nid.uID = 9999 //ID值
Shell_NotifyIcon NIM_DELETE, nid
//调用Shell_NotifyIcon函数删除它

---- 3、改变图标按钮。同样的道理,在窗体运行过程中,如果要更新图标,可以用以下的Click事件代码来完成:
Dim nid As NOTIFYICONDATA
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
nid.uFlags = NIF_ICON
nid.hIcon = Image1.Picture
//用窗体中的Image控件中之图片来代替

Shell_NotifyIcon NIM_MODIFY, nid //修改它

---- 4、设置信息提示按钮。提示信息就是当我们将鼠标移到本图标上时,这些图标会显示出来的信息,下面的Click事件代码可以作到:
Dim nid As NOTIFYICONDATA

nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
nid.uFlags = NIF_ICON + NIF_TIP
nid.szTip = "这是试验图标" + Chr(0)
Shell_NotifyIcon NIM_MODIFY, nid

---- 当然,在把本窗口缩小成图标的同时,也别忘了将窗口隐藏,代码是:Me.hide。这样窗口就不会在任务栏中出现了。
---- 利用Win 32 API函数,我们可以完成很多VB本身不具备的功能,只要灵活运用,必能为VB应用程序增色不少,

移动开发创业团队再下一城!UCloud与飞流战略合作 【走进支付宝】即将开场,问题大征集! 开发者薪资调查:半数开发者工作十年方可迎来好“薪”情 沟通更畅快 HipChat推出1对1视频和屏幕共享功能 AMD宣布支持DirectX 12 为游戏开发者带来更多福利 开发者薪资调查:2013年哪种编程语言最赚钱? 苹果挖墙脚未果,黑莓高管跳槽被起诉 不看不知道:六个超大规模Hadoop部署案例 豌豆荚发布应用内搜索技术协议 兼容App Indexing Oculus 21岁鬼才创始人:收购不等于改变 Unite China 2014课程解析:Unity教育行业专场免费开放 Instagram技术窥探,助你打造响应式App 切勿妄谈Hadoop,以及4个数据管道打造实践 一周消息树:雨果·巴拉与小米的那些事儿 《近匠》轻邮联合创始人Wesley:移动App要有撼动企业服务的野心 Facebook开源MySQL分支,谷歌、LinkedIn、Twitter等大拿捧场 淘宝明风:基于Graphx的图计算实践分享 调查显示:2015年Android将统治全球操作系统 初创公司最爱使用的那些开发工具 仙剑之父姚壮宪强势加盟Unity游戏及应用大赛 智能可视化平台:DCOS之数据中心抽象 一周热点:5美分/GB的开源存储系统,及硬盘质量“最差”的希捷 英特尔收购可穿戴技术公司BASIS Science 设计移动App的十大技巧 皮皮网陈超:易用与性能兼备,Spark蓬勃发展! Sahara顺利毕业,将加速OpenStack与Hadoop的融合 十大将拯救地球的开源硬件项目 Android应用程序开发者需要了解的五个内容 百度轻应用插件CloudaMySQL诞生记 盘点Github所用的开源项目 开源不只是面对开发者 请帮忙,我自己觉得问题很难(特急)!!!!!!!!!!!!!!!!!!!! 明天我哥结婚,我很开心啊!!! 我想把公司的网站改放到公司,该怎么办? ——如需要还有很多分送 关于存储过程和触发器的问题?(高分求助) WIN2000机器上ADSL,另一台linux下如何做ADSL的代理让局域网中机器上网! 为什么新生成一个session对象后,jsp page中的scope=session的bean会不正常? ★★oracle中ora-04031错误 请问:在安装MSSQL2000 时(因为公司的电脑是对等网的原因)我装完后出现以下错误: 我应该去东软吗? 请您帮我诊断一下! 如何共享已打开的设备 rs.open sql,conn,3,2参数含义? 我应该去东软吗?? 求救~~~~安装完WINXP,进入系统前会出现错误窗 怎么现在没法用search了? 一个菜鸟的问题,关于事件的加载 求救~~~安装完WINXP,进入系统前会出现错误窗 关于速度,效率,VB IIS ASP COM高手请进 我用extracticon将图标从exe文件中提取出来了,请问高手们,如何保存为ICO文件。 急急急,如何解决多窗口关联及激活问题!高分相送 请教一下,如何刷新ie浏览器,我用postmessage模拟按键F5,没成功,谢谢 怎么样把多个程序打包到一个文件中,然后怎么样释放出来!高分求答案(分两次给100分)! 为什么计算字段不能排序 我是新手,高手教教我吧!!! 如何激活oracle8.16的监听??? Domino Administrator 中的“配置”->“消息处理”->“网络域” C#究竟是什么东东?象C++还是象JAVA? 求dxdbtreeview 1.2 for d5 有人知道天津英业达吗? vb6如何结合DirectX编程? 怎樣才能把數據寫入BIOS中的DMI里去? 我要用vb得到一个EXCEL表格中的内容,经过数据处理再把数据写入新的EXCEL表格,如何实现? 心情不好,散分 我怎樣才能把mssqlserver中的數據庫導出到mysql中? >>有人知道天津英业达吗? 在VC中,如何编写Makefile,及如何用 .mak 文件编译,联接程序(来者有分) 我的电脑经常在使用时出现“EXPLORER出现非法操作即将关闭……”然后死机,怎么办? JavaScript一问!!! windows nt 的问题(急)? 如何设定paradox的自增长自段 关于报表中零值显示问题求助 那位知道控制打印机的win32函数,1、使其打印完毕不换页(卷纸) 2、以及换行的函数!!! 请问怎样捕获WINDOWS的文件拷贝事件? ■■请问WIN2000下对内存区的访问如何进行,类似于游戏修改等软件?■■ 内存分配不能分配?该用什么来分配内存? 做图象处理可以,作这个不可以? 如何将上次表单的残余值给清掉? 如何打开一个窗口? 搞不明白?各位高手帮帮忙!! 如何在win98与2000共同使用同一软件? 有个问题,怪怪怪 高分求救:做单片机的前途怎么样? 那件小事激励了我作文700字(小事要母爱或父爱)急求!谢谢!语言要生动!!! 求以“关心”为话题的初二作文要优秀的范文、 要800字左右 作文:我认识到了美kuai ji 关于自信的作文要500字哦 初二作文以希望为话题的作文不要太深奥,简单点的,600多字必须原创!!谢谢!! 以成长中的往事为话题的作文适合14-16岁学生的 自信的作文 500多字 字不少于500多写几篇,谢谢! 帮忙用关羽写一篇800字的人物形象赏析文章 以往事为话题的作文不下600字,语句优美. 百家姓里面有爱新觉罗这个姓吗?现在还有人姓这个姓吗问问 爱新觉罗媚是不是清王室的后代? 以“往事”为话题的作文谁能给我一篇初一水平的以“往事”为话题的一篇作文, 古代皇室的姓氏在民间有吗?例如清朝皇室姓爱新觉罗,在当时的民间有姓爱新觉罗的吗 爱新觉罗媚是皇族吗 快满7岁了,虽然有些书读不懂,但是有拼音的书.对书不是很了解,既不讨厌,也不喜欢,认为去书店时间很好玩的事情.记得有一次,爸爸带我去斯巴达书店看书,我迫不及待地跟爸爸去了丁字口.因 以感悟为话题的作文600字作文由一件事引发的议论抒情写几件事没有限制.不用写的很好很好但也不要太幼稚了 我是清朝皇室后裔,我姓爱新觉罗 皇室是否毁在溥仪手里. 写祖国六十年的变化,该怎么写,帮我想个提纲300字左右 以《感悟美丽》为话题,写一篇作文 清王朝灭亡不过百年,作为皇室的后代哪里去了,怎么爱新觉罗姓氏好像从人间蒸发了我想知道皇族是一个大姓,那后代怎么都到哪里去了,作为一个大族,满清后裔至今怎么没有对扬州十日,和嘉 根据满族服装服装发展的过程,说出你的认识和观点500字左右题目自拟 遨游太空,可以见到美丽的地球,他是怎样的呢?请写下来写40字左右 有这样一种声音 感受春天作文叙事文,要取春天的比喻义,400字急!最好今天回答 ()使人类能够探索宇宙的奥秘,遨游变幻莫测的太空? 五年级的第一单元 你对读书带来的乐趣是否有了更深的体会 宫斗记殿试公主答案汝是并不得宠的公主,且汝的额娘被蔓妃设计陷害说汝并不是皇上的金枝玉叶,此时汝会怎样让皇上相信蔓妃所说并属事实?150字 写自己的故事作文500字! 我明白了读书的乐趣作文 关于感受春天的作文 我需要父爱 初一作文700字 我从 艺术中感受到了美 作文要500字 急 感受春天 作文记叙文 明天就教希望今晚有回答的 麦克牵一只蜗牛去远行,可是蜗牛走得太慢了.麦克又是催促又是斥责,蜗牛只是很歉疚地摇摇头,表示无能为力.麦克又气又急,对蜗牛又拉又扯又踢,蜗牛受了伤越发爬得慢了.麦克只好耐着性子, 作文:我从书法艺术中感受到了美 关于感受春天作文 牵挂为题的作文要提纲!要有一件事,不要抒情的!切记记记 去大自然感受生命的美好作文350字以上 作文【我感受到了春天】 以牵挂为题的作文 1、近几日来,皇上夜夜在你寝宫过夜,引起了其他妃子的嫉妒,她们趁皇上不在之时来你寝宫羞辱汝,你会怎么办?2、你的好姐妹同你一同进宫,你得到了皇上的宠爱,而她还只是一个小小的秀女,为 宫斗的答题题目~~要虐点啊! 谢谢~ 以《思念》为题的作文这是看图作文吔~怎么办?我简说一下图上内容吧~:这一天应该是中秋节吧~奶奶和爸爸、妈妈、“我”围在圆桌前赏月.这时奶奶手中拿着照片,用手帕擦着.照片中三个人 宫斗题目 在线求答案 帮帮忙1.在一次宴会上,如果汝仅是低位嫔妃,想上前敬酒,但一不小心,酒撒在了某高位并且很得宠的妃子身上,这时,汝该如何是好?2.在问你一些古代的常识:四书五经的五 宫斗答题请问:1、今天在御花园第一次看到皇上、你想好好表现让皇上喜欢你、可是皇后也在身边、你怎么办?2、倘若在你侍寝的时候,忽然有一个十分受宠的嫔妃让人通报说她身子不好,要 作文:父爱,800多字, ①、高位妃相邀御花园,你却有事在身,该如何推却?②、你是新晋的才人,一直无机会得见圣颜.今日皇后听月楼设宴.广邀后宫嫔妃参与.你将如何抓住这次机会,汝当如何借机攀龙附凤?③、后宫 看《美丽中国我的中国梦》的感想.500-800字.帮我列一个提纲,找一些材料. 以牵手的为题目的初二水平作文 这些宫斗题的答案是什么?求!1. 汝频频得帝宠,却无一子嗣,而后帝也渐渐不来汝的宫中,然则新进宫的新秀却是已怀有龙嗣,在给汝请安之时,便不时冷热讽,汝该如何反击?2.汝进宫已有年余,却从 《美丽中国,我的中国梦》读后感 400字急!快点. 静静地感受那份美 作文,最好有范文 谢谢, 宫斗题,你是近日皇上新宠安贵人.这日你见阳光甚好,去千鲤池散步,偶遇与你同级的王贵人,言语不和之下,她自己跳入水中.当时身旁只有你和王贵人的奴婢,无其他人.王贵人的奴婢一口咬定你 我需要《美丽中国,我的中国梦》的读后感不要复制的比如“不管是你的梦还是我的梦.”六年级水平400至500字 求父爱作文700字写慈父的不要下雨接放学的不要小学生作文有一定哲理的句子 内容不限 最后 我可拿了我一半的家底啊 作文好的再加悬赏 话题.我要两篇 话题作文,一篇为成长.一篇为爱.请尽快 求以 在一起 为话题的作文4篇 跪求关于父爱的作文700字,急用, 以家为话题的初二作文500字左右~ 关于关爱的作文,主要是父爱母爱.800字左右,不要网载,题材新颖,关于父爱母爱.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn