Discussion :

[MiNa 7]

Bonjour,

J'ai trouvé cette instruction dans un exemple et quand je la utilisé j'ai remarqué que le rectangle colorier par cette Mybrush est dégradé alors pouvez vous m'expliquer les cette instruction et m'aider a faire une coloration unie sans dégradation.
Merci d'avance.

Code :

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

Dim myBrush As New Drawing2D.LinearGradientBrush(ClientRectangle, Color.Yellow, Color.Blue, Drawing2D.LinearGradientMode.Horizontal)

[MABROUKI]

Bonjour,
apparemment tu poses des questions mais sans examiner les reponse.
regarde sur ton poste colorier un rectangle.
l'instruction pour un brosse avec Drawing2D.LinearGradientBrush est reservee comme son nom l'indique pour les gens qui veulent remplir un rectangle avec des couleurs degradees ou degradees +hachures , le mode horizontal,vertical etc...
maintenant pour remplir toute forme geom je te repete c' est fillrectangle,fillellipse,fillpolygon pas autre chose...

Code :

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

1
2
3
4
5
6
 
  Dim brosseUnie As SolidBrush = New SolidBrush(Color.Blue)
        e.Graphics.FillRectangle(brosseUnie, 50, 50, 60, 40)
 
        Dim brosseHachure As HatchBrush = New HatchBrush(HatchStyle.Percent40, Color.Azure)
        e.Graphics.FillEllipse(brosseHachure, 120, 50, 60, 40)

bon code...

[MiNa 7]

Bonjour,
apparemment tu poses des questions mais sans examiner les reponse.
regarde sur ton poste colorier un rectangle.
l'instruction pour un brosse avec Drawing2D.LinearGradientBrush est reservee comme son nom l'indique pour les gens qui veulent remplir un rectangle avec des couleurs degradees ou degradees +hachures , le mode horizontal,vertical etc...
maintenant pour remplir toute forme geom je te repete c' est fillrectangle,fillellipse,fillpolygon pas autre chose...

Code :

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

1
2
3
4
5
6
 
  Dim brosseUnie As SolidBrush = New SolidBrush(Color.Blue)
        e.Graphics.FillRectangle(brosseUnie, 50, 50, 60, 40)
 
        Dim brosseHachure As HatchBrush = New HatchBrush(HatchStyle.Percent40, Color.Azure)
        e.Graphics.FillEllipse(brosseHachure, 120, 50, 60, 40)

bon code...

Je m'excuse mais je ne suis qu'une débutante en VB.net Merci pour votre réponse