フラッシュウィンドウ（�T）             <TOP>

タイトルバーが点滅し目立つようにしたい

FlashWindow ウィンドウタイトル点滅
　

'================================================================
'= タイトルバーを点滅させる
'=    (FlashWindow.bas)
'================================================================
#include "Windows.bi"

' 指定されたウィンドウを一度フラッシュする
Declare Function Api_FlashWindow& Lib "user32" Alias "FlashWindow" (ByVal hWnd&, ByVal bInvert&)

Var Shared Timer1 As Object
Var Shared Flag As Integer

Timer1.Attach GetDlgItem("Timer1")

'================================================================
'= フォームロード時の処理(インターバル：0〜65535)
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Timer1.SetInterval 50
    Flag = 1
End Sub

'================================================================
'= タイマーの処理
'================================================================
Declare Sub Timer1_Timer edecl ()
Sub Timer1_Timer()
    Var Ret As Long

    Ret = Api_FlashWindow(GethWnd, Flag)

    If Flag = 0 Then
        Flag = 1
    Else if Flag = 1 Then
        Flag = 0
    End if
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End