Windowをフラッシュさせる

Option Explicit

'Windowを点滅させるAPI
Public Declare Function FlashWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bInvert As Long) As Long

'
'Windowをフラッシュさせる
'lnghwnd 対象ウィンドウのハンドル
'lngFlg 1なら非選択状態のタイトルバーに設定
'　　　　0なら選択状態のタイトルバーに設定
'
'引数0と1を交互に設定してこのプロシージャを実行すると
'Windowを点滅できる
Public Sub DoFlash(ByVal lnghwnd As Long, ByVal lngFlg As Long)

'タイトルバーの点滅
Call FlashWindow(lnghwnd, lngFlg)

End Sub

トップページに戻る

Tips一覧に戻る