Question

VB 图片框的上下左右移动问题！

我想用方向键控制图片在 图片框中移动，这个代码怎么实现不到啊！
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyUp Then
Img1.Top = Img1.Top - 35
End If
If KeyAscii = vbKeyLeft Then
Img1.Left = Img1.Left - 35
End If
End Sub

（这是上和左的代码。怎么运行后按键没反映啊？）
KeyPress 事件不行吗？？？ （图片框：Pic1 图像框是：Img1）

Answer 1

参数错误不是KeyAscii而是KeyCode，另外你的接收对象你不对是Picture1(我这里使用的picturebox，你可以自己改一下)，不是Form。事件是KeyDown
下面改一下，你看看吧

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Picture1.Top = Picture1.Top - 35
End If
If KeyCode = vbKeyLeft Then
Picture1.Left = Picture1.Left - 35
End If
End Sub

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then '上
Img1.Top = Img1.Top - 35
End If
If KeyCode = vbKeyDown Then '下
Img1.Top = Img1.Top + 35
End If
If KeyCode = vbKeyLeft Then '左
Img1.Left = Img1.Left - 35
End If
If KeyCode = vbKeyRight Then '右
Img1.Left = Img1.Left + 35
End If
End Sub

Answer 3

在窗体的keyascii事件中判断键值
当是方向键时移动图片框