Visual Basic Tips

フォーム・タイトルバーの点滅(API)

タイトルバーを点滅させるにはFlashWindow関数を使用します。第二引数に１を指定すると、オンの時はオフに、オフの時はオンに変化します。

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

Private Sub Timer1_Timer()
　　Call FlashWindow(Me.hwnd, 1)
End Sub

'-------------------------------------------------------
'
'-------------------------------------------------------
Public Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long


DownLoad vbtips088.lzh 2KB (VB6.0)