Hefried's post on Rounded Corners

[William Ryan]

Herfried:

A while back you posted a really cool way to round the corners of a form. I
thought I had it saved, but if you have it handy, would you kindly post it?
TIA,

Bill

--
Cordially,

W.G. Ryan
do********@comcast.nospam.net
www.devbuzz.com
www.knowdotnet.com

[Ken Tucker [MVP]]

Hi,

Here is how i do it.
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim gp As GraphicsPath = New GraphicsPath

Dim radius As Single

radius = 25

gp.AddLine(radius, 0, Width - (radius * 2), 0)

gp.AddArc(Width - (radius * 2), 0, radius * 2, radius * 2, 270, 90)

gp.AddLine( Width, radius, Width, Height - (radius * 2))

gp.AddArc(Width - (radius * 2), Height - (radius * 2), radius * 2, radius *
2, 0, 90)

gp.AddLine(Width - (radius * 2), Height, radius, Height)

gp.AddArc(0, Height - (radius * 2), radius * 2, radius * 2, 90, 90)

gp.AddLine(0, Height - (radius * 2), 0, radius)

gp.AddArc(0, 0, radius * 2, radius * 2, 180, 90)

gp.CloseFigure()

Dim regRoundRect As New Region(gp)

Me.Region = regRoundRect

End Sub

Ken
------------------
"William Ryan" <do********@nospam.comcast.net> wrote in message
news:OB**************@TK2MSFTNGP09.phx.gbl...

Herfried:

A while back you posted a really cool way to round the corners of a form.
I
thought I had it saved, but if you have it handy, would you kindly post
it?
TIA,

Bill

--
Cordially,

W.G. Ryan
do********@comcast.nospam.net
www.devbuzz.com
www.knowdotnet.com

[William Ryan]

Thanks Ken!
"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:uV**************@tk2msftngp13.phx.gbl...

Hi,

Here is how i do it.
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim gp As GraphicsPath = New GraphicsPath

Dim radius As Single

radius = 25

gp.AddLine(radius, 0, Width - (radius * 2), 0)

gp.AddArc(Width - (radius * 2), 0, radius * 2, radius * 2, 270, 90)

gp.AddLine( Width, radius, Width, Height - (radius * 2))

gp.AddArc(Width - (radius * 2), Height - (radius * 2), radius * 2, radius * 2, 0, 90)

gp.AddLine(Width - (radius * 2), Height, radius, Height)

gp.AddArc(0, Height - (radius * 2), radius * 2, radius * 2, 90, 90)

gp.AddLine(0, Height - (radius * 2), 0, radius)

gp.AddArc(0, 0, radius * 2, radius * 2, 180, 90)

gp.CloseFigure()

Dim regRoundRect As New Region(gp)

Me.Region = regRoundRect

End Sub

Ken
------------------
"William Ryan" <do********@nospam.comcast.net> wrote in message
news:OB**************@TK2MSFTNGP09.phx.gbl...

Herfried:

A while back you posted a really cool way to round the corners of a form. I
thought I had it saved, but if you have it handy, would you kindly post
it?
TIA,

Bill

--
Cordially,

W.G. Ryan
do********@comcast.nospam.net
www.devbuzz.com
www.knowdotnet.com

[Tom Leylan]

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote...

I can never resist messing with code... one might consider defining diameter
and avoid a number of identical multiplications

Dim radius As Single = 25
Dim diameter As Single = ( radius * 2 )

gp.AddLine(radius, 0, Width - diameter, 0)
gp.AddArc(Width - diameter, 0, diameter, diameter, 270, 90)

etc.

[Didymus]

I can't get this one to work...

Am I missing something here?

Gary

[Armin Zingler]

"William Ryan" <do********@nospam.comcast.net> schrieb im Newsbeitrag
news:OB**************@TK2MSFTNGP09.phx.gbl...

Herfried:

A while back you posted a really cool way to round the corners of a form. I thought I had it saved, but if you have it handy, would you kindly post it? TIA,

I'm not Herfried, but you might find the answer here:
http://groups.google.com/groups?as_e...*&as_scoring=d
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Ken Tucker [MVP]]

Hi,

The graphicspath is in the system.drawing.drawing2d namespace. Add this
to the top of your file.
Imports System.Drawing.Drawing2D

Ken

-----------------------

"Didymus" <di************@hotmail.com> wrote in message
news:Ov**************@TK2MSFTNGP11.phx.gbl...

I can't get this one to work...

Am I missing something here?

Gary

[Herfried K. Wagner [MVP]]

* "Armin Zingler" <az*******@freenet.de> scripsit:

A while back you posted a really cool way to round the corners of a form. [...]

I'm not Herfried, but you might find the answer here:
http://groups.google.com/groups?as_e...*&as_scoring=d

;-)

<http://groups.google.com/groups?selm=OT79ZF6rDHA.2028%40TK2MSFTNGP10.phx.gb l>

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

[Tom Spink]

Just because you have that in your favourites..... ;-)))

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

==== Converting to 2002 ====
Remove inline declarations

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:ut**************@TK2MSFTNGP10.phx.gbl...

* "Armin Zingler" <az*******@freenet.de> scripsit:

A while back you posted a really cool way to round the corners of a

form. [...] I'm not Herfried, but you might find the answer here:

http://groups.google.com/groups?as_e...*&as_scoring=d
;-)

<http://groups.google.com/groups?selm...FTNGP10.phx.gb
l>
--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Herfried K. Wagner [MVP]]

* "Tom Spink" <thomasdotspinkat@ntlworlddotcom> scripsit:

Just because you have that in your favourites..... ;-)))

I used Google Groups Search to locate the post.

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

[Didymus]

Thanks Ken,

Always the simple solution <grin>

Gary