Remplir combobox créé dynamiquement

Fermé
mehdi.cheddani Messages postés 9 Date d'inscription mardi 13 novembre 2012 Statut Membre Dernière intervention 22 avril 2013 - 4 févr. 2013 à 13:24
Bonjour,
Dim i As Integer = 0
Dim list = New List(Of ComboBox)
Dim selectedItem As Integer = Integer.Parse(Val(ComboBox4.SelectedItem.ToString))
Dim combo() As ComboBox
Dim lab() As Label
ReDim lab(selectedItem)
ReDim combo(selectedItem)
For i = 0 To selectedItem - 1
Dim c As New ComboBox
Dim l As New Label
l.Location = New Point(labelX, labelY + (i * 20))
l.Name = "label" & i.ToString
l.Width = 56
l.Height = 13
l.Left = 3
l.Text = "Elément"
c.Location = New Point(comboX, comboY + (i * 20))
c.Name = "Combobox" & i.ToString
c.Width = 156
c.Height = 21
c.Items.Add("test")
combo(i) = c
lab(i) = l
Next
Dim j As Integer = Val(combo.Count)
For i = 0 To j - 1
Me.Controls.Add(combo(i))
Me.Controls.Add(lab(i))

Next

Merci d'avance


A voir également: