954,514 Members — Technology Publication meets Social Media
Username:
Password:
Lost login information?
Have something to say? Contribute New Article Reply to this Article

Change HighLight Color MenuItem?

Hi, I have been trying to change the highlight color when the mouse gets on it of the stripmenu...how do I do that? Thanks in advance.

Aangiix3
Newbie Poster
20 posts since Nov 2011
Reputation Points: 10
Solved Threads: 0
 

You can use the MouseMove event and check if the mouse pointer is within the Bounds of the stripmenu item.
If that's the case, simply change the BackgroundColor.

Private Sub menuitem1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
        If menuitem1.Bounds.Contains(e.Location) Then
            menuitem1.BackColor = Color.Beige
        Else
            menuitem1.BackColor = Color.White
        End If
    End Sub
Oxiegen
Master Poster
715 posts since Jun 2006
Reputation Points: 87
Solved Threads: 141
 

This does not solve my problem. The Highlight color still is blue. I don't know where I can choose the highlight color, there isn't any option, and I didn't found any solution on the Internet. Please help me.

Aangiix3
Newbie Poster
20 posts since Nov 2011
Reputation Points: 10
Solved Threads: 0
 

Alright. Try this instead.
In the forms load event, add this line: <name of menustrip>.Renderer = New MyRenderer

Then,within the forms own class add a private class called MyRenderer which inherits ToolStripProfessionalRenderer.

Private Class MyRenderer : Inherits ToolStripProfessionalRenderer
        Protected Overrides Sub OnRenderMenuItemBackground(ByVal e As System.Windows.Forms.ToolStripItemRenderEventArgs)
            If e.Item.Selected Then
                Dim rc As New Rectangle(Point.Empty, e.Item.Size)

                'Set the highlight color
                e.Graphics.FillRectangle(Brushes.Beige, rc)
                e.Graphics.DrawRectangle(Pens.Beige, 1, 0, rc.Width - 2, rc.Height - 1)
            Else
                Dim rc As New Rectangle(Point.Empty, e.Item.Size)

                'Set the default color
                e.Graphics.FillRectangle(Brushes.Gray, rc)
                e.Graphics.DrawRectangle(Pens.Gray, 1, 0, rc.Width - 2, rc.Height - 1)
            End If
        End Sub
    End Class
Oxiegen
Master Poster
715 posts since Jun 2006
Reputation Points: 87
Solved Threads: 141
 

This article has been dead for over three months

Post: Markdown Syntax: Formatting Help
You
View similar articles that have also been tagged: