Discussion :

[hacker59]

voici mes codes:

Code :

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

1
2
3
4
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        ColorDialog1.ShowDialog()
        PictureBox1.BackColor = ColorDialog1.Color
    End Sub

bonjour, je voudrais de l'aide pour convertir une couleur en hexadecimal. quand je click sur pallette de couleur il m'affiche le code hexadecimale dans textbox1.text par ex : couleur noir = 000000.

merci de votre aide.

[tomlev]

Code :

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

Dim htmlColor As String = ColorTranslator.ToHtml(ColorDialog1.Color)

[hacker59]

merci pour ton aide tomlev, mais j'ai modifier le code que tu m'a données.

Code :

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

TextBox1.Text = ColorTranslator.ToHtml(ColorDialog1.Color)

mais quand je click sur rouge dans la palette de couleur, il m'affiche dans textbox1.text = RED a la place ce code : FF0000
peut-on corriger ce petit probléme. merci

[tomlev]

Ce n'est pas un problème ; la valeur "red" est une couleur valide en HTML. Quand c'est une couleur connue, ça renvoie le nom plutôt que le code hexa.

Si tu veux vraiment le code hexa, tu peux toujours faire ça :

Code :

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

1
2
3
Function ToHtmlColor(ByVal c As System.Drawing.Color) As String
    Return String.Format("{0:X2}{1:X2}{2:X2}", c.R, c.G, c.B)
End Function

[hacker59]

voici en image ce que il me donne:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        ColorDialog1.ShowDialog()
        PictureBox1.BackColor = ColorDialog1.Color
        Dim htmlColor As String = ColorTranslator.ToHtml(ColorDialog1.Color)
        TextBox1.Text = htmlColor
    End Sub
    Function ToHtmlColor(ByVal c As System.Drawing.Color) As String
        Return String.Format("{0:X2}{1:X2}{2:X2}", c.R, c.G, c.B)
    End Function

ce me fait toujour le meme probleme.

[chrismonoye]

Bonsoir,
à tester :

Code :

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

1
2
3
4
5
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        ColorDialog1.ShowDialog()
        PictureBox1.BackColor = ColorDialog1.Color
        TextBox1.Text = ColorDialog1.Color.ToArgb.ToString("X")
    End Sub

[tomlev]

ce me fait toujour le meme probleme.

Bah oui, tu as copié ma méthode ToHtmlColor, mais tu l'as pas appelée... ton code fait donc exactement la même chose qu'avant.

Code :

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

1
2
Dim htmlColor As String = ToHtmlColor(ColorDialog1.Color)
TextBox1.Text = htmlColor