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

スポンサーリンク




BackHome BackTipsへ Backメニューへ

■ 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

スポンサーリンク




BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft