Soucis de backcolor sur un MenuStrip

Version imprimable

20/09/2017, 19h11
didpoy

2 pièce(s) jointe(s)

Soucis de backcolor sur un MenuStrip

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:
Pièce jointe 313266

Après Clique:
Pièce jointe 313268

Pouvez-vous résoudre ce problème ?

Merci à tous.

Cordialement.

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

Code:

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:

MENU_General.Renderer = New MenuRendererDark()

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

27/09/2017, 14h02
didpoy

ok merci

Bonjour

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

Super...

Cordialement.
27/09/2017, 14h40
didpoy

re

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.
27/09/2017, 14h58
ZenZiTone

Citation:

Envoyé par didpoy

String2Coloret Rectangle ne sont reconnus !!!!

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

Code:

(Color)ColorConverter.ConvertFromString("#FFDFD991");
27/09/2017, 17h20
didpoy

Citation:

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

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

Merci.
27/09/2017, 17h24
ZenZiTone
Citation:

Envoyé par didpoy

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

Merci.

Le but est d'affecter la couleur à partir d'une valeur hexadécimale. En VB ça donnerait ça :
Code:

1 2 Ctype(ColorConverter.ConvertFromString("#FFDFD991"), Color)

3 pièce(s) jointe(s)

ok :D

Voilà ce que j'ai essayé entre autres, mais là je pige pas :calim2:

Pièce jointe 314974

Voilà le code que j'ai mis pour l'instant, mais cela ne rend pas comme il faudrait:

Code:

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
27
28
29
 
Public Class MenuRendererDark
        Inherits ToolStripProfessionalRenderer
 
        Dim ColorUnsel As Color = ColorTranslator.FromHtml("#0x0078D7")
        Dim ColorSel As Color = ColorTranslator.FromHtml("#0xB5D7F3")
 
 
 
        Protected Overloads Overrides Sub OnRenderMenuItemBackground(ByVal e As ToolStripItemRenderEventArgs)
            ' Item Color
            Dim rc As New Drawing.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 Drawing.Rectangle(0, 0, e.Item.Width, e.Item.Height)
            e.Graphics.FillRectangle(ColorBrush, backGround)
            Dim blackLine As New Drawing.Rectangle(32, 3, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.Black, blackLine)
            Dim whiteLine As New Drawing.Rectangle(32, 4, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.White, whiteLine)
        End Sub
    End Class

Lorsque je survole le menu, il n'y a pas de changement de couleur de fond (bleu plus clair):
Pièce jointe 314984

et quand je sélectionne le menu, mes sous-menu sont invisible et tout est blanc:
Pièce jointe 314988

je continue de chercher pour voir ce qui se passe !!!!

:weird:

27/09/2017, 18h19
Pichar

Oooops!
En effet, String2Color est une fonction maison de conversion.
Pour tester il suffit de faire simple en prenant ColorSel=Color.Green et ColorUnsel=Color.LightGreen ou inversement.
Après, il faut essayer car le rendu n'est pas terrible selon les couleurs.
27/09/2017, 18h25
didpoy

re

re

En effet, cela fonctionne avec tes couleurs, mais je n'arrive pas à utiliser ma couleur originale "Highlight" dans ColorUnsel car celle-ci n'est pas présente dans color.?????

:roll:

Re

Bon, j'ai changé toutes les couleurs de mon projet pour que cela fonctionne et c'est Ok

Code:

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.DodgerBlue
        Dim ColorSel As Color = Color.LightSkyBlue 'ColorTranslator.FromHtml("#0xB5D7F3")
        Protected Overloads Overrides Sub OnRenderMenuItemBackground(ByVal e As ToolStripItemRenderEventArgs)
            ' Item Color
            Dim rc As New Drawing.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(Color.DodgerBlue)
            ' Separator Background
            Dim backGround As New Drawing.Rectangle(0, 0, e.Item.Width, e.Item.Height)
            e.Graphics.FillRectangle(ColorBrush, backGround)
            Dim blackLine As New Drawing.Rectangle(32, 3, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.Black, blackLine)
            Dim whiteLine As New Drawing.Rectangle(32, 4, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.White, whiteLine)
        End Sub
    End Class

Maintenant à quoi sert la deuxième partie de ton code car il n'est pas appelé ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Protected Overrides Sub OnRenderSeparator(ByVal e As ToolStripSeparatorRenderEventArgs)
            MyBase.OnRenderSeparator(e)
            Dim ColorBrush As Brush = New SolidBrush(Color.DodgerBlue)
            ' Separator Background
            Dim backGround As New Drawing.Rectangle(0, 0, e.Item.Width, e.Item.Height)
            e.Graphics.FillRectangle(ColorBrush, backGround)
            Dim blackLine As New Drawing.Rectangle(32, 3, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.Black, blackLine)
            Dim whiteLine As New Drawing.Rectangle(32, 4, e.Item.Width - 32, 1)
            e.Graphics.FillRectangle(Brushes.White, whiteLine)
        End Sub

Comment utiliser cette partie ?

Merci Bien.

Cordialement.

05/10/2017, 09h43
Pichar

Bonjour,
le reste du code sert au rendu des séparateurs comme le nom le laisse supposer.
Cordialement