Graphics - Rounded Corners & Drawing [Resolved]

[RobDog888]

Ok, I got that to draw but how would I clear the square edges? I just need to
create a rectangle with the top two corners rounded and then fill it will a
gradient (I can do the fill part already). The background will be transparent
by default so when I draw the region and fill it the corners will be gone
already if the rectangle is rounded on top only.

This is the area that I need to convert to a region, I think, so it can be filled.

Function BorderRect() As Rectangle
        Dim rec As Rectangle = Me.cmdClose.ClientRectangle
        Return New Rectangle(1, 1, rec.Width - 3, rec.Height - 3)
    End Function
 
    Private Sub DrawRoundedButtons(ByVal g As Graphics, ByVal p As Pen, ByVal rec As Rectangle, ByVal size As Size)
        Dim oldSmoothingMode As SmoothingMode = g.SmoothingMode
        g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
        'Top line
        g.DrawLine(p, rec.Left + size.Width \ 2, rec.Top, rec.Right - size.Width \ 2, rec.Top)
        'Right top corner
        g.DrawArc(p, rec.Right - size.Width, rec.Top, size.Width, size.Height, 270, 90)
        'Right line 
        g.DrawLine(p, rec.Right, rec.Top + size.Height \ 2, rec.Right, rec.Bottom)
        'Bottom line 
        g.DrawLine(p, rec.Right, rec.Bottom, rec.Left, rec.Bottom)
        'Left line 
        g.DrawLine(p, rec.Left, rec.Bottom, rec.Left, rec.Top + size.Height \ 2)
        'Left top corner
        g.DrawArc(p, rec.Left, rec.Top, size.Width, size.Height, 180, 90)
        g.SmoothingMode = oldSmoothingMode
    End Sub
 
    Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles cmdClose.Paint
        DrawRoundedButtons(e.Graphics, New Pen(Color.Black), BorderRect, New Size(16, 16))
    End Sub

Thanks

[RobDog888]

Ok, I think I may have it. I can get it to draw a region and fill it with a gradient.
Now I need to see if I can get it to draw on the background of my control
yet allow the text to be in front. If not then I will need to draw the text
too.

Note: this is on a button only as a test (75 x 23)

Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
        Dim myPath As New GraphicsPath
        'Top line
        myPath.AddLine(7, 0, 64, 0)
        'Right top arc
        myPath.AddArc(64, 0, 10, 10, 270, 90)
        'Right line
        myPath.AddLine(74, 7, 74, 22)
        'Bottom line
        myPath.AddLine(74, 22, 0, 22)
        'Left line
        myPath.AddLine(0, 22, 0, 7)
        'Left top arc
        myPath.AddArc(0, 0, 10, 10, 180, 90)
        ' Draw the path to the screen.
        Dim myPen As New Pen(Color.White, 1)
        e.Graphics.DrawPath(myPen, myPath)
        'Draw the gradient
        Dim br As New LinearGradientBrush(Me.ClientRectangle, Color.White, Color.CornflowerBlue, LinearGradientMode.Horizontal)
        e.Graphics.FillPath(br, myPath)
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Me.Button1.Invalidate()
    End Sub

[RobDog888]

So far so good. I am getting around the text by placing a label with a transparent
background as a child control. Now I have another problem, I need to draw a
circular button with a gradient border. Sounds like too much work so I want
to use an image.

how do I draw an image from a imagelist on my label?

[Pirate]

Something like this should draw the first picture in the imagelist on a a lable (this is in the paint event handler) :

[size=2]e.Graphics.DrawImage([/size][size=2][color=#0000ff]Me[/color][/size][size=2].ImageList1.Images(0), [/size][size=2][color=#0000ff]New[/color][/size][size=2] PointF(x, y))[/size]

[RobDog888]

Ok, thanks but I am thinking of making my own control out of this since its
evolving that way. Would I be able to use an IL on a control or would it be
better to use the image as a resource?

Thanks and sorry for the delay. I was remodeling my house all weekend.

[Pirate]

Ok, thanks but I am thinking of making my own control out of this since its
evolving that way. Would I be able to use an IL on a control or would it be
better to use the image as a resource?

Thanks and sorry for the delay. I was remodeling my house all weekend.

Umm , can you jog my memory on this one "IL" (It wouldn't make sense if I say Intermediate Language , would it? )????

[RobDog888]

Sorry about that. I mean Image List. I think it may be better to use an image as a resource?