本例通过调用API函数 FlashWindow 实现了窗体标题栏的闪烁,标题栏的闪烁通常用来引起使用者的注意。
在VB中声明这个API函数的方法是:
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long 其中各个参数的意义如下表所示:
参数 意义
hwnd Long,要闪烁显示的窗口的句柄 bInvert Long,TRUE(非零)表示切换窗口标题;FALSE返回最初状态 返回值 Long,如窗口在调用前处于活动状态,则返回TRUE(非零)
为了使窗体出现闪烁的效果,我们在Timer控件的Timer属性中调用FlashWindow函数即可,使用的方法如下:
Call FlashWindow(Me.hwnd, True) 其中Me.hwnd是当前窗体的句柄,而把bInvert设为True则表示进入标题栏闪烁状态。
而停止闪烁的方法只要把bInvert设为False就行了,如下所示: Call FlashWindow(Me.hwnd, False)
好了,非常简单,试试把它用到你的程序中去吧。
为了学习方便,以下提供了源代码并附详细的中文注释:
------------------------------------------- 一个窗体标题闪烁的例子 ------------------------------------------- 程序说明: 本例通过调用API函数 FlashWindow 实现了窗体标题栏的闪烁,标题栏的闪烁 通常用来引起用户的注意。 ------------------------------------------- 【VB声明】
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long 【说明】 闪烁显示指定窗口。这意味着窗口的标题和说明文字会发生变化,似乎从活动切换到非活动状态、或反向切换。通常对不活动的窗口应用这个函数,引起用户的注意
【返回值】 Long,如窗口在调用前处于活动状态,则返回TRUE(非零)
|