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:
[highlight=vbnet]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[/highlight]
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:
[highlight=vbnet]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[/highlight]
Comment