VB.NET构建圆角平滑的矩形控件(示例Panel)

Imports System.Drawing.Drawing2D
Public Class RoundPanelClass RoundPanel
    Inherits Panel

    Private mMatrixRound As Integer = 8
    Private mBack As Color

    Public Property Back()Property Back() As Color
        Get
            Return mBack
        End Get
        Set(ByVal value As Color)
            If value = Nothing Then
                mBack = Control.DefaultBackColor
            Else
                mBack = value
            End If
            MyBase.Refresh()
        End Set
    End Property

    Public Property MatrixRound()Property MatrixRound() As Integer
        Get
            Return mMatrixRound
        End Get
        Set(ByVal value As Integer)
            mMatrixRound = value
            MyBase.Refresh()
        End Set
    End Property

    Private Function CreateRound()Function CreateRound(ByVal rect As Rectangle, ByVal radius As Integer) As GraphicsPath
        Dim RoundRect As New GraphicsPath
        RoundRect.AddLine(rect.Left + radius - 1, rect.Top - 1, rect.Right - radius, rect.Top - 1)          '顶端 
        RoundRect.AddArc(rect.Right - radius, rect.Top - 1, radius, radius, 270, 90)                        '右上角 
        RoundRect.AddLine(rect.Right, rect.Top + radius, rect.Right, rect.Bottom - radius)                  '右边 
        RoundRect.AddArc(rect.Right - radius, rect.Bottom - radius, radius, radius, 0, 90)                  '右下角 
        RoundRect.AddLine(rect.Right - radius, rect.Bottom, rect.Left + radius, rect.Bottom)                '底边 
        RoundRect.AddArc(rect.Left - 1, rect.Bottom - radius, radius, radius, 90, 90)                       '左下角 
        RoundRect.AddLine(rect.Left - 1, rect.Top + radius, rect.Left - 1, rect.Bottom - radius)            '左边 
        RoundRect.AddArc(rect.Left - 1, rect.Top - 1, radius, radius, 180, 90)                              '左上角 
        Return RoundRect
    End Function

    Protected Overrides Sub OnPaint()Sub OnPaint(ByVal e As PaintEventArgs)
        Dim W As Integer = MyBase.Width - MyBase.Margin.Left - MyBase.Margin.Right
        Dim H As Integer = MyBase.Height - MyBase.Margin.Top - MyBase.Margin.Bottom
        Dim Rec As New Rectangle(MyBase.Margin.Left, MyBase.Margin.Top, W, H)
        Dim Round As GraphicsPath = CreateRound(Rec, mMatrixRound)
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        e.Graphics.FillPath(DirectCast(New SolidBrush(mBack), Brush), Round)
    End Sub

    Protected Overrides Sub OnResize()Sub OnResize(ByVal e As System.EventArgs)
        MyBase.Refresh()
    End Sub
End Class