Control denklarieren, Initialisieren und als event ansprechen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Visual_Prog.

    Control denklarieren, Initialisieren und als event ansprechen

    hallo
    ich habe - einen controldatentyp erstellt
    - diesen initialisiert und versch. controls hinzugefügt
    - später dann die controls mit einer for i schleife angesprochen

    Problem: ich musste leider immernoch die sender einzeln abprechen. gibts einen weg nach dem man wie oben verfährt und dann nicht die einzelnen sender nochmal ansprechen muss? bzw allgemein kürzer schreiben?

    danke

    VB.NET-Quellcode

    1. Private _LeaveTextboxen As Control()
    3. Public Sub New()
    5. ' Dieser Aufruf ist für den Designer erforderlich.
    6. InitializeComponent()
    8. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    10. _LeaveTextboxen = {TextBox2, TextBox5, TextBox8, TextBox11, TextBox14, TextBox17}
    11. End Sub
    13. Private Sub TextBoxen_Leaven(sender As Object, e As EventArgs) Handles TextBox2.Leave, TextBox5.Leave, TextBox8.Leave, TextBox11.Leave, TextBox14.Leave, TextBox17.Leave
    15. For i = 0 To _LeaveTextboxen.Count - 1
    16. If i = 0 And sender Is TextBox2 Then ' hier musste ich in der if schleife nochmal den sender ansprechen, ich würd das gerne kürzer handhabne wenn es geht
    18. Dim aussage As String = TextBox3.Text
    19. If TextBox1.Text.Contains("wahr") AndAlso TextBox2.Text.Contains("wahr") Then
    20. '...
    21. End If
    23. If i = 1 And sender Is TextBox5 Then
    24. '...
    25. End If
    27. TextBox6.Text = aussage
    28. End If
    30. If i = 2 And sender Is TextBox8 Then
    31. '...
    32. end if
    33. Next
    35. End Sub

    Ja genau so ist es ich dachte ich kann das anders Schreiben ohne den Sender abzufragen. Das heißt nur die For Schleife durchgehen aber sonst schreibe ich das um nur mit Sender danke.
    Könnte man diesen Code aber sonst irgendwie abkürzen? Vor allem die Sub Textboxen_leaven
    danke lg

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. 'Konjunktionen
    5. AddHandler TextBox20.Leave, AddressOf TextBoxen_Leaven
    6. AddHandler TextBox23.Leave, AddressOf TextBoxen_Leaven
    7. AddHandler TextBox26.Leave, AddressOf TextBoxen_Leaven
    9. End Sub
    11. Private _konjunktionen As Control()
    12. Public Sub New()
    14. ' Dieser Aufruf ist für den Designer erforderlich.
    15. InitializeComponent()
    17. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    19. _konjunktionen = {TextBox2, TextBox20, TextBox23, TextBox26}
    22. End Sub
    24. Private Sub TextBoxen_Leaven(sender As Object, e As EventArgs) Handles TextBox2.Leave
    26. 'Konjunktion
    27. For i = 0 To _konjunktionen.Count - 1
    29. If i = 0 And sender Is TextBox2 Then
    31. Dim aussage As String = TextBox3.Text
    32. If TextBox1.Text.Contains("wahr") AndAlso TextBox2.Text.Contains("wahr") Then
    33. aussage = "die Konjunktion stimmt"
    34. Else
    35. aussage = "die Konjunktion ist falsch"
    36. End If
    38. TextBox3.Text = aussage
    39. End If
    41. If i = 1 And sender Is TextBox20 Then
    43. Dim aussage As String = TextBox21.Text
    44. If TextBox19.Text.Contains("wahr") AndAlso TextBox20.Text.Contains("wahr") Then
    45. aussage = "die Konjunktion stimmt"
    46. Else
    47. aussage = "die Konjunktion ist falsch"
    48. End If
    50. TextBox21.Text = aussage
    51. End If
    53. If i = 2 And sender Is TextBox23 Then
    55. Dim aussage As String = TextBox24.Text
    56. If TextBox22.Text.Contains("wahr") AndAlso TextBox22.Text.Contains("wahr") Then
    57. aussage = "die Konjunktion stimmt"
    58. Else
    59. aussage = "die Konjunktion ist falsch"
    60. End If
    62. TextBox24.Text = aussage
    63. End If
    65. If i = 3 And sender Is TextBox26 Then
    67. Dim aussage As String = TextBox27.Text
    68. If TextBox25.Text.Contains("wahr") AndAlso TextBox26.Text.Contains("wahr") Then
    69. aussage = "die Konjunktion stimmt"
    70. Else
    71. aussage = "die Konjunktion ist falsch"
    72. End If
    74. TextBox27.Text = aussage
    75. End If
    77. Next
    78. end sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Visual_Prog“ ()

    Da liegt eine Art Array vor für den Datentyp Control, von dem die Elemente die Textboxen sind.
    Dieses Array wird von der For Schleife durchgegangen.
    Mit dem Indes werden dann einzelnen Textboxen des Arrays angesprochen.

    VB.NET-Quellcode

    1. Private _konjunktionen As Control()
    2. Public Sub New()
    3. ' Dieser Aufruf ist für den Designer erforderlich.
    4. InitializeComponent()
    5. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    6. _konjunktionen = {TextBox2, TextBox20, TextBox23, TextBox26}
    7. End Sub

Facebook
Telefonspende