原始来源:MicroSfot Visual Basic5.0 Developer's WorkShop 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