38.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 28 行

闪烁的标题栏 
   
　 
    本例通过调用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)

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