我想制作小猫碰到炮竹就爆炸的游戏,但是不知道如何表示小猫碰到炮竹,用VB编程

2025-03-07 04:24:51
推荐回答(1个)
回答1:

这是一种碰撞检测方法,下述属于简化的矩形碰撞检测,若是需要复杂碰撞可以用一个数组来记录大量需要碰撞检测的物体

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