Mehrere Sender und For-Schleifen zusammenfassen

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

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

    Mehrere Sender und For-Schleifen zusammenfassen

    Nabend ich habe von folgendem Code einige sich wiederholende Einheiten und mich würde mal interessieren ob man das noch zusammenfassen kann?

    danke Gruss

    VB.NET-Quellcode

    1. If sender Is ToolStripMenuItem29 And CB_items.Checked = True Then
    2. spread = 9
    3. spread2 = 15
    4. For i = 2 To spread
    5. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
    6. Next
    8. For t = 10 To spread2
    9. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("0") & t)
    10. Next
    12. End If
    14. If sender Is ToolStripMenuItem30 And CB_items.Checked = True Then
    15. spread = 9
    16. spread2 = 20
    17. For i = 2 To spread
    18. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
    19. Next
    21. For t = 10 To spread2
    22. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("0") & t)
    23. Next
    25. End If
    27. If sender Is ToolStripMenuItem31 And CB_items.Checked = True Then
    28. spread = 9
    29. spread2 = 30
    30. For i = 2 To spread
    31. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
    32. Next
    34. For t = 10 To spread2
    35. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("0") & t)
    36. Next
    38. End If

    Anstatt unzaehlige male dieses zu testen: ... And CB_items.Checked = True , teste es einmal und gut.

    VB.NET-Quellcode

    1. If CB_items.Checked Then
    3. End If


    In dieser Bedingung dann weiter mit einemr Select Case, dort je nach sender spread und spread2 zuweisen und nach der Select Case dann die beiden Schleifen.
    And i think to myself... what a wonderfuL World!

    @VB1963 Und, nicht Oder. ;)
    @Visual_Prog so was:

    VB.NET-Quellcode

    1. Private Sub ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click, ToolStripMenuItem30.Click, ToolStripMenuItem31.Click
    2. If CB_items.Checked Then
    3. spread = 9
    5. If sender Is ToolStripMenuItem29 Then
    6. spread2 = 15
    7. ElseIf sender Is ToolStripMenuItem30 Then
    8. spread2 = 20
    9. ElseIf sender Is ToolStripMenuItem31 Then
    10. spread2 = 30
    11. End If
    13. For i = 2 To spread
    14. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
    15. Next
    17. For t = 10 To spread2
    18. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("0") & t)
    19. Next
    20. End If
    21. End Sub
    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!

    @VB1963 Jou.
    @Visual_Prog Dies ist besser:

    VB.NET-Quellcode

    1. Private Sub ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click, ToolStripMenuItem30.Click, ToolStripMenuItem31.Click
    2. If CB_items.Checked Then
    3. Dim spread2 As Integer
    4. If sender Is ToolStripMenuItem29 Then
    5. spread2 = 15
    6. ElseIf sender Is ToolStripMenuItem30 Then
    7. spread2 = 20
    8. ElseIf sender Is ToolStripMenuItem31 Then
    9. spread2 = 30
    10. End If
    12. For i = 2 To spread2
    13. LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
    14. Next
    15. End If
    16. End Sub
    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