锅炉节能器原理:VB 如何用键盘的上下左右 控制 command_Click() command2 command3 command4

来源：百度文库 编辑：神马品牌网 时间：2024/05/01 18:54:04
Private Sub command1_Click()
picRocket.Top = picRocket.Top - 500
End Sub
我按 方向键 "上"键 picRocket.Top - 500
我按 方向键 "下"键 picRocket.Top + 500
我按 方向键 "左"键 picRocket.Left - 500
我按 方向 键"右"键 picRocket.Left + 500
或者用wsad来控制 w是向上 s是向下 a向左 d向右
如何写成代码

将Form1的KeyPreView属性设置为True,这样窗体就可以优先接收按键信息
下面使用wsad以及WSAD,如果使用上下左右方向控制的话，要读取键盘扫描码，很麻烦的
复制下面的代码，其中picRocket是某个控件的名称，这段代码已经调试通过

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 87, 119 'w或者W
picRocket.Top = picRocket.Top - 500
Case 83, 115 's或者S
picRocket.Top = picRocket.Top + 500
Case 65, 97 'a或者A
picRocket.Left = picRocket.Left - 500
Case 68, 100 'd或者D
picRocket.Left = picRocket.Left + 500
End Select

用KeyUp事件来控制,就可以忽略在按字母键时是否同时按下shift、alt或ctrl键（如果要进行判断，就要对shift参数进行操作）
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyW
picRocket.Top = picRocket.Top - 500
Case vbKeyS
picRocket.Top = picRocket.Top + 500
Case vbKeyA
picRocket.Left = picRocket.Left - 500
Case vbKeyD
picRocket.Left = picRocket.Left + 500
End Select
End Sub

VB 如何用键盘的上下左右 控制 command_Click() command2 command3 command4 如何用键盘控制鼠标？？？？？？？ 如何用vb读PS2键盘口的数据 VB问题 如何用键盘的w键控制command1....... 如何用VB记录键盘按键? 如何用vb控制交换机呼出限制？ 如何用VB控制首字符延迟时间？ 如何用vb控制视频捕捉卡 寂静岭4如何用键盘控制 如何用c语言实现控制键盘?