-
Brick Collision Help
I have a code but it keeps saying not defined for the "i". here it is:
Private Sub Timer1_Timer()
shpBall.Left = Ball.X + (Ball.radius)
shpBall.Top = Ball.Y + (Ball.radius)
Ball.X = Ball.X + Ball.a
Ball.Y = Ball.Y + Ball.b
Call FormBrickCollisionDetection
Call FormCollisionDetection
End Sub
Private Sub FormBrickCollisionDetection()
For i = 0 To 179
If Ball.Y + Ball.diameter = Brick(Index).Top + Brick(Index).Height Then
Ball.b = -Abs(Ball.b)
Brick(Index).Visible = False
End If
Next i
End Sub
-
If you've got Option Explicit on you may need to dimension 'i'.
For your collision detection have a look into using IntersectRect instead, might be easier.
Pete
-
