enlever certain de couleur dans combobox1
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:
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
