打印本文 打印本文 关闭窗口 关闭窗口
闪烁的标题栏
作者:武汉SEO闵涛  文章来源:敏韬网  点击数744  更新时间:2009/4/23 14:59:18  文章录入:mintao  责任编辑:mintao
  本例通过调用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(非零)

打印本文 打印本文 关闭窗口 关闭窗口