Nabend ich habe von folgendem Code einige sich wiederholende Einheiten und mich würde mal interessieren ob man das noch zusammenfassen kann?
danke Gruss
danke Gruss
VB.NET-Quellcode
- If sender Is ToolStripMenuItem29 And CB_items.Checked = True Then
- spread = 9
- spread2 = 15
- For i = 2 To spread
- LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
- Next
- For t = 10 To spread2
- LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("0") & t)
- Next
- End If
- If sender Is ToolStripMenuItem30 And CB_items.Checked = True Then
- spread = 9
- spread2 = 20
- For i = 2 To spread
- LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
- Next
- For t = 10 To spread2
- LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("0") & t)
- Next
- End If
- If sender Is ToolStripMenuItem31 And CB_items.Checked = True Then
- spread = 9
- spread2 = 30
- For i = 2 To spread
- LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("00") & i)
- Next
- For t = 10 To spread2
- LB_Themen.Items.Add(CStr(LB_Themen.SelectedItem) & value.ToString("0") & t)
- Next
- End If