当前位置:主页   - 电脑 - 程序设计 - VB
在VB中实现闪动标题栏
来源:网络转载   作者:未知   更新时间:2009-02-03
收藏此页】    【字号    】    【打印】    【关闭
摘要
在你的应用程序中,你可能会希望将应用程序的标题栏进行闪动,以提醒用户进行某种操作,本文介绍了如何使一个窗口的标题栏进行闪动。

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

#IfWin32Then
DeclareFunctionFlashWindowLib"user32"(ByValhwndAsLong,ByValbInvertAsLong)AsLong
#Else
DeclareFunctionFlashWindowLib"User"(ByValhwndAsInteger,ByValbInvertAsInteger)AsInteger
#EndIf

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

#IfWin32Then
DeclareFunctionGetCaretBlinkTimeLib"user32"()AsLong
#Else
DeclareFunctionGetCaretBlinkTimeLib"User"()AsInteger
#EndIf

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

样例程序

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

PrivateSubForm_GotFocus()
Timer1.Enabled=False
EndSub
4.将如下的代码添加到Form1的Form_Load事件中:

PrivateSubForm_Load()
Timer1.Interval=GetCaretBlinkTime()
Form2.Show
EndSub

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

PrivateSubTimer1_Timer()
Success=FlashWindow(Form1.hwnd,1)
EndSub

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

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

PrivateSubForm_Click()
Form1.Timer1.Enabled=True
EndSub

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

#IfWin32Then
DeclareFunctionFlashWindowLib"user32"(_
ByValhwndAsLong,_
ByValbInvertAsLong)AsLong

DeclareFunctionGetCaretBlinkTimeLib"user32"()AsLong

DimSuccessAsLong

#Else

DeclareFunctionFlashWindowLib"User"(_
ByValhwndAsInteger,_
ByValbInvertAsInteger)AsInteger

DeclareFunctionGetCaretBlinkTimeLib"User"()AsInteger

DimSuccessAsInteger

#EndIf

通过单击F5键来运行该样例程序,单击Form2窗体,这时Form1窗体将处于非活动方式,其标题栏将会不断闪烁。单击Form1使它它变为活动方式,则窗体的标题栏将不再闪烁->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明