Jag har ett stort problem nu när jag ska börja göra lite spel i VB. Jag vill att när image1 (som jag styr med piltangenterna) "krockar" med image2 så ska det hända något. Hur ska jag göra? Gjort en liten funktion för dig...Bilder som krockar!
Koden borde ju se ut nåt såhär t.ex.: if image1 and image2 collide then form2.show
Hoppas någon kan hjälpa mig.
Tacksam för svar. /DanneSv: Bilder som krockar!
Public Function HitTest(Image1 As Image, Image2 As Image) As Boolean
If Image2.Left + Image2.Width < Image1.Left Then
ElseIf Image2.Left > Image1.Left + Image1.Width Then
Else
If Image2.Top + Image2.Height < Image1.Top Then
ElseIf Image2.Top > Image1.Top + Image1.Height Then
Else
HitTest = True
End If
End If
End Function
Sedan skriver du bara:
if HitTest(image1, image2) then form2.show