发表评论(0)作者：不详, 平台：VB6.0+Win98, 阅读：8945, 日期：2001-09-17

 建立闪烁的视窗title


作者: cww　

Option Explicit
Private Declare Function FlashWindow  Lib "user32" (  ByVal hwnd As Long, ByVal bInvert As Long ) As Long
注释：hwnd 是待闪烁的window
注释：binvert 1 表视窗title会闪一次

注释：开始闪烁
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
注释：停上title闪烁
Private Sub Command2_Click()
Timer1.Enabled = False
注释：Call FlashWindow(hwnd, CLng(False))
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 500
End Sub

Private Sub timer1_Timer()
Dim lRtn As Long
注释：每执行一次则闪一次
lRtn = FlashWindow(hwnd, CLng(True))
End Sub