vb：躲子弹小游戏的问题

来源：百度知道 编辑：UC知道 时间：2024/05/05 04:08:31
1)如何用键盘移动己方的"飞机"（Image2） ?
2)如何测试"飞机"（Image2）是否碰撞到"子弹"（Image1) ?

谢谢！

1)Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
Shape1.Left = Shape1.Left - 100
ElseIf KeyCode = 38 Then
Shape1.Top = Shape1.Top - 100
ElseIf KeyCode = 39 Then
Shape1.Left = Shape1.Left + 100
ElseIf KeyCode = 40 Then
Shape1.Top = Shape1.Top + 100
End If
End Sub
把shape1改成image2即可
2）测试碰撞就是看一个图片的移动是否超过了另一个图片的宽度
即：if image2.left>image1.width then
end if