フォームのタイトルバーを点滅: 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