■88534 / ) |
矢印キーで同時押しを有効にする |
□投稿者/ 花畑 (1回)-(2018/09/05(Wed) 18:21:18)
|
分類:[.NET 全般]
VB.NETを使っていて、矢印キーで操作したいと考えています。
以下のコードで上下右左に関してはうまくいきました。
あと、矢印キーを同時押しした時に斜め方向にも操作できるようにしたいのですが、
Case Keys.Up Or Keys.Left
とやってみても、うまくいきません。
一体どのように改良すれば良いでしょうか?
'矢印キーを無効化する
Private Sub CursorMovementKeys(ByVal sender As Object, ByVal e As KeyEventArgs)
Select Case e.KeyCode
Case Keys.Up
'コード
e.Handled = True
Case Keys.Left
'コード
e.Handled = True
Case Keys.Up Or Keys.Left
'コード
e.Handled = True
Case Keys.Right
'コード
e.Handled = True
Case Keys.Down
'コード
e.Handled = True
End Select
End Sub
|
|