Bonjour,

j'arrive pas à enlever ma liste de couleur dans combobox1.
exemple les couleurs à enlever dans combox1 : Transparent, Black, Comsik, FloralWhite, GhostWhite, Honeydew, Ivory ....etc
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim MyColors As String() = {"Transparent", "Black", "Comsik", "FloralWhite", "GhostWhite", "Honeydew", "Ivory"}
 
 Private Sub FillColors(CBox As ComboBox)
        CBox.Items.Clear()
        If MyColors Is Nothing Then Return
        Dim colType As Type = GetType(System.Drawing.Color)
        For Each prop As PropertyInfo In colType.GetProperties()
            If prop.PropertyType Is GetType(System.Drawing.Color) Then
                'if not prop.Name = "Transparent" then
                CBox.Items.Add(prop.Name)
                'End If
            End If
        Next
        RemoveNameColor(CBox, MyColors)
        If CBox.Items.Count > 0 Then
            CBox.SelectedIndex = 0
        End If
    End Sub
 
Private Sub RemoveNameColor(cBox As ComboBox, myColors() As String)
        Dim list As New List(Of String)()
        For Each ColorA As String In myColors
            For Each ColorB As String In cBox.Items
                If Not ColorB.ToLower.Contains(ColorA.ToLower) Then
                    list.Add(ColorB)
                End If
            Next
        Next
        cBox.Items.Clear()
        cBox.Items.AddRange(list.ToArray())
    End Sub
Pouvez-vous m'aider à enlever ma liste des couleurs dans combox1? Merci d'avance