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

在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使它它变为活动方式,则窗体的标题栏将不再闪烁
云计算大会讲师秀之13:梁家恩,12年积累,构建永久免费的语音云平台 众望所归:智能手机芯片将为服务器所用 没有学位,他通过以下四步进入Google 谈谈Google Polymer以及Web UI框架的未来 保密入髓:前苹果员工揭示公司是如此善于保守秘密 调查显示:软件开发公司出现“人才荒” 三星拟6月20日在伦敦召开新品发布会 推手机新品Galaxy和ATIV 历届中国云计算大会PPT集萃(五):数据安全隐患解析与应对 搞趣网创始人:做不了阳春白雪 就做下里巴人 CMDN Club 28期:创业公司一定不要浪费资源 浅谈Lean UX:我们到底该怎么设计? 张艺谋今日正式加盟乐视 作品专区落户超级电视 WebKit华丽转身:欧朋浏览器8.0新鲜出炉 分析师称应出售Bing?除非微软倒闭,否则不可能卖Bing Go Mobile沙龙第二期:软硬整合与创客精神 专访西电黄宝林:《基于GPU的并行NMF网络聚类算法》获奖背后故事 友友姚宏宇:用C,C++和Java实现自主研发之后,放开心态迎“高朋” 新技术对传统学科的颠覆:系谱网使用大数据寻亲问祖 IDC:2015年全球平板电脑出货量将超PC Web开发者的福利 30段超实用CSS代码 库克出席D11科技大会:苹果公司没有陷入麻烦 千兆的带宽是不够的,最新研究将我们带入400G时代! 告诉你一个事实:移动互联网依然不大 一切才刚刚开始 戴尔的10亿美元云扩建计划到底是什么? iOS vs. Android,应用设计该如何对症下药? 扁平化设计五大原则 16种折磨开发者的方式 2013年度中国优秀开源项目征集活动正式启动 技术趋势:产品设计向“钱”看 服务器领域:旧时代已过 新时代正在降临 速度与金钱的碰撞:F1赛车将搭上大数据的东风 怦怦运气,看看有没有人知道,近来看看 请问有那个网站有关于ORACLE的入门书籍下载. 非常不错的delphi网站 我有一个问题想问问大家!!!有分送哟。 高价收购! 谁可以给我TSR完整的例程...(要有注释喔) 现在用的控件都是D版的,以后怎么注册软件啊? 请过了网络设计师的兄弟帮帮忙! 在C中,找一个字符或字符串在另外一个长字符串(64K)最后出现的位置,怎么实现最高效呢? 用 DHCP 分配了二个网段的IP地址。 “斑竹”在吗?象是只有你能够解决了!!!(附程序及错误代码!!!) 请问哪位仁兄知道SYGATE4.2 build 803的注册码? 如何在表单中阻止双引号??? 大虾们,帮我看看,这个错误和警告是什么原因造成的? 帮帮我吧 关于B/S报表? 怎样设置msflexgrid某一列的颜色? 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? cpk计算公式 I=P/(1.732×U×cosφ×η) 和I=P/(1.732×U×cosφ)那个公式正确 (x-1/x)^5的展开式中含x^3项的二项式系数为? 0乘任何数还是零吗 等比数列中 若项数为2n-1 则S奇与S偶的关系 三相计算公式p=1.732*u*i*cos 中的i 电流是每一相上的吗?请解释一下?谢谢. 0乘任何数都得原数对吗 项数为奇数的等比数列,S奇-a1/S偶=d的证明 是电机计算公式中COSφ是什么意思?是怎样来的 十进制化二进制数 33 =1乘2的五次+0乘2的四次+0乘2的三次+0乘2的二次+0乘2的一次+1乘2的零次=100001对吗? 星形接法和三角形接法在线位和相位上的电流和电压有什么关系 已知(x+y)^n的展开式中各项的二项式系数之和为1024,求展开式中的第3项; (1-根号2)x^2=(1+根号2)x 的一般式____,二次项系数___,常数项___ 已知二项式(X-X方分之1)n次展开式中所有偶数项的系数之和为-512,求二项式系数最大的项 已知(1-2x)^n的展开式中,奇数项的二项式系数之和为64,则(1-2x)^n(1+x)的展开式中,x^4项的系数为? 若(3根号X-1/根号X)^n的展开式中各项系数之和为64,则展开式的常数项为-540是如何算出的? 已知二项式(x-1/x方)n次展开式中所有偶数项的系数和为-512 求二项式系数最大项 已知(1—2x)n的展开式中二项式系数和为64,则它的二项展开式的中间项是? 已知(根号x-2/x^2)^n的展开式中,第五项的系数与第3项的系数的比是56:3,求展开式中的常数项 把一个数缩小1000倍,再把小数点向右移动两位后是80.5,这个数原来是( ) .一台三相电动机有功功率为4KW,功率因数为0.8,接在线电压为380V的三相电源上,求电动机的线电流 求证:若项数为2n-1,则S2n-1=(2n-1)an,且S奇-S偶= an,S奇/S偶= n/ (n-1) (S奇=nan, S偶=(n-1)an) 一台异步电动机 电压为380V功率为15KW 它的电流是多少 公式是什么 急!380V电压10千瓦3相电机电流在18个照这样计算一小时几度电?列出工公式!在此先谢了!? @三相电机星型和三角形接法 三角形接法的相电流小于星型接法的电流?电机选线是根据相电流吗 (1+2x)^n的展开式中第6项与第7项的系数相等.求展开式中二项式系数最大的项和系数最大的项? 三相电机电流计算公式I=P/1.732/U/cosΦ,1.732是什么为什么有个1.732 请教电机三角形接法和星形接法的电压电流详细问题假如一台75KW的三相异步电动机电动机,COS=90%.其三角形接法时相电压,线电压,相电流,线电流各为多少?若同样的电机采用Y型接法,其各指标为 (1+2x)^n的展开式中第6项与第7项的系数相等,求展开式中二项式系数最大的项和系数最大的项……要求步骤精细……! 数列{an}为等比数列,项数为偶数,又各项为正数,所有项之和为偶数项之和的4倍,且a2a4=9(a3+a4),问数列{lgan}前多少项之和最大?guocheng! 已知(x^2-1/根号x)^n的展开式中第三项与第五项的系数之比为3/14,则展开式中常数项是? 已知的(1+2x)n展开式中第6项与第7项的系数相等,求展开式中二项式系数最大的项和系数最大? 电机37KW用变频调速以后功率是多少?求计算公式`` 已知(根号x +2/x)^n展开式中第五项的系数与第三项系数比是10:1,求...已知(根号x +2/x)^n展开式中第五项的系数与第三项系数比是10:1,求展开式中含x的项, 答案是112x, 求解啊要详细过程 以知(1+2X)n次方展开式中第6项与第7项系数相等,求展开式中二项式系数最大的项. 二项式(x^2+1/x)^5的展开式中x^4的系数是 答案是10还是-10,麻烦说下谢谢二项式(x^2-1/x)^5的展开式中x^4的系数是 括号内的是减号,上面打错答案是10还是-10,麻烦说下谢谢 轴承中的内径、外径、厚度 如何计算的?内径、外径到底是直径还是半径?厚度是怎么算的? 已知(1+2x)^n的展开式中第7项和第8项的二项系数相等,求展开式中系数最大的项及二项式系数最大的项 在[X/2-X^(-1/3)]^N的展开式中,只有第5项的二项式系数最大求展开式中的常数项 电机星三角:证明星型启动电流是三角形启动电流的3分之1 一个数的小数点向右移动三位后,再向左移动一位,结果原数( ) A扩大了100倍 B缩小了100倍 C扩大了10倍 D一个数的小数点向右移动三位后,再向左移动一位,结果原数( ) A扩大了100倍 B缩小了10 二项式(1-2/x)^5的展开式中第四项的系数为 星三角启动运行的电动机一般是三角形启动,星形运行吗? 项数为偶数的等比数列所有项之和等于其偶数项之和的4倍第2项与第4项之积为第3项与第4项之和的9倍求通项公式 {an}为等比数列,若a1+a2+a3=26,a4-a1=52,求an 电动机采用星三角连接的条件:星形连接起动电流是三角形直接起动电流的三分之一,但试验中数据有较大出入?稍大于二分之一, 项数为偶数的等比数列的所有项之和等于它的偶数项的和的4倍,第2项与第4项之积为第3项与第四之和的9倍,求该数列的通项公式 在等比数列an中,a1+a2=20,a3+a4=40,则S6 求(2x-1)^5的展开式中各项系数之和及各项的二项式系数之和 项数为偶数的等比数列的所有项之和等于其偶数项之和的4倍,第二项与第四项之积为 三相380V的电机,怎样根据电阻计算功率?一台电压380V的异步电动机.不知道功率,能不能根据它的电阻计算出功率? 在(2x-1/2x)^2的展开式中,奇数项的二项式系数和为32,则含1/x^2的系数为 这个excel公式的意思=IF(B8=0,"",IF(ISERROR(VLOOKUP(B8,#REF!,5,FALSE)),"★",VLOOKUP(B8,#REF!,5,FALSE))) 三相星形接法如何计算功率和电流?2200W,380V的电动机电流是多大?三相星形接法如何计算功率和电流?如2200W,380V的电动机电流是多大?电机上所标的电流是通过单条导线的电流还是三条导线的电 把6.34缩小到原来的一百分之一,就要把小数点向( )移动( )位,得到( ) 如何发挥电子表格中公式的作用 EXCEL如何用公式统计数量?表格总共有2000多行的数据,第一列是日期,第二列是类型,第三列是行业,求第四列是行业数量求在第一列和第二列相同的情况下,求第三列中同一行业的数量.如图,在A列 CPK中δ的计算公式请问一下哪位网友可以说明一下CPK中 计算公式中为什么在除以N-1,而不是N. 三相电机有功功率计算公式:P=1.732×U×I×cosφ,求其推导的全过程? 已知等比数列{an}中,a2,a3,a4分别是某等差数列的第5项,第3项,第2项,且a1=64,公比q≠1(1)求an(2)设bn=log(2)an,求数列{bn}的前n项和Tn
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn