winforms Windows 10样式化的上下文菜单条

ndasle7k  于 2022-11-16  发布在  Windows
关注(0)|答案(2)|浏览(184)

有没有一种方法来创建ContextMenuStrip使用Visual Studio和窗体与Windows 10风格.我知道，它的渲染器可以改变，以便有看起来像Windows Vista，7和8.这就是我做的：

但我也想在Windows 10中使它看起来像这样：

有没有一种方法可以使用Windows窗体来完成它，或者应该以某种特殊的方式来完成它，使用Metro类等？

winforms

2条答案

按热度按时间
biswetbf

biswetbf1#

您可以实作自订的Renderer，覆写OnRenderArrow和OnRenderItemCheck，并将自订的ColorTable传递给它。然后将它设定为ContextMenu的Renderer。

颜色表代码：

public class MyColorTable : ProfessionalColorTable
{
    public override Color MenuItemBorder
    {
        get { return Color.WhiteSmoke; }
    }
    public override Color MenuItemSelected
    {
        get { return Color.WhiteSmoke; }
    }
    public override Color ToolStripDropDownBackground
    {
        get { return Color.White; }
    }
    public override Color ImageMarginGradientBegin
    {
        get { return Color.White; }
    }
    public override Color ImageMarginGradientMiddle
    {
        get { return Color.White; }
    }
    public override Color ImageMarginGradientEnd
    {
        get { return Color.White; }
    }
}

渲染器代码：

public class MyRenderer : ToolStripProfessionalRenderer
{
    public MyRenderer()
        : base(new MyColorTable())
    {
    }
    protected override void OnRenderArrow(ToolStripArrowRenderEventArgs e)
    {
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias;
        var r = new Rectangle(e.ArrowRectangle.Location, e.ArrowRectangle.Size);
        r.Inflate(-2, -6);
        e.Graphics.DrawLines(Pens.Black, new Point[]{
        new Point(r.Left, r.Top),
        new Point(r.Right, r.Top + r.Height /2), 
        new Point(r.Left, r.Top+ r.Height)});
    }

    protected override void OnRenderItemCheck(ToolStripItemImageRenderEventArgs e)
    {
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias;
        var r = new Rectangle(e.ImageRectangle.Location, e.ImageRectangle.Size);
        r.Inflate(-4, -6);
        e.Graphics.DrawLines(Pens.Black, new Point[]{
        new Point(r.Left, r.Bottom - r.Height /2),
        new Point(r.Left + r.Width /3,  r.Bottom), 
        new Point(r.Right, r.Top)});
    }
}

表单加载的代码：

private void Form_Load(object sender, EventArgs e)
{
    this.contextMenuStrip1.Renderer = new MyRenderer();
}
赞(0）分享  回复(0）举报  2022-11-16
pkbketx9

pkbketx92#

将两个现成的上下文菜单渲染器添加到已接受的答案

VS 2019年光明：

#Region "References"
Imports System.Drawing.Drawing2D
#End Region

Namespace MenuStripRenderer

    Public Class VS2019LightBlueRenderer

        Inherits ToolStripProfessionalRenderer

#Region "Colors"

        ReadOnly _colorMenuArrow As Color = Color.FromArgb(0, 122, 204)
        ReadOnly _colorCheckSquare As Color = Color.FromArgb(0, 122, 204)
        ReadOnly _colorCheckMark As Color = Color.FromArgb(19, 69, 99)
        ReadOnly _colorMenuItemText As Color = Color.FromArgb(33, 33, 33)

#End Region

#Region "Constructor"

        Public Sub New()
            MyBase.New(New MenuStripColorTable())
        End Sub

#End Region

#Region "Overridden Methods"

        Protected Overrides Sub OnRenderArrow(e As ToolStripArrowRenderEventArgs)

            'Draw arrow color
            If e IsNot Nothing Then e.ArrowColor = _colorMenuArrow
            MyBase.OnRenderArrow(e)

        End Sub

        Protected Overrides Sub OnRenderItemText(e As ToolStripItemTextRenderEventArgs)

            If e IsNot Nothing Then

                Dim textRect = e.TextRectangle
                textRect.Height = e.Item.Height - 4 '4 is the default difference between the item height and the text rectangle height

                e.TextRectangle = textRect
                e.TextFormat = TextFormatFlags.VerticalCenter
                e.TextColor = _colorMenuItemText

            End If

            MyBase.OnRenderItemText(e)

        End Sub

        Protected Overrides Sub OnRenderMenuItemBackground(e As ToolStripItemRenderEventArgs)

            If e Is Nothing OrElse Not e.Item.Enabled Then Return
            MyBase.OnRenderMenuItemBackground(e)

        End Sub

        Protected Overrides Sub OnRenderItemCheck(e As ToolStripItemImageRenderEventArgs)

            If e IsNot Nothing Then

                Dim g = e.Graphics
                g.SmoothingMode = SmoothingMode.AntiAlias

                Dim rectImage = New Rectangle(e.ImageRectangle.Location, e.ImageRectangle.Size)
                rectImage.Inflate(-1, -1)

                Using p = New Pen(_colorCheckSquare, 1)
                    g.DrawRectangle(p, rectImage)
                End Using

                Dim rectCheck = rectImage
                rectCheck.Width = rectImage.Width - 6
                rectCheck.Height = rectImage.Height - 8
                rectCheck.X += 3
                rectCheck.Y += 4

                Using p = New Pen(_colorCheckMark, 2)
                    g.DrawLines(p, {New Point(rectCheck.Left, rectCheck.Bottom - CInt(rectCheck.Height / 2)), New Point(rectCheck.Left + CInt(rectCheck.Width / 3), rectCheck.Bottom), New Point(rectCheck.Right, rectCheck.Top)})
                End Using

            End If

        End Sub

#End Region

#Region "Classes"

        Private Class MenuStripColorTable

            Inherits ProfessionalColorTable

#Region "Colors"

            ReadOnly _colorMenuBorder As Color = Color.FromArgb(204, 206, 219)
            ReadOnly _colorMenuItemSelected As Color = Color.FromArgb(201, 222, 245)
            ReadOnly _colorBackground As Color = Color.FromArgb(246, 246, 246)
            ReadOnly _colorSeparator As Color = Color.FromArgb(224, 227, 230)
            ReadOnly _colorStatusStripGradient As Color = Color.FromArgb(234, 237, 241)
            ReadOnly _colorButtonSelected As Color = Color.FromArgb(88, 146, 226)
            ReadOnly _colorButtonPressed As Color = Color.FromArgb(110, 160, 230)

#End Region

#Region "Properties"

            Public Overrides ReadOnly Property ToolStripDropDownBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuStripGradientBegin As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuStripGradientEnd As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property CheckBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property CheckPressedBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property CheckSelectedBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuItemSelected As Color
                Get
                    Return _colorMenuItemSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ImageMarginGradientBegin As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property ImageMarginGradientMiddle As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property ImageMarginGradientEnd As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuItemBorder As Color
                Get
                    Return _colorMenuItemSelected
                End Get
            End Property

            Public Overrides ReadOnly Property MenuBorder As Color
                Get
                    Return _colorMenuBorder
                End Get
            End Property

            Public Overrides ReadOnly Property SeparatorDark As Color
                Get
                    Return _colorSeparator
                End Get
            End Property

            Public Overrides ReadOnly Property SeparatorLight As Color
                Get
                    Return _colorSeparator
                End Get
            End Property

            Public Overrides ReadOnly Property StatusStripGradientBegin As Color
                Get
                    Return _colorStatusStripGradient
                End Get
            End Property

            Public Overrides ReadOnly Property StatusStripGradientEnd As Color
                Get
                    Return _colorStatusStripGradient
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedGradientBegin As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedGradientMiddle As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedGradientEnd As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedBorder As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedGradientBegin As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedGradientMiddle As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedGradientEnd As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedBorder As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

#End Region

        End Class

#End Region

    End Class

End Namespace

VS 2019年黑暗：

#Region "References"
Imports System.Drawing.Drawing2D
#End Region

Namespace MenuStripRenderer

    Public Class VS2019DarkBlueRenderer

        Inherits ToolStripProfessionalRenderer

#Region "Colors"

        ReadOnly _colorMenuArrow As Color = Color.FromArgb(237, 237, 237)
        ReadOnly _colorCheckSquare As Color = Color.FromArgb(0, 122, 204)
        ReadOnly _colorCheckMark As Color = Color.FromArgb(237, 237, 237)
        ReadOnly _colorMenuItemText As Color = Color.FromArgb(237, 237, 237)

#End Region

#Region "Constructor"

        Public Sub New()
            MyBase.New(New MenuStripColorTable())
        End Sub

#End Region

#Region "Overridden Methods"

        Protected Overrides Sub OnRenderArrow(e As ToolStripArrowRenderEventArgs)

            If e IsNot Nothing Then e.ArrowColor = _colorMenuArrow
            MyBase.OnRenderArrow(e)

        End Sub

        Protected Overrides Sub OnRenderItemCheck(e As ToolStripItemImageRenderEventArgs)

            If e IsNot Nothing Then

                Dim g = e.Graphics
                g.SmoothingMode = SmoothingMode.AntiAlias

                Dim rectImage = New Rectangle(e.ImageRectangle.Location, e.ImageRectangle.Size)
                rectImage.Inflate(-1, -1)

                Using p = New Pen(_colorCheckSquare, 1)
                    g.DrawRectangle(p, rectImage)
                End Using

                Dim rectCheck = rectImage
                rectCheck.Width = rectImage.Width - 6
                rectCheck.Height = rectImage.Height - 8
                rectCheck.X += 3
                rectCheck.Y += 4

                Using p = New Pen(_colorCheckMark, 2)
                    g.DrawLines(p, {New Point(rectCheck.Left, rectCheck.Bottom - CInt(rectCheck.Height / 2)), New Point(rectCheck.Left + CInt(rectCheck.Width / 3), rectCheck.Bottom), New Point(rectCheck.Right, rectCheck.Top)})
                End Using

            End If

        End Sub

        Protected Overrides Sub OnRenderItemText(e As ToolStripItemTextRenderEventArgs)

            If e IsNot Nothing Then

                Dim textRect = e.TextRectangle
                textRect.Height = e.Item.Height - 4 '4 is the default difference between the item height and the text rectangle height

                e.TextRectangle = textRect
                e.TextFormat = TextFormatFlags.VerticalCenter
                e.TextColor = _colorMenuItemText

            End If

            MyBase.OnRenderItemText(e)

        End Sub

        Protected Overrides Sub OnRenderMenuItemBackground(e As ToolStripItemRenderEventArgs)

            If e Is Nothing OrElse Not e.Item.Enabled Then Return
            MyBase.OnRenderMenuItemBackground(e)

        End Sub

#End Region

#Region "Classes"

        Private Class MenuStripColorTable

            Inherits ProfessionalColorTable

#Region "Colors"

            ReadOnly _colorMenuBorder As Color = Color.FromArgb(61, 61, 67)
            ReadOnly _colorMenuItemSelected As Color = Color.FromArgb(76, 76, 77)
            ReadOnly _colorBackground As Color = Color.FromArgb(43, 43, 43)
            ReadOnly _colorSeparator As Color = Color.FromArgb(61, 61, 67)
            ReadOnly _colorStatusStripGradient As Color = Color.FromArgb(234, 237, 241)
            ReadOnly _colorButtonSelected As Color = Color.FromArgb(88, 146, 226)
            ReadOnly _colorButtonPressed As Color = Color.FromArgb(110, 160, 230)

#End Region

#Region "Properties"

            Public Overrides ReadOnly Property ToolStripDropDownBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuStripGradientBegin As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuStripGradientEnd As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property CheckBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property CheckPressedBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property CheckSelectedBackground As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuItemSelected As Color
                Get
                    Return _colorMenuItemSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ImageMarginGradientBegin As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property ImageMarginGradientMiddle As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property ImageMarginGradientEnd As Color
                Get
                    Return _colorBackground
                End Get
            End Property

            Public Overrides ReadOnly Property MenuItemBorder As Color
                Get
                    Return _colorMenuItemSelected
                End Get
            End Property

            Public Overrides ReadOnly Property MenuBorder As Color
                Get
                    Return _colorMenuBorder
                End Get
            End Property

            Public Overrides ReadOnly Property SeparatorDark As Color
                Get
                    Return _colorSeparator
                End Get
            End Property

            Public Overrides ReadOnly Property SeparatorLight As Color
                Get
                    Return _colorSeparator
                End Get
            End Property

            Public Overrides ReadOnly Property StatusStripGradientBegin As Color
                Get
                    Return _colorStatusStripGradient
                End Get
            End Property

            Public Overrides ReadOnly Property StatusStripGradientEnd As Color
                Get
                    Return _colorStatusStripGradient
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedGradientBegin As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedGradientMiddle As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedGradientEnd As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonSelectedBorder As Color
                Get
                    Return _colorButtonSelected
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedGradientBegin As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedGradientMiddle As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedGradientEnd As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

            Public Overrides ReadOnly Property ButtonPressedBorder As Color
                Get
                    Return _colorButtonPressed
                End Get
            End Property

#End Region

        End Class

#End Region

    End Class

End Namespace
赞(0）分享  回复(0）举报  2022-11-16
我来回答

相关问题

    查看更多

    热门标签

    更多
    JavaquerypythonNode开发语言requestUtil数据库Table后端算法LoggerMessageElementParser

    最新问答

    更多
    • 蜀ICP备2022004421号-2 NULL123 https://www.null123.com © All rights reserved
    • 本站内容来源互联网,如果侵犯您的权益请联系我们删除, 联系方式：448109455@qq.com