在TextBox中如何捕獲上下左右等方向鍵

Question

KEY_DOWN和Key_UP事件里的Keycode有效

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = (37~~~40)Then  '37~~~40分别是左上下右的键盘常数
'你的语句
End If
End Sub

Answer 2

在KEY_DOWN事件取KEYCODE的值，然后用textbox.move(....)移动textbox的位置

Answer 3

Private Sub Text1_KeyUp(KeyCode As Integer)
SELECT CASE KeyCode
 CASE 37
  [LEFT]
 CASE 38
  [UP]
 CASE 39
  [RIGHT]
 CASE 40 
  [DOWN]
END SELECT
End Sub