Hej alla!

Går det att ändra tonings färgerna på en MenuStrip? (Vill inte ha blå till ljusare blå). Jag vet att man kan ändra BackColor på den, men det ger hela menyn den färgen. Vill veta hur man gör för att ge syn meny en egen tonings färg.

Tack i förhand!

// Alex

Vill bara dela med mig av resultatet

Imports System.Drawing.Drawing2D

'
'HOW TO USE
''''''''''''
'ToolStrip1.RenderMode = ToolStripRenderMode.ManagerRenderMode
'ToolStrip1.Renderer = New CustomRenderer()
'

Class CustomRenderer
    Inherits ToolStripProfessionalRenderer

    '
    ' The background of the "item box"
    '
    Private Sub CustomRenderer_RenderMenuItemBackground(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemRenderEventArgs) Handles Me.RenderMenuItemBackground

        If e.ToolStrip.IsDropDown And Not e.Item.Selected Then
            Dim b = New LinearGradientBrush(New Rectangle(2, 0, 24, e.Item.Height), Color.White, Color.White, LinearGradientMode.Horizontal)
            e.Graphics.FillRectangle(b, New Rectangle(2, 0, 24, e.Item.Height))
        End If
    End Sub

    '
    ' The background of the "item sepera"
    '
    Private Sub CustomRenderer_RenderSeparator(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripSeparatorRenderEventArgs) Handles Me.RenderSeparator
        If e.ToolStrip.IsDropDown And Not e.Item.Selected Then
            Dim b = New LinearGradientBrush(New Rectangle(0, 0, 25, e.Item.Height), SystemColors.Control, Color.White, LinearGradientMode.Horizontal)
            e.Graphics.FillRectangle(b, New Rectangle(0, 0, 25, e.Item.Height))
        End If
    End Sub

    '
    ' The background of the "strip"
    '
    Private Sub CustomRenderer_RenderToolStripBackground(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripRenderEventArgs) Handles Me.RenderToolStripBackground
        If Not e.ToolStrip.IsDropDown Then
            Dim b = New LinearGradientBrush(e.AffectedBounds, SystemColors.Control, Color.White, LinearGradientMode.Horizontal)
            e.Graphics.FillRectangle(b, e.AffectedBounds)
        End If
    End Sub

End Class

Det här är precis vad jag har letat efter länge! Men jag får inte det riktigt att fungera.

Oavsett vad jag sätter för färger på CustomRenderer_RenderMenuItemBackground och CustomRenderer_RenderSeparator så är det samma färger som vanligt.

CustomRenderer_RenderToolStripBackground går däremot bra att ändra.


Thomas