Wie oben geschrieben lasse ich mein Programm Textboxen erstellen.
Insgesamt sollen es 10 Textboxen sein, da ich am Ende insgesamt 40 Textboxen haben möchte Teile ich die 40 Textboxen in 4 Gruppen ein.
Durch zwei NumericUpDown's stelle ich die Gruppenanzahl und die Gesamtzahl der Textboxen ein die dann gleichmäsig (Gruppe1 hat immer wenn es ungerade ist mehr...) verteilt werden sollen und die restlichen Textboxen der Gruppe werden auf Enabled = False gestellt.
Bug:
Wenn ich jetzt zwei Gruppen einstelle und eine Gesamtzahl von 19 Textboxen dann sollte Gruppe 1 10 Textboxen haben die normal sind und in Gruppe 2 9 normale und 1 Enabled = False. Jedoch friert mein Programm ein hat jedoch schon in Gruppe 1 10 normale Textboxen erstellt und darunter auch 10 Enabled = False Textboxen.
Mein Code:
Vielen lieben Dann schonmal im Vorraus
ich hoffe ihr versteht den Code
Insgesamt sollen es 10 Textboxen sein, da ich am Ende insgesamt 40 Textboxen haben möchte Teile ich die 40 Textboxen in 4 Gruppen ein.
Durch zwei NumericUpDown's stelle ich die Gruppenanzahl und die Gesamtzahl der Textboxen ein die dann gleichmäsig (Gruppe1 hat immer wenn es ungerade ist mehr...) verteilt werden sollen und die restlichen Textboxen der Gruppe werden auf Enabled = False gestellt.
Bug:
Wenn ich jetzt zwei Gruppen einstelle und eine Gesamtzahl von 19 Textboxen dann sollte Gruppe 1 10 Textboxen haben die normal sind und in Gruppe 2 9 normale und 1 Enabled = False. Jedoch friert mein Programm ein hat jedoch schon in Gruppe 1 10 normale Textboxen erstellt und darunter auch 10 Enabled = False Textboxen.
Mein Code:
VB.NET-Quellcode
- Public Class Form1
- Dim ProTeam As Integer
- Dim PlusTeam As Integer
- Dim Gruppe1 As Integer
- Dim Gruppe2 As Integer
- Dim Gruppe3 As Integer
- Dim Gruppe4 As Integer
- Dim Gruppen As Integer
- Dim Mannschaften As Integer
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim counter As Integer
- 'entfernt vorhandene Textboxen
- Do Until counter = 10
- For Each ctrl As Control In Me.Controls
- If TypeOf ctrl Is TextBox Then
- Me.Controls.Remove(ctrl)
- ctrl = Nothing
- End If
- Next
- counter = counter + 1
- Loop
- Teams()
- TextBoxEnabled1()
- TextBoxEnabled2()
- 'TextBoxEnabled3()
- 'TextBoxEnabled4()
- End Sub
- Sub Teams()
- Gruppen = NumericUpDown5.Value
- Mannschaften = NumericUpDown1.Value 'Mannschaften = Anzahl der Textboxen die normal sind
- ProTeam = Mannschaften / Gruppen
- PlusTeam = Mannschaften Mod Gruppen
- If PlusTeam = 0 Then
- Gruppe1 = ProTeam
- Gruppe2 = ProTeam
- Gruppe3 = ProTeam
- Gruppe4 = ProTeam
- End If
- If PlusTeam = 1 Then
- Gruppe1 = ProTeam + 1
- Gruppe2 = ProTeam
- Gruppe3 = ProTeam
- Gruppe4 = ProTeam
- End If
- If PlusTeam = 2 Then
- Gruppe1 = ProTeam + 1
- Gruppe2 = ProTeam + 1
- Gruppe3 = ProTeam
- Gruppe4 = ProTeam
- End If
- If PlusTeam = 3 Then
- Gruppe1 = ProTeam + 1
- Gruppe2 = ProTeam + 1
- Gruppe3 = ProTeam + 1
- Gruppe4 = ProTeam
- End If
- End Sub
- Sub TextBoxEnabled1()
- Dim counter As Integer = 0
- Dim top As Integer = 38
- Do Until counter = Gruppe1
- Dim Textbox As New TextBox
- With Textbox
- .Text = ""
- .Name = "Textbox" & counter
- .Height = 20
- .Width = 157
- .Top = top
- .Left = 225
- .BackColor = Color.Yellow
- End With
- top = top + 26
- Me.Controls.Add(Textbox)
- counter = counter + 1
- Loop
- Do Until counter = 10
- Dim Textbox As New TextBox
- With Textbox
- .Text = ""
- .Name = "Textbox" & counter
- .Height = 20
- .Width = 157
- .Top = top
- .Left = 225
- .BackColor = Color.Gray
- .Enabled = False
- End With
- top = top + 26
- Me.Controls.Add(Textbox)
- counter = counter + 1
- Loop
- End Sub
- Sub TextBoxEnabled2()
- Dim counter As Integer
- Dim top As Integer = 38
- If Gruppen >= 2 Then
- Do Until counter = Gruppe2
- Dim Textbox As New TextBox
- With Textbox
- .Text = ""
- .Name = "Textbox" & (counter + 10)
- .Height = 20
- .Width = 157
- .Top = top
- .Left = 388
- .BackColor = Color.Green
- End With
- top = top + 26
- Me.Controls.Add(Textbox)
- counter = counter + 1
- Loop
- End If
- Do Until counter = 10
- Dim Textbox As New TextBox
- With Textbox
- .Text = ""
- .Name = "Textbox" & (counter + 10)
- .Height = 20
- .Width = 157
- .Top = top
- .Left = 388
- .BackColor = Color.Gray
- .Enabled = False
- End With
- top = top + 26
- Me.Controls.Add(Textbox)
- counter = counter + 1
- Loop
- End Sub
- Sub TextBoxEnabled3()
- 'kommt später auch noch
- End Sub
- Sub TextBoxEnabled4()
- 'kommt später auch noch
- End Sub
- End Class
Vielen lieben Dann schonmal im Vorraus
ich hoffe ihr versteht den Code