FlashWindow

ウィンドウのキャプションバーをハイライト表示

Declare Function FlashWindow Lib "user32.dll" _

    (ByVal hWnd As Long, ByVal bInvert As Long) As Long

Declare Function FlashWindow Lib "user32.dll" _

    (ByVal hWnd As Integer, ByVal bInvert As Integer) As Integer

BOOL FlashWindow(
HWND hWnd,
BOOL bInvert
);
引数
hWnd

ウィンドウのハンドル

0のとき、ウィンドウは最初の状態に戻る

1のとき、この関数を呼び出すたびに

ウィンドウがアクティブとインアクティブに切り替わる

この関数を呼び出したときにウィンドウがアクティブ	1

アクティブでないとき    0

FlashWindowEx()関数のがより自由に設定できる。

ただしWindows98以上。

ダウンロード(FlashWindow.lzh 1.62KB)

Dim Interval As Long
Private Sub Command1_Click()
If Me.Timer1.Enabled = False Then
    Me.Timer1.Enabled = True
    Me.Command1.Caption = "止める"
Else
    Me.Command1.Caption = "Form1をハイライト表示させる"
    Me.Timer1.Enabled = False
End If
End Sub


Private Sub Command2_Click(Index As Integer)
Interval = Interval - (Index = 0 And Interval < 1000) * 10 + (Index = 1 And Interval > 0) * 10
Me.Text1.Text = Interval
Me.Timer1.Interval = Interval
End Sub


Private Sub Form_Load()
Interval = 200
Me.Timer1.Interval = Interval
Me.Text1.Text = Interval
End Sub


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