1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Class Form1
Dim LIST As List(Of String) = New List(Of String) From {"Pierre", "Paul", "André", "Anne", "Didier", "Denise", "Valérie", "Jacques", "Christophe", "Liliane", "Romain"}
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
InitList()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim cb1 As String
cb1 = ComboBox1.Text
LIST.Remove(cb1)
For Each l As String In LIST
ComboBox2.Items.Add(l)
Next
LIST.Clear()
End Sub
Sub InitList()
For Each l As String In LIST
ComboBox1.Items.Add(l)
Next
End Sub
End Class |
Partager