Hallo,
ich bin neu hier und in VB.
Ich programmiere gerade Testweise ein kleines TicTacToe.
Habe nun alles fertig mit einer 3x3 Matrix + KI.
Ich möchte mein Programm nun so erweitern, dass auch 4x4, 5x5, ... Spiele möglich sind (während der Laufzeit einstellbar).
Leider bekomme ich meine Buttons, welche ich wähend der Laufzeit erstelle, nicht in ein Array geschrieben.
Es kommt immer der Fehler:
Der Fehler tritt in der unten gekennzeichneten Zeile auf.
Hier ein Auszug aus dem Code
Ich hoffe es hat jemand eine Idee voran es hakt.
Grüße aus Fulda.
Julian
ich bin neu hier und in VB.
Ich programmiere gerade Testweise ein kleines TicTacToe.
Habe nun alles fertig mit einer 3x3 Matrix + KI.
Ich möchte mein Programm nun so erweitern, dass auch 4x4, 5x5, ... Spiele möglich sind (während der Laufzeit einstellbar).
Leider bekomme ich meine Buttons, welche ich wähend der Laufzeit erstelle, nicht in ein Array geschrieben.
Es kommt immer der Fehler:
Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in TicTacToe.exe aufgetreten.
Der Fehler tritt in der unten gekennzeichneten Zeile auf.
Hier ein Auszug aus dem Code
Quellcode
- Dim Field(,) As Button
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- InitButtons(3)
- ...
- End Sub
- Function InitButtons(ByVal size As Integer) As Boolean
- Me.Size = New Size(168 + (size * 100), 69 + (size * 100))
- Panel1.Size = New Size(size * 100, size * 100)
- For I = level To size ^ 2
- Field(ToX(I), ToY(I)) = New Button 'Hier tritt der Fehler auf
- With Field(ToX(I), ToY(I))
- .Name = "Button" + Str(I)
- .Location = New Point(100 * (ToX(I) - 1), 100 * (ToY(I) - 1))
- .Size = New Size(100, 100)
- End With
- Panel1.Controls.Add(Field(ToX(I), ToY(I)))
- AddHandler Field(ToX(I), ToY(I)).Click, AddressOf Button_Click
- Next
- level = size
- End Function
Ich hoffe es hat jemand eine Idee voran es hakt.
Grüße aus Fulda.
Julian