Rectangle with rounded corners

[Rod Gill]

Hi,

VB.Net, Visual Studio 2003, Windows Application

I want to avoid the old Windows rectangle shape, but I don't need or want
complex bitmaps. What's the easiest way to create a form with rounded
corners please?

I'd would rather not use a bitmap and transparency as I've read in MSDN that
this isn't reliable on video cards with high color resolution. The other way
of using a graphics path and region looks better, but I simply can't seem to
get the AddArcs drawing method working well to create the corners.

Code to just create the arcs for the 4 corners would be magic.

many thanks,
--

Rod Gill

[Herfried K. Wagner [MVP]]

"Rod Gill" <rod AT project-systems DOT co DOT nz> schrieb:

I want to avoid the old Windows rectangle shape, but I don't need or want
complex bitmaps. What's the easiest way to create a form with rounded
corners please?

I'd would rather not use a bitmap and transparency as I've read in MSDN
that this isn't reliable on video cards with high color resolution. The
other way of using a graphics path and region looks better, but I simply
can't seem to get the AddArcs drawing method working well to create the
corners.

\\\
Me.FormBorderStyle = FormBorderStyle.None
Me.Height = 300
Me.Width = 400
Dim p As New GraphicsPath()
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.Width - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Width, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Width - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Width - 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
p.Dispose()
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Rod Gill]

Hah,

You're a scholar, a gentleman and a good judge of whiskey!

Many thanks

--

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

"Rod Gill" <rod AT project-systems DOT co DOT nz> schrieb:

I want to avoid the old Windows rectangle shape, but I don't need or want
complex bitmaps. What's the easiest way to create a form with rounded
corners please?

I'd would rather not use a bitmap and transparency as I've read in MSDN
that this isn't reliable on video cards with high color resolution. The
other way of using a graphics path and region looks better, but I simply
can't seem to get the AddArcs drawing method working well to create the
corners.

\\\
Me.FormBorderStyle = FormBorderStyle.None
Me.Height = 300
Me.Width = 400
Dim p As New GraphicsPath()
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.Width - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Width, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Width - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Width - 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
p.Dispose()
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[jaytm]

Remember to add Reference to System.Drawing and add
Imports System.Drawing.Drawing2D to form

Joe Marino

Herfried K. Wagner [MVP] wrote:

"Rod Gill" <rod AT project-systems DOT co DOT nz> schrieb:

I want to avoid the old Windows rectangle shape, but I don't need or
want complex bitmaps. What's the easiest way to create a form with
rounded corners please?

I'd would rather not use a bitmap and transparency as I've read in
MSDN that this isn't reliable on video cards with high color
resolution. The other way of using a graphics path and region looks
better, but I simply can't seem to get the AddArcs drawing method
working well to create the corners.

\\\
Me.FormBorderStyle = FormBorderStyle.None
Me.Height = 300
Me.Width = 400
Dim p As New GraphicsPath()
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.Width - 40, 0, 40, 40), -90, 90)
p.AddLine(Me.Width, 40, Me.Width, Me.Height - 40)
p.AddArc(New Rectangle(Me.Width - 40, Me.Height - 40, 40, 40), 0, 90)
p.AddLine(Me.Width - 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
p.Dispose()
///