0
我有一个类似于下面的控制: 在窗体上绘制复杂的形状。 (.NET)
我需要稍微加轮回结束,所有这些额外的结束空间。我不知道如何添加这些。它看起来应该类似于this page.(顶部)的圆形末端
谢谢!
我有一个类似于下面的控制: 在窗体上绘制复杂的形状。 (.NET)
我需要稍微加轮回结束,所有这些额外的结束空间。我不知道如何添加这些。它看起来应该类似于this page.(顶部)的圆形末端
谢谢!
几年后......但这可能是你的问题的答案。
Public Sub DrawRoundedRectangle(ByVal objGraphics As Graphics, _
ByVal m_intxAxis As Integer, _
ByVal m_intyAxis As Integer, _
ByVal m_intWidth As Integer, _
ByVal m_intHeight As Integer, _
ByVal m_diameter As Integer)
'Dim g As Graphics
Dim BaseRect As New RectangleF(m_intxAxis, m_intyAxis, m_intWidth,
m_intHeight)
Dim ArcRect As New RectangleF(BaseRect.Location,
New SizeF(m_diameter, m_diameter))
'top left Arc
objGraphics.DrawArc(Pens.Black, ArcRect, 180, 90)
objGraphics.DrawLine(Pens.Black, m_intxAxis + CInt(m_diameter/2),
m_intyAxis,
m_intxAxis + m_intWidth - CInt(m_diameter/2),
m_intyAxis)
' top right arc
ArcRect.X = BaseRect.Right - m_diameter
objGraphics.DrawArc(Pens.Black, ArcRect, 270, 90)
objGraphics.DrawLine(Pens.Black, m_intxAxis + m_intWidth,
m_intyAxis + CInt(m_diameter/2),
m_intxAxis + m_intWidth,
m_intyAxis + m_intHeight - CInt(m_diameter/2))
' bottom right arc
ArcRect.Y = BaseRect.Bottom - m_diameter
objGraphics.DrawArc(Pens.Black, ArcRect, 0, 90)
objGraphics.DrawLine(Pens.Black, m_intxAxis + CInt(m_diameter/2),
m_intyAxis + m_intHeight,
m_intxAxis + m_intWidth - CInt(m_diameter/2),
m_intyAxis + m_intHeight)
' bottom left arc
ArcRect.X = BaseRect.Left
objGraphics.DrawArc(Pens.Black, ArcRect, 90, 90)
objGraphics.DrawLine(Pens.Black,
m_intxAxis, m_intyAxis + CInt(m_diameter/2),
m_intxAxis,
m_intyAxis + m_intHeight - CInt(m_diameter/2))
End Sub
从您的代码中提供参数来绘制矩形,然后离开您!
哦好多了!非常感谢!一个更好的答案总是被接受的,无论多少年后它可能会迟到。 ;) – FreeSnow