这是一种碰撞检测方法,下述属于简化的矩形碰撞检测,若是需要复杂碰撞可以用一个数组来记录大量需要碰撞检测的物体
image1里读入猫的图片 image2里读入爆竹的图片
然后用下面代码即可实现
Private Sub Form_KeyPress(KeyAscii As Integer)
'按键盘A和D键控制猫图片image1左右移动
If KeyAscii = 97 Then Image1.Left = Image1.Left - 10
If KeyAscii = 100 Then Image1.Left = Image1.Left + 10
'如果猫图片与爆竹图片相遇则提示碰撞到了
If Image1.Left + Image1.Width > Image2.Left Then
If Image1.Left < Image2.Left + Image2.Width Then
If Image1.Top + Image1.Height > Image2.Top Then
If Image1.Top < Image2.Top + Image2.Height Then
MsgBox "小猫碰到爆竹了"
End If
End If
End If
End If
End Sub