Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
Screen.PreviousControl.SetFocus
Case 38
Screen.PreviousControl.SetFocus
Case 39
Screen.PreviousControl.SetFocus
Case 40
Screen.PreviousControl.SetFocus
Case Else
End Select
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft, vbKeyUp, vbKeyRight, vbKeyDown
KeyCode = 0
End Select
End Sub
無理矢理ですので、最終的にどうなるかわかりません。
プロパティシートを表示してフォームを選択、デザインタブのキーボード取得イベントをはいに設定。
デフォルトの動作を拒否するなら
KeyCode=Null
としてなかったことにするほうが常套手段ですねKeyCode As Integer
なので、KeyCode=Null
だとエラーになります。KeyCode = 0
でなかったことになります。「キーボードイベント取得」を「はい」にして