细节自己调整
Dim rect As Rectangle = e.Bounds
rect.Offset(0, -1)
rect.Inflate(-1, 0)
'填充底色
Dim RoundRect As New Rectangle(new point(rect.right - Radius+1 ,rect.Bottom - Radius+1) , New Size(Radius - 2 , Radius - 2 ))
Dim path As New System.Drawing.Drawing2D.GraphicsPath
path.AddLine(rect.Right, rect.Top ,rect.Right, rect.Bottom- Radius ) '右边线
path.AddArc(RoundRect, 0, 90) '左上角
path.AddLine(rect.Right-Radius , rect.Bottom,rect.left+Radius , rect.Bottom) '下边线
RoundRect.X = rect.left+1
path.AddArc(RoundRect, 90, 180)
path.AddLine(rect.left, rect.Bottom-Radius+1 ,rect.Left, rect.Top) '左边线
加好友 
发短信
Post By：2018/7/17 16:34:00 [显示全部帖子]
