Moin,
ich will ein kleines Spiel programmieren, bei dem man anfangs mit einem Spieler auf 'ner "Karte" rumrennt.
Ich habe PictureBoxen erstellt, durch die der Spieler nicht durch soll (die dunkelgrün-grauen Dinger im Bild).
Den Code hab ich mir aus der Nase gezogen:
Durch den Code muss ich dann eben nämlich nicht für ALLE PictureBoxen die Kollision programmieren.
Leider wird jetzt anscheinend nur PictureBox7 erkannt, bei den anderen passiert nichts.
Könnt Ihr mir helfen?
MfG, JGF
ich will ein kleines Spiel programmieren, bei dem man anfangs mit einem Spieler auf 'ner "Karte" rumrennt.
Ich habe PictureBoxen erstellt, durch die der Spieler nicht durch soll (die dunkelgrün-grauen Dinger im Bild).
Den Code hab ich mir aus der Nase gezogen:
VB.NET-Quellcode
- Private Sub Spieler1_Move
- Dim a As New List(Of PictureBox)
- With a
- .Add(PictureBox1)
- .Add(PictureBox2)
- .Add(PictureBox3)
- .Add(PictureBox4)
- .Add(PictureBox5)
- .Add(PictureBox6)
- .Add(PictureBox7)
- End With
- For i As Integer = 0 To a.Count - 1
- If a(i).Bounds.IntersectsWith(Spieler1.Bounds) Then
- Me.Text = "Gut"
- Else
- Me.Text = "Schlecht"
- End If
- Next
- 'Me.Text = a.Count
- End Sub
Durch den Code muss ich dann eben nämlich nicht für ALLE PictureBoxen die Kollision programmieren.
Leider wird jetzt anscheinend nur PictureBox7 erkannt, bei den anderen passiert nichts.
Könnt Ihr mir helfen?
MfG, JGF