VB.net 如何使用Graphics画圆角长方形

可以使用以下代码实现：

Private Sub DrawRoundedRectangle(ByVal g As Graphics, ByVal p As Pen, ByVal x As Single, ByVal y As Single, ByVal width As Single, ByVal height As Single, ByVal radius As Single)
    Dim gp As New GraphicsPath()
    gp.StartFigure()
    gp.AddLine(x + radius, y, x + width - radius, y)
    gp.AddArc(x + width - radius, y, radius, radius, 270, 90)
    gp.AddLine(x + width, y + radius, x + width, y + height - radius)
    gp.AddArc(x + width - radius, y + height - radius, radius, radius, 0, 90)
    gp.AddLine(x + width - radius, y + height, x + radius, y + height)
    gp.AddArc(x, y + height - radius, radius, radius, 90, 90)
    gp.AddLine(x, y + height - radius, x, y + radius)
    gp.AddArc(x, y, radius, radius, 180, 90)
    gp.CloseFigure()
    g.DrawPath(p, gp)
End Sub

其中，g 表示 Graphics 对象，p 表示 Pen 对象，x、y、width、height 表示长方形左上角坐标和长宽，radius 表示圆角半径。使用时，调用该函数即可。