フォームのタイトルバーを点滅 AccessのTips集

フォームのタイトルバーを点滅

スポンサードリンク

'指定されたウィンドウのタイトルバーを 1 回点滅させます。
Public Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
'ミリ秒単位で実行を中断します
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub コマンド0_Click()
    Dim lRet As Long
    Dim i As Integer

    For i = 1 To 6
'タイトルバーを 1 回点滅
        lRet = FlashWindow(Me.hwnd, True)
'200ミリ秒単位で実行を中断
        Sleep 200
    Next i

End Sub

Access-Access!