System.Drawing.Brushes Color [Résolu]

Signaler
Messages postés
4
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
21 août 2010
-
Messages postés
4
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
21 août 2010
-
Je souhaiterais avoir une couleur de Brush à partir d'une valeur numérique.
Quelqu'un peut il me dire si c'est possible,
plutôt qu'une énumération fastidieuse comme dans le cas du CASE ci dessous.

Dim



MaBrosse

As
Brush


Dim
CoulVb25

As
Color


MaBrosse = Brushes.Black              

' Define the default color of the brush as black.



Select






Case
(e.Index)                      

' Determine the color of the brush to draw each item based on the index of the item to draw.






Case
1 : MaBrosse = Brushes.Red


Case
2 : MaBrosse = Brushes.Brown


Case
3 : MaBrosse = Brushes.Coral


Case
4 : .........................





Case
9 : MaBrosse = Brushes.Purple


End



Select


CoulVb25 = Color.FromArgb(e.Index)




MaBrosse = CoulVB25




erreur : Une valeur de type System.drawing.color ne peut être convertie en System.drawing.Brush



e.Graphics.DrawString(Liste_Box.Items(e.Index), e.Font, MaBrosse, New RectangleF(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))

2 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Salut,

Un boujour et un merci c'est long à écrire ?

Pour crée une nouvelle brush :



MaBrosse =
New
System.Drawing.SolidBrush(CoulVb25)






Kenji

Merci de lire le règlement (vivement conseillé voir obligatoire).

/FONT>
Messages postés
4
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
21 août 2010

Bonjour Kenji,

Désolé d'avoir rédigé ma demande aussi rapidement.

Et Merci pour la réponse.

A +
ICLM