コマンドボタン上でカーソルキーの動きを制御したい

Rem グローバル変数

Rem ウィンドウプロシージャハンドル保持変数
Public lpPrevWndProc As Long
Public glHWin1       As Long

Rem ２回同じプロシージャフックを呼ぶと暴走するのでそれを防止する
Public bNever        As Boolean

Rem その他
Private lKeys        As Long
Private cBuf(256)    As Byte


Rem Hook - in
Public Sub Hook()
    lpPrevWndProc = SetWindowLong(glHWin1, GWL_WNDPROC, AddressOf WindowProc)
End Sub


Rem Hook - out
Public Sub Unhook()
    Dim temp As Long
    
    temp = SetWindowLong(glHWin1, GWL_WNDPROC, lpPrevWndProc)
End Sub


Rem Window-Pro.
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
    Rem Debug.Print "Message: "; hw, uMsg, wParam, lParam
    
    Rem フォーカスが移動した時にのみ発生しているメッセージを確認した時、
    If uMsg = &H100E Then
        Rem キーボードの状態を取得し、カーソルキーの入力をチェックする。
        lKeys = GetKeyboardState(cBuf(0))
        If cBuf(37) And &H80 Then
            TEST.Label1.Caption = "Left!"
            
        ElseIf cBuf(38) And &H80 Then
            TEST.Label1.Caption = " Up !"
            
        ElseIf cBuf(39) And &H80 Then
            TEST.Label1.Caption = "Right!"
            
        ElseIf cBuf(40) And &H80 Then
            TEST.Label1.Caption = "Down!"
            
        End If
    End If
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
    
End Function

戻　る