Discussion :

[didpoy]

Bonjour

Je rencontre un petit soucis d'apparence sur un MenuStrip que je n'arrive pas à résoudre malgré de nombreux essai trouvés sur le net.

Lorsque je clique sur un MenuItem celui-ci prend un fond Blanc et j'arrive pas à modifier cette couleur et surtout retrouver la couleur d’origine si on quitte ce MenuItem.

Voici en image mon soucis:

Avant Clique:


Après Clique:


Pouvez-vous résoudre ce problème ?

Merci à tous.

Cordialement.

[Pichar]

Bonjour,
J'ai un souci proche du tien.
J'ai trouvé ceci sur le Net et l'ai à peine modifié

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
18
19
20
21
22
23
24
25
26
    Public Class MenuRendererDark
        Inherits ToolStripProfessionalRenderer
 
        Dim ColorUnsel As Color = Color.Black
        Dim ColorSel As Color = String2Color("FF2F2F2F")
 
        Protected Overloads Overrides Sub OnRenderMenuItemBackground(ByVal e As ToolStripItemRenderEventArgs)
            ' Item Color
            Dim rc As New Rectangle(Point.Empty, e.Item.Size)
            Dim c As Color = IIf(e.Item.Selected, ColorSel, ColorUnsel)
            Using brush As New SolidBrush(c)
                e.Graphics.FillRectangle(brush, rc)
            End Using
        End Sub
        Protected Overrides Sub OnRenderSeparator(ByVal e As ToolStripSeparatorRenderEventArgs)
            MyBase.OnRenderSeparator(e)
            Dim ColorBrush As Brush = New SolidBrush(ColorUnsel)
            ' Separator Background
            Dim backGround As New Rectangle(0, 0, e.Item.Width, e.Item.Height)
            e.Graphics.FillRectangle(ColorBrush, backGround)
            Dim blackLine As New Rectangle(32, 3, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.Black, blackLine)
            Dim whiteLine As New Rectangle(32, 4, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.White, whiteLine)
        End Sub
    End Class

Classe à ajouter dans le code de la Form contenant le menu.
Ajouter également (je l'ai mis dans la Sub Form_Load)

Code :

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

MENU_General.Renderer = New MenuRendererDark()

MENU_General est le menu à colorier.
Je ne sais par contre pas passer de couleurs en paramètre à MenuRendererDark

[didpoy]

Bonjour

Ok Merci je vais essayer et je reviendrai dire le résultat....

Super...

Cordialement.

[didpoy]

Re

J'ai essayé le code et j'ai des erreurs de paramétrage:

String2Coloret Rectangle ne sont reconnus !!!!

Quels sont les Imports ou autre que tu as intégré dans ton code ?

Merci.

Cordialement.

[ZenZiTone]

String2Coloret Rectangle ne sont reconnus !!!!

Rectangle = system.drawing
Color2String ressemble à une méthode maison. Grosso-modo ça doit faire :

Code :

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

(Color)ColorConverter.ConvertFromString("#FFDFD991");

[didpoy]

(Color)ColorConverter.ConvertFromString("#FFDFD991")

pas sûr de comprendre comment implanter cela dans mon code !!... je vais essayer...

Merci.