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

用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应用程序增色不少,

PHP开发者意向调查:移动开发+云服务成为焦点 研发周报:16种折磨开发者的方式 移动周报:Jolla和Sailfish OS,那些你应该知道的事儿 优化技巧分享:把内存消耗降低至原来的1/20 85后程序员:独自一人,完成一个HTML5开源图形库 关于Waze的前世今生,你所不知道的事 代码审查——提高代码质量的终极武器 值得开发者关注的8个HTML5 API 最初设计方案大公开!LINE STAMP 贴图诞生记 安全宝联合华为成立抗D联盟 储备防御带宽达110G 专访中科院贾海鹏:给异构开发者的六个建议 我们死后的遗留数据将会如何处理? 传微软考虑重大重组 或势在必行 云适配CEO陈本峰:8年磨一剑 Splashtop企业应用:SplashApp让办公移动起来 时空旅行+内付费“植物大战僵尸2”下月18日全球同步发行! 中移动推网络电话Jego 后来者能否居上? 防止数据泄露:BYOD下的管理员5大妙招 咕咚副总裁司建铭谈移动时代的“软硬整合” 未来的物联网结点:可穿戴设备 应用开发的4个技巧,让程序能真正为用户使用 Google早期的10个API:它们现在在哪? 为啥微软开发产品总是慢半拍? Visual Studio 2013 Preview新功能预览 “中国手机游戏四月流水榜”出炉 超半数基于Cocos2d-x引擎 为移动而设计之信息架构篇 难逃厄运:Zynga将关闭Draw Something母公司OMGPOP 直接拿来用!最火的iOS开源项目(一) 是时候抛弃Eclipse转向IntelliJ了 Arrow:轻量级的Python时间日期库 编程语言API,你最青睐哪一款? 请教文件 坏了,我的D盘怎么自动产生了一个fc2tr文本 结帖错误 php下的xml问题? 内部网TCP/IP失效问题求解!在线等候 怎样将有scroll的form全部抓成图片?我用GetFormImage只能抓屏幕上显示的部分,请帮我。高分求助!不够再加!! 客户端的函数怎么样用客户端用户输入的信息... 怎样改变MC的颜色。 病毒邮件。请问有什么办法解决 帮帮我这个菜鸟! PCI Device 驱动程序? 救我吧. link的时候提示cannot open file "mfc42u.lib"的问题。怎么解决? 如何才能上网呢 请问如何重绘一个应用程序的窗体或内部 Object 的边缘,就像 SPY++ 的 FindWindow Tool 实现的样式?? 救救我,给100分 NT4.0为主域控制器,有办法降级为独立服务器吗? VBA 如何调用 DotNet's WebService ?? dbexpress为什么在插入带自增长字段时候出错? 为什么不同的查询语句会有不同的效率? 我现在要开发一个游戏大厅,谁能帮我提供一些技术参数>?在线等待。 不是水贴:请求帮助,有上海师范大学的请进 紧急!那位有clearcase winnt 4.2 的注册码,高分相送!!!!! 论坛的表格要在注意什么?《我是个菜》 大家帮忙介绍一本书 帮帮我怎么把系统还原占用的空间还给我——老鸟们帮忙! 过滤问题:Query需要先选择一个表(通过ComboBox)然后从2个Edit内输入两个条件 关于stringgrid的翻页问题 寻找电脑方面的朋友 大家好,帮忙做做这题 大家如何保存自己地提问?? JTable怎样一行一行地显示? 我的程序 无边框窗口显示问题 求教各位大虾 VB数据库 如何知道某字段有这个姓名记录? 我想学一种C++的集成环境,是C++BUILDER还是VC 我完全没基础,请帮我走出第一步:汇编工具在哪下载?我想试试那个“两只老虎” 如何在还原Cookie中的中文字? 制做彩色立体阴影怎么做啊! 我的程序 请问有没有这样的公司? 2000 server 无法使用ADSL????? 我要和她分手。。。。。。。。 一个不错的网站,进来看一下吧! map 使用的几个小问题 請大家幫我做這個的標準譯文,謝謝!!! 就像做考題一樣,不要只說它在概意思! 新手上路第一问!Hello World都不能运行 这样的SQL语句怎样转化成能在mysql下运行的 学汇编,应用在什么地方?单从功能来说,汇编强大还是C++强大 五菱荣光是几座的面包车?前面一个驾驶室和副驾驶室,后面两个座位,再后面有一个长的座位,一共算几座? 左键盘123456789上的符号怎么打谢谢了,大神帮忙啊谁知道做键盘1234567890上面的符号怎么才可以打出来 石灰水和氯化铜溶液反应的离子方程式详细过程, 万智牌新手 求帮忙组加血套只是组起来娱乐用.所以不分什么环境的 用质量2字组成语大神们帮帮忙请用质量2字组词、 比如:质量过期 质量保证 质量安全 组这样的、越多越好 与维持内环境稳态无关的A.剧烈运动时血液中的乳酸上升B.干渴时尿量明显减少C.人少量失血后,血量很快恢复正常D.炎热的夏天,人体内产生的热引起发汗而使体温不至于上升我们老师说选A,可 铜与很稀的硝酸反应生成硝酸铜、硝酸铵 和水.当生成0.225mol硝酸铵时,被还原的硝酸的物质的量为( )mol.过程 向200mlNa2SO4和Na2CO3的混合液加入过量的BaCl2溶液,得到10.57g白色沉淀,加入过量的稀硝酸,处理后沉淀量减少到4.66g,并有气体放出,(1)原混合溶液中Na2CO3和Na2SO4的物质的量浓度(2)产生的气体在 自己怎么区别到底是藏银还是925银呢? 地球给陨石 撞击过 几次啊 发生在什么时代? 有关化合价的问题氯在什么化合物中呈+2 +3 +4 +5 +6 +7价Br和I在什么化合物中呈-1 +1 +3 +5 +7价Mn在什么化合物中呈+1 +2 +3 +4 +5 +6 +7价如有知者,速请告知, 藏银、苗银、925银有什么区别?哪一种好一些?怎样知道是否是真货? 地球上曾经发生过几次陨石大撞击,最后一次是多久就是那种破坏性比较大的,造成一些生物灭绝之类的 有关化合价的题M元素和氧形成的化合物为MxOy,如果保持M的化合价不变则M与氯形成化合物化学式为______,与硫形成化合物化学式为______, 在任意三角形ABC中有一点P使得2AP+BP+CP最小最好有图.. 怎样写提示语? 关于化合价的问题,O的化合价为-2,是不是也就是说在O在反应中要得到两个负电荷?和O反应的那种物质是不是就一定要失去两个负电荷?为什么?能不能进一步解释一下化合价的具体意义? 在等腰直角三角形ABC中,∠BAC=90°,连接AD,求证BP的平方+CP的平方=2AP的平方P在B,C之间 为什么铝锅不易生锈花 这个提示语该怎样写哩? 化合价和什么有关? 硅酸失去水可以得到二氧化硅吗? 请按提示写几条提示语1 草坪(运用拟人手法)2 保护耕地(运用名言)3 4 图书馆5 教学楼 为什么我家的插座零线与地线之间有70V电压,而且火线与地线之间只有160V电压? 铝锅生锈怎么刷 怎么写环提示语 Ca(ClO)2能改写吗 碳酸和硅酸两者都易溶于水么? 什么盐不溶于酸和水,具体点 由水电离出的[H+]或[OH-]均为10^-12时,溶液可能为酸溶液,也可能为减溶液,为什么呢?在常温下,两者乘积=10^-14 为什么浓度会相等? Si+3H2O=H2SiO3+2H2是怎样发生的?(Si不是不易容于水吗?)这个反应需要条件吗? 某化合物在25°C时溶解度为25克,要制的该温度下的饱和溶液250克,则需水和该化合物各几克?要有运算过程 万智牌共有几个系列 DNA可以被合成吗?DNA可以被人工合成吗? 铜的化合物的溶解性 万智牌的几个问题1.先指定目标,目标再被(瞬间)带辟邪,目标合法么?2.在生物发动启动式异能进入堆叠时,被点死异能的效果会执行么?3.移转多个目标的咒语时,是改变所有目标还是其中一个? 看了变形金刚三之后我想知道,为什么擎天柱那么爱地球!他们飞船也有,科技也有,为什么不离开地球还要留在地球上,听人类的调遣.驱逐的时候更是屁都不敢放一个.我真的很想知道擎天柱为什 自己的父亲.应该个病句吧.为什么不直接说父亲,而是要加上自己的呢? 万智牌如何加速 在变形金刚1电影版中擎天柱他们四个刚到地球上的形态很怪 描写绿色湖水的四字词语求大神帮助 大神帮下忙,心累、孤单,也要坚持.汉译英 落日变大的道理为什么会变大``` 有关高一的氧化还原反应!在氧化还原反应中,+2价的Cu比+2价的Fe氧化性强,Fe比Cu还原性强! 姚什么魏什么成语 落日为什么是扁的啊为什么啊请给科学解释 中国金融书网怎么样 姚什么魏什么 打一颜色成语 变形金刚四擎天柱是不是离开地球了 黑洞的出口是白洞吗? 什么魏什么赵的成语 阅读全文后回答:请具体说说,落日为什么是扁的? 数字123456789语文字怎么写 带魏的成语 日出或落日时看起来是扁日的形成原因希望具体点,是折射形成的已经知道了,而且还和蒙气差有关.希望有光路图最好 经典的悲伤语段100字左右求大神帮助一些悲伤的爱情经典语段,但又不要太明显是讲的是爱情,100字左右.很急很急…… 人体内对内环境稳态起调节作用的系统是 夕阳的太阳是什么样子的 什么是化合价啊? 请从下列词语中至少选用四个以上的词语,写一段以“云”为话题的文字,要求用上一种修辞手法(50字以内)峰峦 预兆 轻盈 匀称 崩塌 弥漫 一霎间 姿态万千 变化无常 律师:斯诺登在俄找到网站工作 今日开尼日尔移民车沙漠抛锚 致90人脱水而日本最新型潜艇“黑龙”下水 苍龙级潜迪拜居民将可享受一天免费公共交通 超注册零门槛屌丝也能开公司 专家:法律土耳其买中国导弹为何一波三折“美丽中国”图片展走进科特迪瓦京津冀浙多条高速路段因大雾通行受阻今起浙江93、97号汽油每升便宜6分美售P3C首架飞机抵台 马英九称与日男子在石家庄博物馆泼人硫酸 警方称嫌工作强度大工资低 台州公交公司有车无台湾花莲昨晚发生6.7级地震 台州各上海让全班学生互扇耳光老师被解聘就业市场前三季度逆势走稳 未来总量存日本最新型潜艇“黑龙”下水 苍龙级潜教皇被爆长期遭美监听 意大利梵蒂冈 上海摊位占道多年难除 城管称有保护伞上海自贸试验区注册地不小于20平方米江苏:物业费不满3年就涨 业主可要求南京鼓楼推行公务自行车 评论:别止于9万人点赞,34万人分享的漫画:人生全球叹服!快来看看中国高铁到底有多牛你是想有钱,还是让自己值钱?十年十把杀猪刀,你中了几刀?两个同性恋男人,一家优雅的花店集中力量去除污点完爆机洗,codo洗时尚新闻联播:跟着彭麻麻学穿搭蔡英文谈副手人选:勿过多臆测、刻意放朱立伦:民进党不再躺着选 但也不应站达利画的是梦境?不,他画的是相对论和10.22午夜油评,弱势震荡,区间操宋哲凯:叙利亚局势解析10月23白银“开车K歌”被查给谁上了一课?妈妈走了,这辈子儿子已经做完了,看哭A股明日将在这个点位惊天大逆转 散户不要等到老了,才懂得生活明家科技(300242)涨停 明天还这里吃不输香港,美不输台湾,会玩的人人间仙境,天山天池,你不知道的美云南旅游,你不得不知道的攻略分析师:iPhone 7会取消Hom
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘