Fehlersuche: Bug bei Erstellung von Textboxen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Fehlersuche: Bug bei Erstellung von Textboxen

    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:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim ProTeam As Integer
    3. Dim PlusTeam As Integer
    4. Dim Gruppe1 As Integer
    5. Dim Gruppe2 As Integer
    6. Dim Gruppe3 As Integer
    7. Dim Gruppe4 As Integer
    8. Dim Gruppen As Integer
    9. Dim Mannschaften As Integer
    11. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    12. Dim counter As Integer
    13. 'entfernt vorhandene Textboxen
    14. Do Until counter = 10
    15. For Each ctrl As Control In Me.Controls
    16. If TypeOf ctrl Is TextBox Then
    17. Me.Controls.Remove(ctrl)
    18. ctrl = Nothing
    19. End If
    20. Next
    21. counter = counter + 1
    22. Loop
    23. Teams()
    24. TextBoxEnabled1()
    25. TextBoxEnabled2()
    26. 'TextBoxEnabled3()
    27. 'TextBoxEnabled4()
    28. End Sub
    30. Sub Teams()
    31. Gruppen = NumericUpDown5.Value
    32. Mannschaften = NumericUpDown1.Value 'Mannschaften = Anzahl der Textboxen die normal sind
    33. ProTeam = Mannschaften / Gruppen
    34. PlusTeam = Mannschaften Mod Gruppen
    35. If PlusTeam = 0 Then
    36. Gruppe1 = ProTeam
    37. Gruppe2 = ProTeam
    38. Gruppe3 = ProTeam
    39. Gruppe4 = ProTeam
    40. End If
    41. If PlusTeam = 1 Then
    42. Gruppe1 = ProTeam + 1
    43. Gruppe2 = ProTeam
    44. Gruppe3 = ProTeam
    45. Gruppe4 = ProTeam
    46. End If
    47. If PlusTeam = 2 Then
    48. Gruppe1 = ProTeam + 1
    49. Gruppe2 = ProTeam + 1
    50. Gruppe3 = ProTeam
    51. Gruppe4 = ProTeam
    52. End If
    53. If PlusTeam = 3 Then
    54. Gruppe1 = ProTeam + 1
    55. Gruppe2 = ProTeam + 1
    56. Gruppe3 = ProTeam + 1
    57. Gruppe4 = ProTeam
    58. End If
    59. End Sub
    61. Sub TextBoxEnabled1()
    62. Dim counter As Integer = 0
    63. Dim top As Integer = 38
    64. Do Until counter = Gruppe1
    65. Dim Textbox As New TextBox
    66. With Textbox
    67. .Text = ""
    68. .Name = "Textbox" & counter
    69. .Height = 20
    70. .Width = 157
    71. .Top = top
    72. .Left = 225
    73. .BackColor = Color.Yellow
    74. End With
    75. top = top + 26
    76. Me.Controls.Add(Textbox)
    77. counter = counter + 1
    78. Loop
    79. Do Until counter = 10
    80. Dim Textbox As New TextBox
    81. With Textbox
    82. .Text = ""
    83. .Name = "Textbox" & counter
    84. .Height = 20
    85. .Width = 157
    86. .Top = top
    87. .Left = 225
    88. .BackColor = Color.Gray
    89. .Enabled = False
    90. End With
    91. top = top + 26
    92. Me.Controls.Add(Textbox)
    93. counter = counter + 1
    95. Loop
    96. End Sub
    98. Sub TextBoxEnabled2()
    99. Dim counter As Integer
    100. Dim top As Integer = 38
    101. If Gruppen >= 2 Then
    102. Do Until counter = Gruppe2
    103. Dim Textbox As New TextBox
    104. With Textbox
    105. .Text = ""
    106. .Name = "Textbox" & (counter + 10)
    107. .Height = 20
    108. .Width = 157
    109. .Top = top
    110. .Left = 388
    111. .BackColor = Color.Green
    112. End With
    113. top = top + 26
    114. Me.Controls.Add(Textbox)
    115. counter = counter + 1
    116. Loop
    117. End If
    118. Do Until counter = 10
    119. Dim Textbox As New TextBox
    120. With Textbox
    121. .Text = ""
    122. .Name = "Textbox" & (counter + 10)
    123. .Height = 20
    124. .Width = 157
    125. .Top = top
    126. .Left = 388
    127. .BackColor = Color.Gray
    128. .Enabled = False
    129. End With
    130. top = top + 26
    131. Me.Controls.Add(Textbox)
    132. counter = counter + 1
    133. Loop
    134. End Sub
    136. Sub TextBoxEnabled3()
    137. 'kommt später auch noch
    138. End Sub
    140. Sub TextBoxEnabled4()
    141. 'kommt später auch noch
    142. End Sub
    143. End Class


    Vielen lieben Dann schonmal im Vorraus
    ich hoffe ihr versteht den Code

    Spoiler anzeigen



    gostman schrieb:

    VB.NET-Quellcode

    1. For Each ctrl As Control In Me.Controls
    2. If TypeOf ctrl Is TextBox Then
    3. Me.Controls.Remove(ctrl) ctrl = Nothing
    4. End If
    5. Next

    Funktioniert das ? oO

    Probier mal eher:

    VB.NET-Quellcode

    1. For Each ctrl As Control In Me.Controls.OfType(Of TextBox)() '...




    Und im Sub TextBoxEnabled1() setzt du counter nicht auf 0 zurück ^^
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    viele Controls erstellen ist zu 99% ein Holzweg.
    Weil im Grunde willst du nicht Textboxen verarbeiten, sondern Daten.

    Und zur Datenverarbeitung eignen sich die Tabellen im typisierten Dataset wesentlich besser.

    Anzeigen und editieren kann man die Daten dann in daran gebundenen Controls.

    guggemol Daten laden, speichern, verarbeiten

    gostman schrieb:

    VB.NET-Quellcode

    1. Do Until counter = 10
    VCor einer solchen Zeile solltest Du den counter jedesmal auf 0 setzen, sonst friert Dein Programm ein. :thumbup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Der Part mit
    Do Until counter = 10
    in TextBoxEnabled1 soll eigentlich weiterzählen von dem oberen damit wie auf den Bildern zu sehen ist die übrigen Textboxen nicht normal sind sondern auf Enabled = False ich habe jetzt eine if schleife für den unteren Part gemacht die nichts auslöst wenn counter = 10, ich habe immer noch das gleiche problem.

    Gibt es vielleicht eine andere Möglichkeit alle Textboxen in einer Schleife zu ändern habe gestern schon es mit Me.Controls und etwas anderem (ich finde leider nicht mehr was und wo es war) probiert und nur diese Möglichkeit hat funktioniert.

    habt ihr bei meinem Code die gleichen Bugs oder muss ich mal wieder das Projekt neu erstellen.

    gostman schrieb:

    soll eigentlich weiterzählen
    Dann sichere den Abbruch mit

    VB.NET-Quellcode

    1. Do Until counter >= 10
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Problem: Solved

    Vielen Dank RodFromGermany für die Hilfe.

    Jetzt werden die Textboxen richtig dargestellt habe aber bei beiden immer 10 Stück.
    Habe mir einfach mal alle Werte bei der Berechnung ausgeben lassen und anscheinend berechnet er bei 19 Mannschaften / 2 Gruppen nicht 9 r 1 sondern 10 r 1 was dann zu dem Bug geführt hat.

    Anscheinend hat er immer bei der berechnung aufgerundet. Ich lasse jetzt die Berechnung vor dem Speichern in ProTeam mit Fix() abrunden.

    Vielen Dank an ALLE die geholfen haben mein Problem zu lösen.

    gostman schrieb:

    mit Fix() abrunden
    Probier mal Integer-Division:

    VB.NET-Quellcode

    1. Dim value = 5 \ 3
    2. MessageBox.Show(value.ToString)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende