Dim randomNum As New Random Dim p as integer = randomNum.Next(0, 10)
Public Function IsCollision2D(ByRef Boite1 As Rectangle, ByRef Boite2 As Rectangle ) As Boolean Dim udttemprect As System.Drawing.Rectangle = Rectangle.Intersect(Boite1, Boite2) IsCollision2D = udttemprect <> Nothing End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJe ne fait pas de visual basic je fait juste l'algorithme donc pas de langage de programmation