KeyDownでカーソルキーを検出するには？

解決

---

KeyDownでカーソルキーを検出したいのですが、 
フォームだけの場合はちゃんと検出できるのですけど、 
そのフォームにコマンドボタン等のコントロールが乗っていると、 
カーソルキーの押下がそのフォーカス移動になってしまいます。 
Form1.KeyPreview = True はしています。 
どうすればいいでしょうか。

編集 削除

---

コマンドボタン上にフォーカスがある時は矢印キーとEnterキーの押下は取得できません。

編集 削除

---

nanashiさんありがとうございます。
取得できないのは仕様なんでしょうか？
作りこみで対応可能であれば、その方法を教えてください。

編集 削除

---

コマンドボタンのKeyDownイベントで、
キーを判別、
キーが矢印キーだったら、
FormのKeyDownイベントを呼んでやればいいのでは？
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Or KeyCode = vbKeyDown _
Or KeyCode = vbKeyRight Or KeyCode = vbKeyLeft Then
        Call Form_KeyDown(KeyCode, Shift)
    End If
End Sub

編集 削除

---

コマンドボタンのKeyDownイベントで、
キーを判別、
キーが矢印キーだったら、
FormのKeyDownイベントを呼んでやればいいのでは？
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Or KeyCode = vbKeyDown _
Or KeyCode = vbKeyRight Or KeyCode = vbKeyLeft Then
        Call Form_KeyDown(KeyCode, Shift)
    End If
End Sub

編集 削除

---

ぴろあきさんありがとうございます。

しかしながら、コマンドボタンにフォーカスがある際に矢印キーを押下しても、KeyDownイベントが発生しないため、教えていただいた方法が適用できないです。

編集 削除

---

>コマンドボタンにフォーカスがある際に矢印キーを押下しても、KeyDownイベントが発生しないため
それはWindowsの仕様です。
対策としては、CommandButtonにフォーカスがいかないようにするか
(Enabled=FalseにするかGotFocusでDummyのコントロールにSetFocusする)
キーフックしてメッセージをシステムから横取りして処理するかの
どちらかでしょう。

編集 削除

---

Windowsの仕様ということであきらめました。
みなさんありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。