Create Region Form

[Jigar Patel]

Hello,
I want to create non-rectengular/region form in
VB.NET. Please Help Me............. .
Jigar Patel

[Armin Zingler]

"Jigar Patel" <pa**********@h otmail.com> schrieb

Hello,
I want to create non-rectengular/region form in
VB.NET. Please Help Me............. .

I would create the region and assign it to the Form's region property...
Dim gp As New System.Drawing. Drawing2D.Graph icsPath
Dim rgn As Region
gp.AddEllipse(0 , 0, 100, 100)
rgn = New Region(gp)
Me.Region = rgn
gp.Dispose()

--
Armin

[Herfried K. Wagner [MVP]]

Hello,

"Jigar Patel" <pa**********@h otmail.com> schrieb:

I want to create non-rectengular/region form in
VB.NET. Please Help Me............. .

See (complete thread):

http://groups.google.de/groups?selm=...TNGP10.phx.gbl

-- or --

Have a look at the form's 'TransparencyKe y' property (supported on Windows
2000+) (see MSDN documentation).

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Fergus Cooney]

Hello Jigar,

This snippet comes courtesy of our Herfried:

Private Sub Form1_Load (ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Me.Size = New Size (700, 400)
Dim g As New System.Drawing. Drawing2D.Graph icsPath()
g.AddString ("Jigar", _
System.Drawing. FontFamily.Gene ricSansSerif, _
System.Drawing. FontStyle.Bold, _
150, _
New Point (50, 50), _
System.Drawing. StringFormat.Ge nericDefault _
)
Me.BackColor = Color.Red
Me.Region = New System.Drawing. Region(g)
End Sub

Paste this into a new project - you'll love it!! ;-)

Regards,
Fergus

[Herfried K. Wagner [MVP]]

Hello,

"Fergus Cooney" <fi******@tesco .net> schrieb:

This snippet comes courtesy of our Herfried:

Private Sub Form1_Load (ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Me.Size = New Size (700, 400)
Dim g As New System.Drawing. Drawing2D.Graph icsPath()
g.AddString ("Jigar", _
System.Drawing. FontFamily.Gene ricSansSerif, _
System.Drawing. FontStyle.Bold, _
150, _
New Point (50, 50), _
System.Drawing. StringFormat.Ge nericDefault _
)
Me.BackColor = Color.Red
Me.Region = New System.Drawing. Region(g)
\\\
g.Dispose()
///
End Sub

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Fergus Cooney]

Hi Herfried,

AAAARRGGH

ROFL

But my excuse is that I cut and pasted your example completely. ;-b

Regards,
Fergus

[Herfried K. Wagner [MVP]]

Hello,

"Fergus Cooney" <fi******@tesco .net> schrieb:

But my excuse is that I cut and pasted your example
completely. ;-b

I think the brainconnector has a bug.

;-)

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
http://www.mvps.org/dotnet

[Cor]

Hi Fergus (Herfried)
You did not, even without understanding the code or testing it, I see a red
Jigar in the left uper side in to small letters where was before another
name. You know that this message would come.
:-)))
Cor

[Fergus Cooney]

LOL

[Fergus Cooney]

Hi Cor,

I've been rumbled* :-(

Sure I tested it. :-) When I tried the original it was small so I made
this one bigger for Jigar and, as you spotted, used his name. (That's why I
think he'll love it!)

But each time Herfried reminds me, it sinks into my brain a bit better.
:-)

Lol

Regards,
Fergus

* rumbled - discovered, caught out.