Discussion :

[haxball47]

Bonjour, je cherche à réaliser un color picker adapté à mes besoins, pour cela j'ai besoin de savoir s'il est possible via un composant CheckedListBox ou au pire RichTextBox ou ListBox (je suis ouvert à d'autre propositions), de coloré la dernière ligne seulement de la couleur que j'ai sous la souris.

A se stade, je récupère bien la valeur RGB sous mon curseur, j'inclus sans soucis la valeur dans mon RichTextBox (bien que j'aurais préféré un CheckedListBox), et le contenu prend bien la couleur que je viens de sélectionner, le seul hic, c'est qu'en sélectionnant une autre couleur, tout le texte de mon RTB change pour cette couleur, alors que j'aimerais que se ne soit que la dernière ligne.

Je ne vois plus comment m'y prendre, le but étant qu'au final, si j'ai sélectionner 10 couleurs, chacune des lignes contenant la valeur RGB sélectionné, soit écrite de cette couleur, afin de me remémorer avant d'enregistrer cela dans un fichier quelle était la couleur, dans le cas ou je change d'avis et veuille en supprimer une.

Si quelqu'un a une piste, je suis preneur, merci par avance

[rv26t]

Bonjour,

Voici un exemple simple avec une ListBox. (un bouton, une listbox, un ColorDialog)
La propriété "DrawMode" de la ListBoxdoit être sur "OwnerDrawFixed"

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
    ' dictionnaire identifiant la ligne et la couleur associée
    Private DicoCouleurLigne As Dictionary(Of String, Color) = New Dictionary(Of String, Color)
    Private Ligne As Integer = 0 ' compteur de ligne pour l'exemple (afin de différencier les lignes)
 
    Private Sub lstCouleur_DrawItem(sender As System.Object, e As System.Windows.Forms.DrawItemEventArgs) Handles lstCouleur.DrawItem
        e.Graphics.FillRectangle(New SolidBrush(DicoCouleurLigne(DirectCast(lstCouleur.Items(e.Index), String))), e.Bounds)     ' colorise la ligne
        e.Graphics.DrawString(DirectCast(lstCouleur.Items(e.Index), String), lstCouleur.Font, New SolidBrush(lstCouleur.ForeColor), e.Bounds.Left + 1, e.Bounds.Top + 1)
    End Sub
 
    ' exemple d'ajout dans la liste box (ici "LigneX" représente la valeur à traiter, à remplacer suivant ton type utilisé et les valeurs associées)
    Private Sub btnAjCouleur_Click(sender As System.Object, e As System.EventArgs) Handles btnAjCouleur.Click
        If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            DicoCouleurLigne.Add("ligne" & Ligne.ToString, ColorDialog1.Color)
            lstCouleur.Items.Add("ligne" & Ligne.ToString)
            Ligne += 1
        End If
    End Sub

[haxball47]

Un énorme merci à toi rv26t, j'ai grâce à toi pu finaliser mon petit projet