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

在VB中实现闪动标题栏

HTML文档下载 WORD文档下载 PDF文档下载
在VB中实现闪动标题栏
摘要
在你的应用程序中,你可能会希望将应用程序的标题栏进行闪动,以提醒用户进行某种操作,本文介绍了如何使一个窗口的标题栏进行闪动。

闪动标题栏
闪动一个窗口的标题栏意味着改变它的标题栏的外观,例如它从活动变为不活动,或是从不活动变为活动等等。只要你能在Visual Basic中得到窗口的句柄,你就可以使用Windows 应用程序编程接口(API)函数来使该窗口的标题栏进行闪动。函数FlashWindows可以被用使一个特定的窗口闪动一次。要使用该函数,需要将如下的声明语句包含在你的窗体的通用声明部分中:

#If Win32 Then
Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
#Else
Declare Function FlashWindow Lib "User" (ByVal hwnd As Integer, ByVal bInvert As Integer) As Integer
#End If

该函数需要2个参数,第一个参数是要闪动标题栏的窗口的句柄,第二个参数用于指定是设置窗口的闪动状态,还是恢复其原始状态。如果该bInvert参数非0,则表明窗口的标题栏被闪动,如果该参数为0,则表明窗口的标题栏被恢复为原始状态。该函数所返回的值用于指定调用该函数前窗口的状态,如果该返回值非0,则表明窗口在调用该函数之前是活动的,否则,如果返回值为0,则表明调用函数前窗口是非活动的。当使用该FlashWindow函数时,一个较好的方法是将标题栏闪动的频率设置为同脱字符(也即闪动的光标)相同,脱字符的闪动频率可以通过调用函数GetCaretBlinkTime来获得。要使用该函数,需要将如下的声明语句包含在你的窗体的通用声明部分中:

#If Win32 Then
Declare Function GetCaretBlinkTime Lib "user32" () As Long
#Else
Declare Function GetCaretBlinkTime Lib "User" () As Integer
#End If

该函数返回用毫秒值表示的时间。

样例程序

1. 在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。
2. 在Form1上添加一个定时器控件,采用缺省的方法建立Timer1。
3. 将如下的代码添加到Form1的Form_GotFocus事件中:

Private Sub Form_GotFocus()
Timer1.Enabled = False
End Sub
4. 将如下的代码添加到Form1的Form_Load事件中:

Private Sub Form_Load()
Timer1.Interval = GetCaretBlinkTime()
Form2.Show
End Sub

5. 将如下的代码添加到Timer1的Timer1_Timer事件中:

Private Sub Timer1_Timer()
Success = FlashWindow(Form1.hwnd, 1)
End Sub

6. 添加第二个窗体,采用缺省的方法建立Form2。

7. 将如下的代码添加到Form2的单击事件中:

Private Sub Form_Click()
Form1.Timer1.Enabled = True
End Sub

8. 添加一个新的模块,采用缺省的方法建立Module1.Bas。将如下的代码添加到该模块的通用声明部分中:

#If Win32 Then
Declare Function FlashWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bInvert As Long) As Long

Declare Function GetCaretBlinkTime Lib "user32" () As Long

Dim Success As Long

#Else

Declare Function FlashWindow Lib "User" ( _
ByVal hwnd As Integer, _
ByVal bInvert As Integer) As Integer

Declare Function GetCaretBlinkTime Lib "User" () As Integer

Dim Success As Integer

#End If

通过单击F5键来运行该样例程序,单击Form2窗体,这时Form1窗体将处于非活动方式,其标题栏将会不断闪烁。单击Form1使它它变为活动方式,则窗体的标题栏将不再闪烁
3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 Google可穿戴:详解Android Wear的十大功能 初创企业非技术人员的迷思 【OSTC讲师专访】王兴博:Genesis-3D,3D开源游戏引擎 Facebook发布开源项目Tweaks,让iOS应用开发更加便捷 移动开发创业团队再下一城!UCloud与飞流战略合作 【走进支付宝】即将开场,问题大征集! 开发者薪资调查:半数开发者工作十年方可迎来好“薪”情 沟通更畅快 HipChat推出1对1视频和屏幕共享功能 AMD宣布支持DirectX 12 为游戏开发者带来更多福利 开发者薪资调查:2013年哪种编程语言最赚钱? 苹果挖墙脚未果,黑莓高管跳槽被起诉 不看不知道:六个超大规模Hadoop部署案例 豌豆荚发布应用内搜索技术协议 兼容App Indexing Oculus 21岁鬼才创始人:收购不等于改变 Unite China 2014课程解析:Unity教育行业专场免费开放 Instagram技术窥探,助你打造响应式App 切勿妄谈Hadoop,以及4个数据管道打造实践 一周消息树:雨果&#183;巴拉与小米的那些事儿 《近匠》轻邮联合创始人Wesley:移动App要有撼动企业服务的野心 Facebook开源MySQL分支,谷歌、LinkedIn、Twitter等大拿捧场 淘宝明风:基于Graphx的图计算实践分享 Applet从html中读取参数信息????? 在win98里可上网,但为什么不能查看网络邻居的属性?(在线等!!!) 关于超星的问题 有谁知道win2003+sql2000的问题? 怎么删除表中列的DEFAULT啊??? 高手请进,将程序加为服务 关于邮件服务器 组件编写中的问题--如何显示图标 记得以前学计算机的热情很大,并且非常希望有一台计算机,可是现在机器有了,却没有了以前的热情,经典书买了一堆却都没有看,我在想到底要不 关于超星的问题 大家装了windows server 2003么?怎么样啊?讨论一下好么!! 救救我吖!!怎样在oracle8.0.5中直接添加数据!!高分!急!! 大问题!!!装2003后网卡驱程不行,声卡装了听不到声音??? java能不能实现多文档(象VC++中)? 哪位E文好的同志能把这段话翻译出来,是RFC1928中的一段。 一个比较低级的问题-vb里面的回车换行孵的ASCII码是多少?? 奇怪!!!奇怪!!!奇怪!!!奇怪!!!快来看看! 谁知道windows的按文件名排序是怎么回事阿? ie问题 如何从一个框架调用另一个框架的方法?有办法吗?(在线) 突然觉得计算机语言有个误区 请问我用depends打开了dll文件,看到了里面的函数,但是参数表和返回值类型没有啊 水晶报表急问,大家帮帮忙看看! 请教文件查找的问题。 谁知道windows的按文件名排序是怎么回事阿? oracle难学吗 <jsp:getProperty name="userInfor" property="*"/> 出错!!(在线等待) 如何在vb中设置Combo的默认值?立刻给分 点击按纽,打开应用程序文件,并获得应用程序的窗口标题,怎么实现??? Linux遇到CORBA问题——高分有送! 新的IBM 60G硬盘(7200转)在PII上检测不到(硬盘没问题,在其他上能正常使用,有没有解决办法?) 21世纪合格人材必备7大技能 对加密感兴趣的同志请进,介绍一下有关书籍和代码。 word中的特殊数学符号无法在Authorware中显示 windows 下刪除文件是怎麼刪除的用什麼函數??? 找一部电影,《国家的敌人》 高分送高人:一个OLE和数据库的小问题 父子表的更新怎么办? 电话拨号程序,给点提示 关于调用存储过程的问题!在线,搞定就结 求问,关于BEA weblogic 7.0 100分求助Windows Server 2003 的cdk! 那位大侠帮忙谢谢! hello 大家好!不好意思又有问题了 我一直想学会的一个简单问题,谢谢! 问一个参数传递的超菜问题? 怎样才能将资源文件中的 图片 二进制文件 保存到磁盘上 请教这句是什么意思? 关于页面设计的问题?高手请教!! 100分求助Windows Server 2003 的cdk! 那位大侠帮忙谢谢! matlab s-矩阵(若回答满意加100分,每题25分) 关于页面设计的问题,求助? 物理为什么Q吸=Q放.这是一个公式吗,有没有什么要求的.速解, 求解释第4小题 求解释38题的所有选项,和第39题 求解释第45题 我悠然前行什么意思 初三物理关于Q=cmt的计算题一个铁球的质量是10g,放在火炉中加热较长时间后,取出立即投入14摄氏度,质量为60g的水中,水温最终升至25摄氏度.已知铁的比热容为460J/(kg*摄氏度),求火炉中火焰 请问,第九题的选项A为什么错误? D1和cif的区别是什么?关于图像监控方面的问题 关于Q吸的物理题用太阳能热水器将30Kg、温度为20℃的水加热到45℃,水吸收的热量为多少J? 我得到了启示550字以上,急,好的加分 ____ do you think has left the message on the wall?A What B How C Whom D Who 英语翻译文书有气卦生忧世位逢冲是不同欲问功名芹淑里当回窗下且藏修j 全宇宙比流离更加脑残的生物 如何应用表观遗传学研究癌基因的致癌作用 大家知道问学堂口语宝价格多少么?想买呢,去哪里比较好呢? 如何翻译成英语 中国汉朝有句古话,家庭快乐则天下太平 我得到了启示.(扩句) 若x小于2时,求代数式x-2/ |x-2|的值, 翻译 一句中国古语~~a king shall be anxious for the misgivings before others are fear of that, and showing the happiness after others feel happyeveryone is responsible for the nation’s survive and decline 塑钢窗变黄怎么处理? 一个人应该必须具有的品质有哪些 雪地摩托-英语怎么写?在汉语中”雪地摩托”是一个词,不知道在英语应该怎么写啊?有知道的.麻烦一下.谢谢了 一个小球在半径为40cm的圆形轨道上做匀速圆周运动,若他在0.5s内转过了45°角,求小球的线速度和向心加速度 问学堂的口语宝好用吗?朋友给孩子买的口语宝,孩子挺喜欢的,英语提高的还挺快,看看给孩子买用过的朋友来说说啊 函数不行吧谁创建的? 一颗卫星在距地球高度为h的轨道上匀速圆周运动,周期为t,地球半径为r,求卫星线速度,还有物体在地球表面下落的加速度和地球的宇宙第一速度, 一个人应该具有的品质有哪些? 监察和监管分别是什么意思啊 万二中暑假生活数学部分的几何部分和初一易错题集发答案到时候可以来找我跪谢 一个人应该具备哪些素质写个作文 印迹清晰,即印即干.英语怎么说? 饮湖上初晴后雨中的”西子“指(    ). 有关【错题集】我之前都没怎么做过错题集 但是一直听别人说好.所以有一些问题:.各科错题都用一个本子吗 还是一科一本【一科一本会不会太多了,书包很重伤不起.】 .是所有错题都往上 饮湖上初晴后雨 前两句比喻什么 欲把西湖比西子的西湖指哪里的西湖就是西湖是哪个市的西湖 我听朋友说是杭州 但有的说是惠州 一个人的成功,必须具备哪些品质. 二鸿文言文的中心思想是什么呀, 治世不一道 便国不法古体现了商鞅什么样的主张 你觉得一个人成功最需要具备的品质是什么? 阴阳眼如何开 商鞅的:治世不一道,便国不法古. 口语宝有那么好吗?最近我听说我一个邻居给他的小孩买了口语宝,他小孩的英语成绩直线上升,就是不知道这个对我小孩有没有用. 怎么开阴阳眼(方法简便,)什么用牛眼泪,什么又,吞 乌鸦眼, 还有看过很多,都没用.我只想开开阴阳眼,回答得好 加分100...!顺便拜个会抓鬼的师傅,我想 跟他学学 英语翻译请问,把“真爱传奇”翻译成英文怎样译才最有深意呢,True Love The Legends 这样拼写正确吗,还有没有更好的译法? 口语宝好用吗? 英语翻译:她只是普通水平 扇形的面积挂钟的时针长7厘米,从1点到6点,时针扫过的面积算式是() 某探空气球(包括其下面的吊篮)与其下方吊篮中物体的质量之比为1:2,吊篮所受的浮力和空气阻力忽略不计,气球所受的空气阻力与速度成正比,所受浮力始终保持不变,此时气球以1米/秒的 怎样靠接电池负极的开关通断来控制三极管的通断呢?如图要在电池正极和D2阳极之间接入三极管之类的,达到S1断开时,三极管截止,电池正极和D2阳极之间为断开,S1闭合时,三极管饱和,电池正极 函数F(x)=A(x)-B(x),有没有一个公式或定理来讨论或是证明在定义域内的任一x,A(x)>B(X)例如函数F(x)=A(x)-B(x),有没有相关公式或定理来讨论或是证明在定义域内的任一x,A(x)>B(X).因为有的函数像f(x) .Q】如图附1所示为一个“W”形的容器,左边管内装有一些水,右边管中装有某种油,中间部分封闭了一些气体.则由图中数据可求得这种油的密度ρ油=_________kg/m3,封闭气体比外界大气压大_______ 把电池里面的电能输给用电器为什么还连接负极 在开始里关闭计算机时突然出现希望计算机做什么 怎样恢复原来的关机方式 英语翻译把中国的事情办好,本身就是我们对国际社会能尽的最重要责任我的翻译是:the most important duty China can fulfill is to deal with its own affairs well.2楼的高手翻译的好高深阿,能不能解释下, 从电源正极先经过用电器后经过开关最后回到负极用电器会亮吗? 悠然的意思 问学堂口语宝怎么样 第21和22题双选题 悠然什么意思 口语宝怎么样 [娱乐]世界上最脑残的生物是什么?这是娱乐,何必当真. 悠然的意思?在线等. 斯诺登发公开信谴责美英 吁全球性解决埃及“世纪审判”再被推迟纽约商品交易所黄金期货市场4日上涨叙利亚强调将在战乱期间保障民众医疗条北京中小学禁售碳酸饮料引争议 被指管油价4日上涨美元对主要货币汇率4日下跌俄大力保护文化遗产穆沙拉夫获保释有望结束软禁 仍被阻止美对冲基金巨头因内幕交易被罚18亿美湖南3名遇害学童集体下葬 家属呼吁加湖南警方确认杀3儿童案疑犯仅一人 动印度今日发射火星探测器 否认与中国竞克里抵沙特修补关系 大赞沙特重要战略冀中星要求公开殴打致残案复查结论被驳初生男婴医院被盗 湖北通城人民医院承冀鲁浙豫皖等地侦破多起街头“包小姐”印度今日发射火星探测器 否认与中国竞北京整形机构调查 韩国“名医”多为游“公安大V”陈里任职中央政法委 关注转基因食品标识混乱 专家建议修法对管2017冷年奥克斯打造新跑道:变频机40.4℃!今夏最高温袭主城40.4℃!今夏最高温袭主城重庆晨报璧山公开(考核)招聘73人 23日开永川籍贫困生外地读大学,有望获免费机看电影好棒 想马上和爸爸妈妈分享重庆晨报A股险守3100 地产股纷纷效仿万科重庆晨报重庆女子半马官微开“跑马妞妞”专栏今天零时起 93号汽油涨0.14元/9月重庆车交会 如何买到便宜车 听车官微开“跑马妞妞”专栏綦江永川版画在重庆美术馆开展爱心,在我们身边传递宁泽涛乘地铁遭女粉丝包围羞涩低头五万品牌低价推出千余款新品市委召开座谈会就四届九次全会有关文件“重庆男性疑难病名医亲诊”患者就医热尹军花瞄准中国女子拳击奥运首金 中国
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘