章鱼哥出品—VB.NET 如何绘制圆角矩形，并适应窗体大小

最新推荐文章于 2023-04-01 14:31:54 发布

章鱼小哥0826

最新推荐文章于 2023-04-01 14:31:54 发布

阅读量5.6k

点赞数 1

分类专栏：绘图类文章标签： VB.NET 章鱼哥绘制矩形

本文链接：https://blog.csdn.net/zhangyubishoulin/article/details/40780055

版权

章鱼哥分享了如何在VB.NET中使用自定义函数GetRoundedRectPath动态绘制圆角矩形，并使其能够根据窗体尺寸变化自动调整。在窗体的Paint事件中调用DrawingRect方法，使用Graphics对象和Pen进行绘制，并在SizeChanged事件中通过Invalidate刷新画布，实现圆角矩形随窗体大小改变的效果。

摘要由CSDN通过智能技术生成

Public Class Form1
    '*********************************************************************   
    '作者：章鱼哥，QQ：3107073263 群：309816713       
    '如有疑问或好的建议请联系我，大家一起进步     
    '*********************************************************************     
    '绘制圆角矩形函数
    Private Function GetRoundedRectPath(ByVal rect As Rectangle, ByVal radius As Integer) As System.Drawing.Drawing2D.GraphicsPath
        rect.Offset(-1, -1)
        Dim RoundRect As New Rectangle(rect.Location, New Size(radius - 1, radius - 1))

        Dim path As New System.Drawing.Drawing2D.GraphicsPath
        path.AddArc(RoundRect, 180, 90)     '左上角
        RoundRect.X = rect.Right - radius   '右上角
        path.AddArc(RoundRect, 270, 90)
        RoundRect.Y = rect.Bottom - radius  '右下角
        path.AddArc(RoundRect, 0, 90)
        RoundRect.X = rect.Left             '左下角
        path.AddArc(RoundRect, 90,