闪烁的标题栏

【备注】
该函数通常与一个计数器组合使用，生成连续的闪烁效果。在windows
nt及windows for workgroup中，bInvert参数会被忽略。但在windows 95中不会忽略

【参数表】
hwnd ----------- Long，要闪烁显示的窗口的句柄

bInvert -------- Long，TRUE（非零）表示切换窗口标题；FALSE返回最初状态

Private Declare Function FlashWindow Lib "user32" ( _ ByVal hwnd As Long, ByVal bInvert As Long) As Long

用来标示当前是否处于闪烁状态，取值True/False

Dim OnFlash As Boolean Private Sub Command1_Click()

如果没有闪烁，开始闪烁

If OnFlash = False Then Command1.Caption = "停止闪烁" Timer1.Enabled = True OnFlash = True

否则，停止闪烁

Else Timer1.Enabled = False Command1.Caption = "窗体标题栏闪烁"

这一语句是必须的，不然停止闪烁时标题栏可能会处于灰暗状态

Call FlashWindow(Me.hwnd, False) OnFlash = False End If End Sub

以一定时间间隔闪烁，可以通过改变Timer1控件的Interval属性的值来改变

Private Sub Timer1_Timer()

调用 FlashWindow函数，Me.hwnd是Form1窗体的句柄

Call FlashWindow(Me.hwnd, True) End Sub