Discussion :

[Miska59]

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

[licardentaistor]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub RemoveNameColor(cBox As ComboBox, myColors() As String)
    Dim list As New List(Of String)(cBox.Items.Cast(Of String))
    For Each ColorA As String In myColors
        list.RemoveAll(Function(item) item.Equals(ColorA, StringComparison.OrdinalIgnoreCase))
    Next
    cBox.Items.Clear()
    cBox.Items.AddRange(list.ToArray())
End Sub

[Miska59]

Bonjour licardentaistor,

Merci de votre réponse. ça fonctionne très bien et bon dimanche à vous. cordialement
voici en image :