闪烁的标题栏

		

	

        


 

   　 

    本例通过调用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)

 

　　好了，非常简单，试试把它用到你的程序中去吧。 

上一个：设定StatusBar的文字成不同的颜色
下一个：闪动窗口标题