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

---

Home　Tips　メニュー

■ Access VBA 実行コード

'指定されたウィンドウのタイトルバーを 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