Hallo zusammen,
ich versuche gerade ein Spielfeld dynamisch zu erstellen. Dafür benutze ich folgenden Quellcode
Aber ich bekomme immer den Fehler "Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt. Nullreferenceexception wurde nicht behandelt". Kann mir da jemand weiter helfen?
LG Timonchen
ich versuche gerade ein Spielfeld dynamisch zu erstellen. Dafür benutze ich folgenden Quellcode
Option Explicit On
Imports Microsoft.VisualBasic.VBMath
Public Class Form1
Dim Spielfeld As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
Structure Feld
Dim RectangleShape As Microsoft.VisualBasic.PowerPacks.RectangleShape
Dim valid As Boolean
End Structure
Dim Feldliste(9, 9)
Sub Felder_erzeugen()
Spielfeld.Parent = Me
For s = 0 To 9
For z = 0 To 9
Feldliste(s, z).RectangleShape = New Microsoft.VisualBasic.PowerPacks.RectangleShape With
{
.Size = New System.Drawing.Size(30, 30),
.Location = New System.Drawing.Point(1, 1)
}
Feldliste(s, z).RectangleShape.parent = Spielfeld
Feldliste(s, z).RectangleShape.Fillstyle = PowerPacks.FillStyle.Solid
Feldliste(s, z).RectangleShape.fillcolor = Color.Navy
Feldliste(s, z).valid = True
Next
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Felder_erzeugen()
End Sub
End Class
Imports Microsoft.VisualBasic.VBMath
Public Class Form1
Dim Spielfeld As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
Structure Feld
Dim RectangleShape As Microsoft.VisualBasic.PowerPacks.RectangleShape
Dim valid As Boolean
End Structure
Dim Feldliste(9, 9)
Sub Felder_erzeugen()
Spielfeld.Parent = Me
For s = 0 To 9
For z = 0 To 9
Feldliste(s, z).RectangleShape = New Microsoft.VisualBasic.PowerPacks.RectangleShape With
{
.Size = New System.Drawing.Size(30, 30),
.Location = New System.Drawing.Point(1, 1)
}
Feldliste(s, z).RectangleShape.parent = Spielfeld
Feldliste(s, z).RectangleShape.Fillstyle = PowerPacks.FillStyle.Solid
Feldliste(s, z).RectangleShape.fillcolor = Color.Navy
Feldliste(s, z).valid = True
Next
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Felder_erzeugen()
End Sub
End Class
Aber ich bekomme immer den Fehler "Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt. Nullreferenceexception wurde nicht behandelt". Kann mir da jemand weiter helfen?
LG Timonchen