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

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

专访IBM中国研究院院长沈晓卫博士:全新的物联网来了 《近匠》GYENNO CEO任康:用“勺子”敲开一片新市场 Horde3D——基于C++编写的3D渲染引擎 Maker Faire 2015在深圳正式开幕,关注创客生态系统 Arduino与Seeed Studio达成战略合作——专访Arduino联合创始人Massimo Banzi 免费开源的Bootstrap富文本编辑器bootstrap-wysiwyg使用方法 CCAI2015:首届中国人工智能大会将于7月26-27日在京举行 拥抱互联网+ 用友NC6助力集团企业蜕变数据驱动型公司 《近匠》融云,自主研发真正“不丢消息”的IM云服务 【CTO讲堂】听云CTO Wood:APM实现原理及对IT和产品运营的价值 从7个维度浅析虚拟现实Alpha年 Maker Faire上的微软:将技术与工具带给Maker才是关键 友盟2015年Q1移动互联网报告:车联网App崛起 多面编程语言Scala NEC高可用集群软件EXPRESSCLUSTER X3.3面向中国市场正式发布 【探秘ES6】系列专栏:模版字符串 专访图书作者祁宇:C++11让程序更简洁、更现代、更强大 滴滴打车CTO张博:生死战役,技术和时间赛跑 Qualcomm拥抱创客文化:如何基于DragonBoard 410c创造和创业? 【探秘ES6】系列专栏:剩余参数和默认参数 专访资深程序员庄晓立:我为什么要选择Rust? 主会讲师确认,2015中国人工智能大会火热报名中 容联&#183;云通讯线下沙龙:IM 5.0助力App社交化 【CTO讲堂】全数据驱动产品优化,美国互联网公司A/B测试经验分享 《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 【前端人生】Teambition前端工程师陈涌:非计算机专业,依托社区不断成长壮大 iOS UIView动画实践(二):Spring Animation与人机交互 基因组与数据整合:DNA应用开发正在临近 为何自己用vb开发的ActiveX组件不能在asp页中运行 kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(一) kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(二) kvm & Redhat8.0, 移植问题??? 高手或有兴趣的朋友看一下,谢谢。(三) 有谁可以给我介绍一本比较好的介绍算法的书 她是我的初恋,半年前我们再次相遇,我对她说我一直爱她,她似乎也爱我,但现在她说她有男朋友了,不是很久,我想和她断绝联系,她又说会 如何防止多个程序实例同时运行? Interface not supported,Delphi作Com+服务时,有客户端报此错,紧急求助!! 难道《80X86汇编语言程序设计教程》保护模式部分的例子没人试过吗? Canvas.StretchDraw在WinMe有效,但在Win2000无效?!得如何解决? 本人急求《深度探索C++对象模型》一书完整E版 寻《深度探索C++对象模型》一书完整E版! 想从C++转到DELPHI,请前辈们指点一二 请问那里有.NET基类的详细介绍?提供者给分。 网页上的图片都是怎么切割的? 什么叫hr? 求教组网方案!有实践经验者请进 帮助看看用什么控件比较好。 OLE打开Excel文件的问题 关于c远程调用 这个病毒太狠了! 如何将IE打印功能去掉?禁止别人打印网页? 请教关于TImageList中存储多幅图片的问题 100分赠送 寻架构? 请教高手:如何在VB开发的程序中准确判断用户的可用内存? 用jb怎么在另一个类中控制frame中的一个label的text的实时的变化?多谢 如何制作PB应用程序的安装程序?高分求救。 WinXP里怎样备份norton antivirs的升级数据? 我只是给自己加点分啦 快救救我吧,我的存储过程返回值有问题?? 日文原码想在中文环境中运行可不可能 JBoss高手看过来! 下面的js执行错误,请看看 请教高手:如何当一个程序被反复调用时利用command$? 声明游标时可否用变量? 能不能提供几个漂亮的repeater控件的模版? dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "报错,在线等待 有没有什么工具或办法可以将Tc 下的程序移植到linux下运行? 求助! 请教!急! 世间什么才是最珍贵的? 大家來說說2003年版<射雕>的敗筆. 请教:如何在VB开发的程序中判断一个程序在硬盘上的安装路径? 帮忙!谢谢! 此类问题如何查询? 请教个问题:每次启动机器都会打开IE跳到我们这边的一个内部网站去,本来启动就慢----火死了,怎么去掉---在注册表了改么? combo控件问题. 问一个关于刚开机的win.com的问题。请高手帮帮忙呀! dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "报错,在线等待 请问我如何在注册网站成功后,在exchange中也建立一个与注册网站时同名的帐号呢? 君子:忠言而善道,不可则止, 一道关于遗传信息转录的生物题有图,描述一下就是把DNA,ATP,酶,核糖核苷酸都加入到试管中培养假如试管中加入的DNA含有306个碱基,那么产物中最多含有多少个碱基?有多少个密码子? 晏子是个怎样的人,理由是什么 忠言顺耳利于行什么意思RT (1)转录 → (2) 碱基互补配对 RNA RNA聚合酶 蛋白质(3)磷酸基和碱基 五碳糖(b为脱氧核糖,c为核糖)(4)线粒体 叶绿体关键是第一问,怎么判断顺序的 晏子是个怎样的人 于丹的”君子:忠言而善道, 关于DNA转录的某DNA片段所转录的rRNA中尿嘧啶占28%,腺嘌呤占18%,则这个DNA片段中胸腺嘧啶和鸟嘌呤分别占多少? 晏子是个怎样的人,从哪里看的出 小学四年级的题直言和忠言的意思 寡人之于国也的于是什么意思 碘被公认为人类的“智慧元素”下列关于碘的说法错误的是?A碘元素是非金属元素 B相对原子质量为126.9克C质子数为53 D原子序数为53 纸上谈兵、破釜成舟、惊弓之鸟、滥竽充数相对的主要人物是谁.:)纸上谈兵、破釜成舟、惊弓之鸟、滥竽充数相对的主要人物是谁. 英语翻译从上自劳军~`可得而犯邪! 碘是智力元素,那么硒呢?还有什么其他的吗? 滥竽充数,乐不思蜀,卧薪尝胆,凿壁偷光,纸上谈兵,闻鸡起舞,投笔从戎的主人公是谁? 视在功率是怎么计算出来的 稳压器的延时选择短与长是什么意思开着的时候不知道按短与长哪个好 树之以桑中的之 和寡人之于国也的之分别的什么意思如题 关于视在功率的计算在R.L并联的正弦交流电路中,R=40欧,XL=30欧,电路的无功功率Q=480VA,则视在功率S=多少?求过程与答案,谢谢! 碳酸钙和水发生化学反应吗?生成的是碳酸和氧化钙吗 《寡人之于国也》中树之以桑的“之”是什么用法?是助词吗? 视在功率与有功率如何计算 各风带中,一般多雨的是哪个风带 √ 忠言虽逆耳,对朋友说真实的想法.好吗. 孟子《寡人之于国也》中,“树之以桑”与“填然鼓之”,两个“之”的意义和用法是否一致? 三相交流电视在功率如何计算 是三个视在功率之和? 朋友在你有困难的时候他就会出现,在你的身边,朋友说的话总是逆耳忠言是什么歌? 《寡人之于国也》中“树之以桑”是谓语前置句吗?那“之”是什么意思和用法 糖尿病人怎么打胰岛素 我的好朋友经常因为一些小事情和同学吵架,我会用一、二句忠言劝劝他( ) 什么叫转录组、转录组学?研究转录组学有何意义 dna分子复制与转录的区别 包括图像上 这张图从网上找来的不知道标的转录方向是不是对的?我答案上也是这样.T T百度↓百度上说转录方向是RNA聚合酶将去的方向,(也就是还没有mRNA形成的地 ).第一幅图不应该是往右吗? 翻录是什么意思 细胞中具有双膜结构的是( )A质体 B溶酶体 C 核糖体 如何判断转录的方向怎么判断它的转录方向的?不是应该向右吗?我个人观点:mRNA右边有伸长突出的部分,不是说明向右转录了么? 转制是什么意思 木炭,酒精,石蜡,水哪个不能与水发生反应 生物学中转录的产物是什么 转录人员是什么意思? 黑木炭怎么点能快点着(火)起来?有谁野外烧烤过,那个炭太不好着了,开始的时候怎么起火让它着起来?3L 加盐是怎么回事? 转录方向如何判断, 青州市的弥河是怎样形成的 将酒精滴在过滤纸上然后点燃,将火熄灭后为什么纸上留下一个黑色的炭环 《闻一多先生的说和做》作者选取了哪几个事例来表现学者闻一多先生?详略上是怎样处理的? 青州弥河蛋糕店的电话定生日蛋糕 晏子谏因鸟杀人中晏子是怎样进行劝谏的?景公是个怎样的人?为什么听了晏子的话便不杀烛皱? 关于光合作用的问题…细胞的光合作用产生了能量可供细胞新陈代谢的各项活动所需.但是我不明白的是,能量,不就是ATP么?那它产生能量,使得ADP转化成ATP,那不就是能量产生了能量了吗?求解! 弥河位于青州什么方向 晏子是一个怎样的人 寡人之于国也一句,其中"之"的意思是啥?请教达人给出分析. 青州兵 青州在哪里 下列各项中,不属于器官的是:A皮肤 B骨 C脑 D血液 寡人之于国也中“之于”如何解释?要准确哦,如果解释是“对于”请说下为什么. 什么气体能用浓硫酸进行干燥?加热时 浓硫酸可与铜反应 是由于它具有什么性和酸性,其反应方程式是?一定要清楚点哦. 为什么在重力影响下人体器官不会往下掉?是因为血液浮力还是骨骼支撑器官还是血管支撑? 《寡人之于国也》词义解析请针对问题对字的意思逐一翻译,不要整句的或长篇大论,1、“以”字的意思A、以五十步笑百步B、树之以桑C、申之以孝悌之意2、“喻”请以战喻3、“而”A、弃甲 英语翻译下列关于玉米、蓝藻和变形虫细胞结构和生理功能的叙述,正确的是:A,都能进行细胞分裂,都有细胞周期.B,遗传物质都是DNA,细胞内都有转录和翻译过程.C,细胞内都含有核糖体,但都不 晏子是个什么样的人急用, 少女被人勒昏剪掉双侧乳头 嫌疑人自称男子住宾馆强奸隔壁女子后回原房间睡觉十八届三中全会前瞻:三大焦点构建中国李雪主成为朝第一夫人 传因长得像金正监听丑闻引盟友提高“炮轰” 美国公信突尼斯举办中国电影节温州经济三季报让人眼前一亮 GDP同白宫拒回答是否曾监听默克尔 美德信任朝韩在非军事方面保持合作 朝鲜遣返6供应杭城70%生鲜猪肉 滨江区昨再查冷空气吹开雾霾带来降温 这两天早晨只朝鲜表态强化核力量 美韩揣测朝“核冒国考报名昨天截止 浙江最热门职位33日本媒体爆料杭州绿城主帅冈田武史将离临安破获特大涉毒涉枪案 缴获整枪43温州:成绩将非评价学校教育质量唯一标最高院公开失信者名单 查谁是老赖浙江院士揭露伪大师治病行骗:治疗效果系心商合杭高铁拿到准生证 安吉将结束不通杭州地铁3号线为啥比原先的规划短了十已婚男连续胸袭女同事遭解雇 自称“没瑶瑶聪明调皮会模仿建言加快推动武汉抗战纪念馆建设图文:一亿立方米南水进京占道摊主持刀抗法砍伤协管职业技能大赛省十二届人大常委会第十四次会议召开滁州桃文化旅游节开幕房地产托市政策“三箭齐发”用诚信换信心 培育放心消费高度警惕存在的突出问题一年3000人起步奔小康习作选登聚焦基金业“奥斯卡”清明期间增开32趟客车老夫妻双双决定捐献遗体图片新闻这一次返璞归真,你一定不要错过!无锡大妈惊艳苏州金鸡湖 太康长跑队再无锡大妈惊艳苏州金鸡湖 太康长跑队再农行首笔农地产权抵押贷在常州发放苏州启动校园引才计划
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘