Bonsoir,

j'ai créée un class Label Multiple color mais j'ai ajouter un fonction ResetAllKeyWord dans ma class.

mon code form1 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MarkLabelColor1.ResetAllKeyWord({"Mark", "Label", "Color", "1"}, {Color.Red, Color.Blue, Color.YellowGreen, Color.Green})
    End Sub
dans la class :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public Sub ResetAllKeyWord(ByVal keyList As String(), ByVal ColorList As Color())
        Dim query = From str In keyList Select New MarkKey() With {.KeyWord = str, .KeyColor = ColorList(str.Length - 1)}
        Me.KeyWords = query.ToArray
        Me.Refresh()
    End Sub
 
Public Class MarkKey
    Public Property KeyWord As String
    Public Property KeyColor As Color
 
End Class
mon problème c'est comme puis-je mis prends avec une liste de mot et couleur avec ResetAllKeyWord ?