Simply round corners of a form

[Mike D]

I am looking for a way in vb.net to take a form with sharp corners and just
round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

[One Handed Man]

Put a panel on the form and then make the form tranparent. You can add the
controls over the panel.

OHM

Mike D wrote:

I am looking for a way in vb.net to take a form with sharp corners
and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

[Herfried K. Wagner [MVP]]

* "Mike D" <di****@hotmail .com> scripsit:

I am looking for a way in vb.net to take a form with sharp corners and just
round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

Quick and dirty:

\\\
Me.FormBorderSt yle = FormBorderStyle .None
Me.Height = 300
Me.Width = 400
Dim p As New Drawing2D.Graph icsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
p.AddLine(40, 0, Me.Width - 40, 0)
p.AddArc(New Rectangle(Me.Wi dth - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Wi dth, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Wi dth - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Wi dth - 40, Me.Height, 40, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)
Me.BackColor = Color.Red
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[One Handed Man]

Forget my post, it was untested and simply incorrect.

Sorry - OHM
One Handed Man wrote:

Put a panel on the form and then make the form tranparent. You can
add the controls over the panel.

OHM

Mike D wrote:

I am looking for a way in vb.net to take a form with sharp corners
and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

[Mike D]

WOW. I was thinking that there was something quick and simple. But I highly
appreciate the technical approach, Realizing that all things dont come in
quick and dirty flavors
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bp******** *****@ID-208219.news.uni-berlin.de...

* "Mike D" <di****@hotmail .com> scripsit:

I am looking for a way in vb.net to take a form with sharp corners and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

Quick and dirty:

\\\
Me.FormBorderSt yle = FormBorderStyle .None
Me.Height = 300
Me.Width = 400
Dim p As New Drawing2D.Graph icsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
p.AddLine(40, 0, Me.Width - 40, 0)
p.AddArc(New Rectangle(Me.Wi dth - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Wi dth, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Wi dth - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Wi dth - 40, Me.Height, 40, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)
Me.BackColor = Color.Red
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Mike D]

What does the 'P' reffence? I am doing this in vb.net if that helps any?
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bp******** *****@ID-208219.news.uni-berlin.de...

* "Mike D" <di****@hotmail .com> scripsit:

I am looking for a way in vb.net to take a form with sharp corners and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

Quick and dirty:

\\\
Me.FormBorderSt yle = FormBorderStyle .None
Me.Height = 300
Me.Width = 400
Dim p As New Drawing2D.Graph icsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
p.AddLine(40, 0, Me.Width - 40, 0)
p.AddArc(New Rectangle(Me.Wi dth - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Wi dth, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Wi dth - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Wi dth - 40, Me.Height, 40, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)
Me.BackColor = Color.Red
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Mike D]

froget my last post asking what the 'P' reffrenced. I was trying to first
create a module that I could access from all my forms, However it all
errored out. I placed the code in the form load event and all worked fine.
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bp******** *****@ID-208219.news.uni-berlin.de...

* "Mike D" <di****@hotmail .com> scripsit:

I am looking for a way in vb.net to take a form with sharp corners and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

Quick and dirty:

\\\
Me.FormBorderSt yle = FormBorderStyle .None
Me.Height = 300
Me.Width = 400
Dim p As New Drawing2D.Graph icsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
p.AddLine(40, 0, Me.Width - 40, 0)
p.AddArc(New Rectangle(Me.Wi dth - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Wi dth, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Wi dth - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Wi dth - 40, Me.Height, 40, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)
Me.BackColor = Color.Red
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[William Ryan]

Nice post - neither quick nor dirty but definitely way cool.
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bp******** *****@ID-208219.news.uni-berlin.de...

* "Mike D" <di****@hotmail .com> scripsit:

I am looking for a way in vb.net to take a form with sharp corners and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

Quick and dirty:

\\\
Me.FormBorderSt yle = FormBorderStyle .None
Me.Height = 300
Me.Width = 400
Dim p As New Drawing2D.Graph icsPath()
p.StartFigure()
p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
p.AddLine(40, 0, Me.Width - 40, 0)
p.AddArc(New Rectangle(Me.Wi dth - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Wi dth, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Wi dth - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Wi dth - 40, Me.Height, 40, Me.Height)
p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)
p.CloseFigure()
Me.Region = New Region(p)
Me.BackColor = Color.Red
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Mike D]

This works but does'nt. If I resize my form. I lose the formatiing. Is there
no way for me to keep the rounded corners when resizing?
"Mike D" <di****@hotmail .com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

I am looking for a way in vb.net to take a form with sharp corners and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.

[Bernie Yaeger]

Hi Mike,

Try this:
Me.FormBorderSt yle = FormBorderStyle .None

' this would make the form purely the designated color, without

' the control or windowstate menus and without a caption, drag top, icon,
etc.

Me.Height = 688

Me.Width = 360

Dim p As New Drawing2D.Graph icsPath

p.StartFigure()

p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)

p.AddLine(40, 0, Me.Width - 40, 0)

p.AddArc(New Rectangle(Me.Wi dth - 40, 0, 40, 40), -90, 90)

p.AddLine(Me.Wi dth, 40, Me.Width, Me.Height - 40)

p.AddArc(New Rectangle(Me.Wi dth - 40, Me.Height - 40, 40, 40), 0, 90)

p.AddLine(Me.Wi dth - 40, Me.Height, 40, Me.Height)

p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)

p.CloseFigure()

Me.Region = New Region(p)

Me.BackColor = Color.Thistle

HTH,

Bernie Yaeger

"Mike D" <di****@hotmail .com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

I am looking for a way in vb.net to take a form with sharp corners and just round off the corners a bit so they arent so sharp.

I have seen this done in other applications.