フォームに複雑な図形を描画する。 （.NET）

Question

を私は次のようになりコントロールがあります。

を私はすべての余分なエンドスペースがあるやや丸い端を追加する必要があります。私はこれらを追加する方法がわかりません。ラウンドエンドと似ていますthis page.（上部）

ありがとう！

Answer 1

数年後...しかし、これはあなたの質問に対する答えかもしれません。

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 

コードから、矩形を描画するためのパラメータを指定してください。