vb闪烁的标题栏

领测软件测试网

下一页 1 2 

　　 

　　本例通过调用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（非零）

文章来源于领测软件测试网 https://www.ltesting.net/