Hi Com,
Ich bin gerade dabei ein kleines Spiel zu programmieren. Jetzt bin ich dabei wenn ein Panel ein anderes Panal berührt dann soll etwas passieren! (soweit fertig!)
Jetzt soll das Panel(beweglich!) wieder zu dem Startpunkt gehen.
Hier mein Code:
Funktioniert leider nicht
mfg. TwiTIn
Ich bin gerade dabei ein kleines Spiel zu programmieren. Jetzt bin ich dabei wenn ein Panel ein anderes Panal berührt dann soll etwas passieren! (soweit fertig!)
Jetzt soll das Panel(beweglich!) wieder zu dem Startpunkt gehen.
Hier mein Code:
VB.NET-Quellcode
- If (Panel2.Bounds.IntersectsWith(Panel1.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel3.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel4.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel5.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel6.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel7.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel8.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel9.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel11.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel12.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel13.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel14.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel15.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel16.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel17.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel18.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel19.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel20.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel21.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel22.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel23.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel24.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel25.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel26.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel27.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel28.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel29.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel30.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel31.Bounds)) Then
- Timer2.Enabled = False
- Timer1.Enabled = False
- Panel2.Location = New Point(Panel2.Location.X = 340, Panel2.Location.Y = 92)
- MsgBox("Fail")
- Timer3.Enabled = True
- Timer2.Enabled = True
- Timer1.Enabled = True
- Timer4.Enabled = True
- Timer4.Enabled = False
- End If
Funktioniert leider nicht
mfg. TwiTIn