Hatena::ブログ(Diary)

はけの徒然日記 このページをアンテナに追加 RSSフィード

2005 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2006 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 04 | 05 | 08 | 09 | 10 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 10 | 11 |
2011 | 01 | 02 | 03 | 04 | 11 | 12 |
2012 | 02 | 03 | 05 |
2014 | 02 | 03 | 04 | 05 | 12 |
2015 | 05 | 07 | 08 | 09 | 10 | 11 | 12 |
2016 | 01 | 02 | 04 | 05 | 08 | 09 | 11 | 12 |
2017 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 10 |

2016-05-31(Tue)

EXCEL VBAメモ - Windowsライブラリの機能を呼ぶ

こんなこともできるということで、各DLLにどんな機能が入っているか知ってないと使えませんが。。。

64bitと32bit環境宣言の仕方が微妙に違うので注意。

参考


Option Explicit

'64bit PC
Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal ms As LongPtr)
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As LongPtr) As Long

'32bit PC
'Private Declare Sub Sleep Lib "kernel32.dll" (ByVal ms As Long)
'Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Long


Sub sleepSample() ' Sleepサンプル
    Sleep 2000
    MsgBox "2秒間経過"
End Sub


Sub keyInputSample() ' キー入力サンプル

    ' Qキー押下で停止
    Do
        If GetAsyncKeyState(vbKeyLeft) <> 0 Then MsgBox "←キーが押されました"
        If GetAsyncKeyState(vbKeyUp) <> 0 Then MsgBox "↑キーが押されました"
        If GetAsyncKeyState(vbKeyRight) <> 0 Then MsgBox "→キーが押されました"
        If GetAsyncKeyState(vbKeyDown) <> 0 Then MsgBox "↓キーが押されました"
        If GetAsyncKeyState(vbKeyQ) <> 0 Then Exit Do ' Qキー

        Call Sleep(1)
        DoEvents
    Loop
    MsgBox "終了"
End Sub