请问:我想用vb写一个小游戏!请问如何用wasd和箭头控制上下移动!谢谢你

Private Sub Form_KeyDown(KeyCode为整数,Shift为整数)

选择案例键码

案例vbKeyUp

MsgBox“向上”

Case vbKeyDown

MsgBox“向下”

案例vbKeyLeft

MsgBox“左”

案例vbKeyRight

MsgBox“右”

其他情况

MsgBox键码& amp空间(5)& amp;Chr(键码)

结束选择

末端接头

或者

私有子窗体_按键(KeyAscii为整数)

MsgBox Chr(KeyAscii)

末端接头

私有子窗体_Load()

我。KeyPreview = True

末端接头