Hallo zusammen 
Ich arbeite seit ein paar Tagen an einem Pacman-Spiel(ich denke das Spielprinzip ist jedem bekannt).
Nun bin ich gerade dabeizu testen wie ich das "Essen" auf dem Bildschirm verteilen kann. Es soll ein bestimmter Bereich mit je 5 auf 5 großen RectangleShapes und diese mit je 5 Pixeln Abstand in diesem Bereich beim Starten der Form verteilt werden.
Dies ist mein Code für dieses Verfahren. Jedoch funktioniert er so nicht. Es erscheint einfach nichts
Könntet Ihr mir weiterhelfen? Würde mich sehr über Antworten freuen!!
Viele Grüße
Bearbeitet:
im Code habe ich anstatt das form load event das button click event benutzt aus versuchsgründen!
Im Form Load Event kommt keine Fehlermeldung im Click Event eine Fehlermeldung (Ein Ausnahmefehler des Typs "System.NullReferenceException" ist in test pionts speichern.exe aufgetreten.
Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.)
Mit Verweis auf Zeile ( essen(x).Parent = canvas)
Ich arbeite seit ein paar Tagen an einem Pacman-Spiel(ich denke das Spielprinzip ist jedem bekannt).
Nun bin ich gerade dabeizu testen wie ich das "Essen" auf dem Bildschirm verteilen kann. Es soll ein bestimmter Bereich mit je 5 auf 5 großen RectangleShapes und diese mit je 5 Pixeln Abstand in diesem Bereich beim Starten der Form verteilt werden.
Quellcode
- Imports Microsoft.VisualBasic.powerpacks
- Public Class Form1
- Dim canvas As New ShapeContainer
- Dim essen(10000000) As RectangleShape
- Dim essenLocation(10000000) As Point
- Dim a = 1
- Dim RectangleShape1 As New RectangleShape
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- canvas.Parent = Me
- For x = 100 To 500 Step 10
- For y = 100 To 500 Step 10
- essenLocation(a) = New System.Drawing.Point(x, y) 'für die RectangleShapes die später verteilt werden sollen werden Locations ermittelt. Diese sind
- a += 1 'auch abgespeichert, was ich schon überprüft habe!
- Next
- Next
- For x = 1 To a Step 1
- essen(x).Parent = canvas ' das Essen soll in meinem Bereich abgebildet werden.... Hier vermute ich den Fehler!
- With essen(x)
- .Location = essenLocation(x)
- .Size = New System.Drawing.Size(5, 5)
- .BackColor = Color.Black
- .BorderColor = Color.Black
- .BackStyle = BackStyle.Opaque
- End With
- Next
- End Sub
- End Class
Dies ist mein Code für dieses Verfahren. Jedoch funktioniert er so nicht. Es erscheint einfach nichts
Könntet Ihr mir weiterhelfen? Würde mich sehr über Antworten freuen!!
Viele Grüße
Bearbeitet:
im Code habe ich anstatt das form load event das button click event benutzt aus versuchsgründen!
Im Form Load Event kommt keine Fehlermeldung im Click Event eine Fehlermeldung (Ein Ausnahmefehler des Typs "System.NullReferenceException" ist in test pionts speichern.exe aufgetreten.
Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.)
Mit Verweis auf Zeile ( essen(x).Parent = canvas)
