Visual Basic Forum

peter312 · Newbie Anmeldedatum: 24.02.2010 Beiträge: 2

Auf einem Formular befinden sich 2 Panels.

Diese möchte ich mit mehreren Buttons variabel "füllen" - Größe und Position sind unterschiedlich.

Fülle ich das erste Panel mit Panel.add funktionert das, sobald ich das zweite Panel füllen will
stellt er nur noch Blödsinn in beiden Panels dar (bzw. im 1. Panel überhaupt nicht mehr).
Kommentiere ich das Befüllen des 1. Panels aus, füllt er das 2. Panel wieder so wie es soll.

Was mache ich da falsch?

Anbei der Quellcode:

Dim j As Integer = 0
For i = 0 To MeinSpiel.MeineSpielsteine.AnzahlSteine.Count - 1
Dim Steinchen As Spielstein = MeinSpiel.MeineSpielsteine.AnzahlSteine(i)
' Position fuer jeden Spielstein bestimmen.
Steinchen.Top = PanelSpieler1.Height - Steinchen.Height - (j * 25)
' Groesse fuer jeden Spielstein bestimmen.
Steinchen.Width -= j * 17
Steinchen.Visible = True
Steinchen.BackColor = Color.Blue
PanelSpieler1.Controls.Add(Steinchen)
j += 1
Next

Dim k As Integer = 0
For i = 0 To MeinSpiel.MeineSpielsteine.AnzahlSteine.Count - 1
Dim Steinchen As Spielstein = MeinSpiel.MeineSpielsteine.AnzahlSteine(i)
' Position fuer jeden Spielstein bestimmen.
Steinchen.Top = PanelSpieler2.Height - Steinchen.Height - (k * 35)
' Groesse fuer jeden Spielstein bestimmen.
Steinchen.Width -= k * 17
Steinchen.Visible = True
Steinchen.BackColor = Color.Blue
PanelSpieler2.Controls.Add(Steinchen)
k += 1
Next
_________________