请问？在VB中如何知道按了上下左右健

Question

如题！

Answer 1

按下键会触发键盘事件（KeyDown、KeyUp），只要检查参数 Keycode 是否等于下列常数即可：
vbKeyUp 上
vbKeyDown 下
vbKeyLeft 左
vbKeyRight 右

Answer 2

private sub form_keyPress(keyAscii as integer) 
 if keyAscii=vbKeyUp then
   msgbox"上"
  End if
  if keyAscii=vbKeyDown then
   msgbox "下"
  End if
 if keyascii=vbkeyLeft then
   msgbox "左"
 End if
 if keyAscii=vbKeyRight then
   msgbox "右"
 End if
end sub或在窗体，或在控件的keypress,keyDown,keyUp 事件中写

Answer 3

应该是这样：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 if keyAscii=vbKeyUp then
   msgbox"上"
  End if
  if keyAscii=vbKeyDown then
   msgbox "下"
  End if
 if keyascii=vbkeyLeft then
   msgbox "左"
 End if
 if keyAscii=vbKeyRight then
   msgbox "右"
 End if
End Sub

Answer 4

private sub form_keyPress(keyAscii as integer) 
 if keyAscii=vbKeyUp then
   msgbox"上"
  End if
  if keyAscii=vbKeyDown then
   msgbox "下"
  End if
 if keyascii=vbkeyLeft then
   msgbox "左"
 End if
 if keyAscii=vbKeyRight then
   msgbox "右"
 End if
end sub引用，这个很精典

Answer 5

它触发了keydown  or keyup 不触发keypress

Answer 6

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 if keycode=vbKeyUp then
     msgbox"上"
 End if
 if keycode=vbKeyDown then
     msgbox "下"
 End if
 if keycode=vbkeyLeft then
     msgbox "左"
 End if
 if keycode=vbKeyRight then
     msgbox "右"
 End if
 if keycode=vbkeyreturn then
     msgbox "回车"
 end if
End Sub

Answer 7

为什么不按住SHIFT键就测不到左右键呢？