建立閃爍的視窗title

原始來源: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