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

在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使它它变为活动方式,则窗体的标题栏将不再闪烁
【SDCC讲师专访】百度乔刚:前端可视化难点分析及探索实践 【CTO讲堂】Growth Hacking背后,数据分析平台的架构调整 BAT、巨杉、南大、柏睿等齐聚SDCC—新一代数据库专场议题曝光! 《近匠》BeeCloud创始人黄君贤:三行代码集成支付的技术实现 【SDCC讲师专访】AdMaster技术副总裁卢亿雷:分布式数据库挑战与分析 tvOS真的代表了应用的未来吗? 使用Fetch API和ES6生成器构建异步API Android应用性能优化实践 华云数据:OpenStack的技术践行之路 【SDCC讲师专访】腾讯潘安群:腾讯云金融级数据库TDSQL分析 高颜值、高品质——安全技术论坛议题曝光! 移动应用开发者正饱受折磨 在Android平台上加载本地库的危险性 《近匠》程序员客栈,程序员背后的经纪人 【CTO讲堂】浅析工业级物联网项目的快速开发 云适配陈本峰:平台型企业级浏览器是未来办公移动化的核心 警报:XcodeGhost已扩散至第三方框架 我们眼中的应用另一端是什么? 【SDCC讲师专访】百度马如悦:不写代码的架构师不是好架构师 企业级应用避免臃肿混乱的6大黄金法则 SDCC 2015讲师专访精彩集锦:程序员界“香饽饽”、大神级人物都在! 从技术经理的角度算一算,如何可以多快好省的做个App(一) 【SDCC讲师专访】Java泛型作者Gilad Bracha:优秀的程序员应该未雨绸缪 【CTO讲堂】微服务架构在云端的应用 SDCC 2015创业项目路演火爆征集:寻找中国好项目 被遗忘的设计模式——详解Swift语言中的Null Object Pattern Synaptics发布全新触控及生物识别方案,正式进军车联网 无人机、机器人,英特尔RealSense已扩展至新领域 SDCC 2015中国软件开发者大会盛大开幕 《近匠》逸创云客服创始人叶翔:做好客服产品静待SaaS大爆发时代的到来 【SDCC2015现场】数据库实战论坛:分布式数据库的实践与挑战 如何用Hook捕获鼠标移动消息? 十万火急,关于Unix下C编程(FTP传输方面) tripofdream(梦之旅)!怎么样也要谢谢你,我的工资有你的一半。 急急急!!! PB6.5与MS SQL7.0连接问题 调查一下,青蛙举左手,恐龙举右手,比例是多少 各位请帮忙!!急需PB5下载!! 调查:大家作何打扮? 關于Exchange Server的管理!!! 软件发布:华容道 如何用PHP在页面里调用word编辑器,使之能在网页上编辑WORD文档? sql server 数据库ccyy,restore时总出错? DELPHI文本操作得一個小問題,請各位指教!!!! 关于鼠标左键单击与按住不放的区别? 高分求问,数据源的问题! 建议增加我的收藏夹功能 求教包容器问题 一个三层数据库的问题: VB爱好者们,帮小弟个忙!!!谢谢 怎么样动态建立一个新的ADOTable?? 十万火急,关于Unix平台下C编程(FTP传输方面) 我的英文还凑合,那么我应该选择4 中文版,还是 5英文版?(众所周知,5中文版翻译太差) 求开发 ActiveX Libary 的详细步骤! Com Object 与 Automation Object 区别,如何用? 用VB如何处理多个用户同时操作一个DBF文件的错误? 一个进程为VC2.0, 另一个为VC6编的MFC程序。如何控制从第2个控制第一个进程? 请assdeng(山野村夫)看看 pb,delphi,vb三种快速成型的语言都分别适合开发那些软件?欢迎大家来讨论 请问各位同仁如何设置sybase anywhere服务器参数? 串口通讯能否用pb做成动态连接库的形式?(急) 怎样使Response.redirect打开一个新窗口 为什么环境变量替换不正确? 怎么打开foxpro中,通过剪切板考过去的图片,dbimage和image控件都不能打开,显示“bitmap is not valid” vaj中如何使用自己的JAR? 怎样改变当前窗口的大小,是当前窗口最大化? 高手争峰 如何把一个log文件读到数据结构中去 请教一个很菜的问题:) 这个程序有什么问题? 怎样做???? 简单问题,可就是搞不定!! 请问jsp中servelet在win2000中的设置方法,需要下载什么类库文件么? 一个新问题,那就是点击工具栏的退出按钮以后只退出当前打开的窗口,而不是整个应用! 如何在 index.htm 中引用 count.asp ? 远程数据库访问的问题--亟待高手们解答 王国荣的电子信箱是哪里? 我的程序生活 先给50分,稍后在加:我正在做一个系统,需要做到每次开机时提醒用户有哪些事情要做! [Tips]获取Memo&Richedit中光标坐标的最简单方法! 急急,如何才能把图片的底色与窗口的底色自然地融为一体? 如何改变按钮的颜色? 在mtml help workshop 中如何制作带上下文关联ID的帮助 调试程序时,控制台程序与直接建立的C++程序有区别吗? 动物园 作文我看了 长颈鹿 斑马 海狮表演 老虎狮子的 别复制无关的就行了~ 国庆节动物园的成人门票每张8元,儿童门票半价每张4元,全天共售3000张票,总收入15600元.这一天售出的成人票和儿童票各多少张? 某校26名老师带领600名学生到公园游玩.游园票价格如下表,你会设计购票方案吗?成人16元儿童8元团体10元1 反对动物被养在动物园的英语短篇作文不需要很长、 单词易懂、最好有中文 六一儿童节,某动物园的成人门票每张8元,儿童票半价,全天共售出门票3000张,共收入15600元,则这天售出了成人票和儿童票各多少张? 王老师带领6名学生去公园游玩.成人票价每张30元,儿童可享受半价优惠.带150元够不够买票? 关于动物的英语小作文,是说自己的动物园里你可以看到什么动物,然后要写出动物的特点习惯,大约150字!别太多了!也别太少. 国庆节动物园的成人票是8元,儿童票4元.全天共售票3000张,总收入15600元,一天售成人票和儿童票各多少张?(方程解答) 3位老师带42位小学生去公园游玩 他们最少要交多少钱门票钱 成人9.5元 学生5.5元 团体6.5元[10人以上]急 帮忙 求英语作文一篇,写动物园猴子. 张小冬和刘文斌由他的爸爸带着,一起去动物园游玩.(修改病句) 4位老师带110名学生到公园游玩,门票共付472元.学生票价是多少元?游客须知:学生票价是成人票的一半. 一篇写去动物园的英语作文,初一水平就行,80词以上 张小东和刘小斌由他的爸爸带着,一起去动物园游玩.(修改病句)急啊!只有1小时的时间, 7位老师带领46名学生到公园游玩,怎样够票最合算 ,共需要多钱?学生15,成人30元,团体18元,(30人以上)急, 写一篇关于去动物园的英语作文不少于130个词 修改病句;1,我听到动听的声音美丽的笑脸,2,我们全校师生和老师去动物园游玩.3,天下着大雨和大风 . 5位老师带48名同学去参观动物园怎样买最合算,成人票十元学生票五元,集体票,十人以上六元 一篇关于动物园的英语作文假如今天是星期六,你和你的外教老师Mark一起去了动物园。请你根据以下要点提示写一篇50词左右的短文,简要讲述你在动物园里的见闻。开头已给,不计入总次 李老师带38名同学去动物园观看大象表演,成人票每人30元,儿童半价,购买门票一共需要多少元? 学校组织六年级200名师生去参观动物园,共付门票1085元.已知每张成人票是10元,每张学生票是5元.去动物园参观的老师和学生各有多少人? 快 急 要的过程详细点 以去动物园为题写一篇英语作文 王老师和李老师带来领39名学生一起参观动物园请你设计一个购买门票的方案即让所以的学生和老师都能进入动物园游玩又花钱最少? 成人票每人3元 儿童票每人2元 团体票15元( 可供10人参 小梅和奶奶去动物园玩.买门票时奶奶付了50元钱,找回了8元.已知学生价是成人票价的一半,学生票和成人票的票价各是多少元? 假设星期天你和Tom一起去动物园看动物,你们喜欢的动物各不相同.请根据情况,写一篇英语作文 李老师带一批学生去动物园秋游,售票员告诉老师两种优惠方案:一种是老师免费,学生按7.25折优惠;一种是全体师按7折优惠,若从费用角度思考,应选择哪种方案? 三年级3名老师,带50名学生去植物园,门票【成人10元,儿童5元,团体票10人以上6元】怎样买票合算 至少50字的介绍朋友的英语短文, 写一篇关于在动物园养动物好不好的英语作文,100词左右.三点二十之前要 光华小学二年级的老师带同学去参观动物园,门票儿童20元,成人40元,两位老师带48位同学去参观动物园,买门票一共需要多少钱? 200字《我的朋友》英文作文 急急急、求一篇100词的英语作文,内容:动物园里笼养动物好不好?要点:1有机会亲眼目睹野生动物,2有助于培养对动物和自然的爱,3能保护动物免于野生环境的危险悬赏 六(1)班45名学生到动物园去参观,门口的价格牌上写着"每人5元,团队票八五折优惠".这个班买团体票可以节省多少元钱? 缩减英语文章到50词The writer went to the theatre last week,he didn't enjoy the play. A young man and a young woman were sitting behind him. They were talking loudly which made him couldn't hear the actors. He turned round,said "I can't 以“把动物关到动物园应不应该”为核心的英语作文,100字以上.写一篇英语作文.用英语写关于该不该把动物关到动物园或者杂技团来饲养. 某班55名学生到动物园去参观,门口的价格牌上写着“每人5元,60张以上为团体票,团体票八五折优惠”这个班怎样买票比较合适?可节省多少元? 去动物园的作文是说“我”怎样玩的 中学描写动物的英语作文要写爱好 性格 习性 地址 外表 吃的现在就要 某班55名学生到动物园去参观,门口的价格牌上写着"每人5元,团体票八五折优惠,"这个班怎样买票合算 500字作文我去了动物园 求一篇英语作文,写动物园猴子的. 六一班40名学生到动物园参观,门口的价格牌上写着“每人5元,团体票八五折优惠”.这个班买团体票参观可节省多少元 作文动物园的结尾怎么写! 请根据以下提示,用英语写篇短文介绍你市动物园的情况1.中国最大的动物园之一,有数百种动物.2.有几十种鸟,黄色的,绿色的,橘红色的,棕色的,歌声特别美妙.3.有大大小小的许多猴子,很活跃, 十八名同学去动物园参观,学生每人2元,20人以上团体票安八折出售,怎么买票合适? 去动物园作文 江西南昌新动物园的作文 某公园门票的价格是每位20元,20以上(含20人)的团体票8折优惠.现有18位游客要进该公园,如果他们买20人 长沙生态动物园作文,500字,速度 成人票每张50元 儿童票每张30元 售出门票700张 共得29000元 设儿童票为x 可列方程()A.30x+50(700-x)=29000B.50x+30(700-x)=29000C.30x+50(700+x)=29000D.50x+30(700+x)=29000 北京故宫博物馆的门票是每位60元,20人以上(含20人)的团体票8折优惠,现有18位游客买20人的团体票,问:比买普通票总共便宜多少钱?此外,不足20人时,多少人买20的团体票才比普通票便宜? 描写动物园里的动物 小作文(100字以内,缺少个性的动物,1只)please,please,please,please,qiuckly ‘六一儿’童节,某动物园的成人票每张8元,儿童门票半价,全天共售出门票3000张,共收入15600元,则这一售出成人票多少张,儿童票多少张? 某博物馆门票每位10元,20 人以上地(含20 人)团体票8折优惠,先有18名学生按20人购买团体票 高分悬赏~!比买普通票便宜多少元钱?当参观的学生人数不足20人时,至少应有多少人才可买20人的团体 关于动物园的作文 动物园售两种门票成人票每张8元儿童票每张5元周日哪天售出成人票和儿童票数量相同共收入910这两种门票各售出多少张? 18名同学到动物园去观赏动物,在动物园的售票处写着:学生票每人2元,20人以上的团体票按八折优惠.请问他们该如何买票?(写出所有方案并选出你认为合理的方案)但他共18人能买团体票吗? 作文 关于动物园200字哦 动物园成人票8元,儿童票4元全天共售3000张,共收入15600元.问售出成人票和儿童票各多少张. 某学校15名教师带领215名学生参观动物园,售票窗口告示如下:成人票每张20元,学生票每张10元,团体票(满20人)每张15元.请你设计一套买票方案(既符合规定,又花钱较少),并计算你的方案需
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn