Erstellte Textboxen addieren

  • VB.NET

Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von JamalR3.

    Hier sind mehr Infos zum FlowLayoutPanel. Füg einfach mal eines hinzu und zieh ein paar Controls drauf dann weißt du warum ich dir das empfehle ;)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. 'Speicher für die Letzte Verticale PositionPrivate intLetztePositionY As Integer = 0
    3. 'Speicher für die Anzahl der Button aufrufePrivate intAnzahlButtonClicks As Integer = 0
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. 'Aufruf +1
    6. intAnzahlButtonClicks += 1
    7. 'Position +25 Pixel
    8. intLetztePositionY += 25
    9. 　
    11. 'Erstellt neues TextBox SteuerelementDim textBoxLinks As TextBox = New TextBox()
    12. With textBoxLinks
    13. 'Vergibt einen Namen für das Element.Name = String.Format("TextboxLinks{0}", intAnzahlButtonClicks)
    14. 'Definiert die Größe.Size = New Size(244, 20)
    15. 'Definiert die Position.Location = New Point(25, intLetztePositionY)
    16. End With
    17. 'Fügt es der Form hinzu
    18. Panel2.Controls.Add(textBoxLinks)
    19. 'Erstellt neues TextBox SteuerelementDim textBoxRechts As TextBox = New TextBox()
    20. With textBoxRechts
    21. 'Vergibt einen Namen für das Element.Name = String.Format("TextboxRechts{0}", intAnzahlButtonClicks)
    22. 'Definiert die Größe.Size = New Size(120, 20)
    23. 'Definiert die Position, 5 Pixel Rechts neben der Linken Textbox.Location = New Point(25, intLetztePositionY)
    24. End With
    25. Panel3.Controls.Add(textBoxRechts)
    26. 　
    27. 'Erstellt neues Checkbox SteuerelementDim checkbox As CheckBox = New CheckBox()
    28. With checkbox
    29. 'Vergibt einen Namen für das Element.Name = String.Format("Checkbox{0}", intAnzahlButtonClicks)
    30. 'Defniert die Größe.Size = New Size(81, 17)
    31. 'Defniert die Position, 5 pixel links neben der linken textbox.Location = New Point(5, intLetztePositionY)
    32. End With
    33. 'Fügt es der Form hinzu
    34. Panel1.Controls.Add(checkbox)
    35. 　
    36. End Sub
    37. 　
    38. 　
    39. 　
    40. 　
    41. 'Kosten berechnen
    42. Dim Ergebnis As IntegerPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    43. 　
    44. Ergebnis = 0For Each txt As TextBox In Panel3.Controls
    45. Ergebnis += Val(txt.Text)
    46. Next
    47. Label1.Text = Ergebnis
    48. 　
    49. 　
    50. 　
    51. End Sub
    52. 　Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    53. For Each che As CheckBox In Panel1.Controls
    54. If che.Checked ThenFor Each txt1 As TextBox In Panel2.Controls
    55. If txt1.Location.Y = che.Location.Y Then
    56. Panel2.Controls.Remove(txt1)
    57. ElseIf txt1.Location.Y > che.Location.Y Then
    58. txt1.Top -= 25 'Ob += oder -= weiß ich nicht sicher
    59. End If
    60. NextFor Each txt2 As TextBox In Panel3.Controls
    61. If txt2.Location.Y = che.Location.Y Then
    62. Panel3.Controls.Remove(txt2)
    63. ElseIf txt2.Location.Y > che.Location.Y Then
    64. txt2.Top -= 25 'Ob += oder -= weiß ich nicht sicher
    65. End If
    66. 　
    67. Panel1.Controls.Remove(che)
    68. Ort_für_die_neue_CheckBox -= 25
    69. Ort_für_die_neue_TextBox -= 25
    70. Next
    71. 　
    72. End Sub
    75. End Class


    Er unterstreicht es..

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „JamalR3“ ()

    du schreibst jetzt noch zwischen Public Class Form1 und Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click (also sehr weit oben!)

    das hier:

    Dim intAnzahlButtonClicks As Integer = 0
    Dim intLetztePositionY As Integer = 0

    Gruß Einsteiger

    es klappt fast !!!



    noch en paar fehler... checkboxen löschen sich nicht

    mein momentaner code :


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickFor Each che As CheckBox In Panel1.Controls
    2. If che.Checked ThenFor Each txt1 As TextBox In Panel2.Controls
    3. If txt1.Location.Y = che.Location.Y Then
    4. Panel2.Controls.Remove(txt1)
    5. ElseIf txt1.Location.Y > che.Location.Y Then
    6. txt1.Top -= 25 'Ob += oder -= weiß ich nicht sicher
    7. End If
    8. NextFor Each txt2 As TextBox In Panel3.Controls
    9. If txt2.Location.Y = che.Location.Y Then
    10. Panel3.Controls.Remove(txt2)
    11. ElseIf txt2.Location.Y > che.Location.Y Then
    12. txt2.Top -= 25 'Ob += oder -= weiß ich nicht sicher
    13. End If
    14. Next
    15. ' For Each che1 As CheckBox In Panel1.Controls
    16. ' If che1.Location.Y = che.Location.Y Then
    17. 'Panel1.Controls.Remove(che1)
    18. ' ElseIf che1.Location.Y > che.Location.Y Then
    19. ' che1.Top -= 25 'Ob += oder -= weiß ich nicht sicher
    20. intLetztePositionY -= 25
    21. End If
    22. ' Next
    23. ' Panel1.Controls.Remove(che)
    24. 　
    25. Next
    26. 　
    27. 　End Sub

    nach den Änderungen müssts gehen:

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    3. For Each che As CheckBox In Panel1.Controls
    5. If che.Checked Then
    7. For Each txt1 As TextBox In Panel2.Controls
    9. If txt1.Location.Y = che.Location.Y Then
    10. Panel2.Controls.Remove(txt1)
    11. ElseIf txt1.Location.Y > che.Location.Y Then
    12. txt1.Top -= 25 'Ob += oder -= weiß ich nicht sicher
    13. End If
    15. NextFor Each txt2 As TextBox In Panel3.Controls
    17. If txt2.Location.Y = che.Location.Y Then
    18. Panel3.Controls.Remove(txt2)
    19. ElseIf txt2.Location.Y > che.Location.Y Then
    20. txt2.Top -= 25 'Ob += oder -= weiß ich nicht sicher
    21. End If
    23. Next
    25. intLetztePositionY -= 25
    26. Panel1.Controls.Remove(che)
    28. End If
    29. 　
    30. Next
    31. 　
    32. 　End Sub


    Hoffentlich stimmts jetzt endlich man

    Gruß Einsteiger