Hallo,
ich möchte gerne 16 Comboboxen via Schleife ändern. wenn ich diese in eine normale Form einbette, funktioniert das ohne Probleme. Aber so bald diese in einem TabControl liegen ist es vorbei.
Im Moment nutze ich den folgenden Code:
Ich bedanke mich im voraus für Eure Hilfe.
ich möchte gerne 16 Comboboxen via Schleife ändern. wenn ich diese in eine normale Form einbette, funktioniert das ohne Probleme. Aber so bald diese in einem TabControl liegen ist es vorbei.
Im Moment nutze ich den folgenden Code:
Quellcode
- Private Sub ComboBox_select_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_select.SelectedIndexChanged
- Dim j As Integer
- Dim i As Integer
- j = ComboBox_select.SelectedIndex + 3
- 'MsgBox(ComboBox_select.SelectedIndex)
- For i = 3 To j ' Schleife über die Controls
- Dim cb = Me.Controls("ComboBoxES" & i) ' Auslesen des entsprechenden Controls, Konvertierung in eine ComboBox
- If cb IsNot Nothing Then ' Test auf tatsächliches Vorhandensein
- cb.Visible = True
- End If
- Next
- For i = j To 16
- Dim cb = Me.Controls("ComboBoxES" & i) ' Auslesen des entsprechenden Controls, Konvertierung in eine ComboBox
- If cb IsNot Nothing Then ' Test auf tatsächliches Vorhandensein
- cb.Visible = False
- End If
- Next
- End Sub
Ich bedanke mich im voraus für Eure Hilfe.