创建地区表格 [英] Create Region Form

问题描述

您好，

我想在

VB.NET中创建非rectengular / region表单。请帮助我..............

Jigar Patel

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

推荐答案

" Jigar Patel < PA ********** @ hotmail.com> schrieb

"Jigar Patel" <pa**********@hotmail.com> schrieb

您好，
我想在VB.NET中创建非rectengular / region表单。请帮帮我..............

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

我会创建区域并将其分配给Form的区域属性。 ..

Dim gp As New System.Drawing.Drawing2D.GraphicsPath

Dim rgn As Region

gp.AddEllipse（0,0,100 ，100）

rgn =新区域（gp）

Me.Region = rgn

gp.Dispose（）


-

Armin

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

--
Armin

你好，


Jigar Patel < PA ********** @ hotmail.com> schrieb：

Hello,

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

我想在VB.NET中创建非rectengular / region表单。请帮助我..............

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

见（完整主题）：

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


- 或 -


看看form''''TransparencyKey''属性（在Windows上支持
2000+）（参见MSDN文档）。


-

Herfried K. Wagner

MVP·VB Classic，VB.NET
http://www.mvps.org/dotnet

Hello Jigar，

这个片段来自我们的Herfried：


Private Sub Form1_Load（ByVal sender As System.Object，_

ByVal e As System.EventArgs）处理MyBase。加载

Me.Size =新尺寸（700,400）

Dim g As New System.Drawing.Drawing2D.GraphicsPath（）

g.AddString（" Jigar"，_

System.Drawing.FontFamily.GenericSansSerif，_

System.Drawing.FontStyle.Bold，_

150，_

新点（50,50），_

System.Drawing.StringFormat.GenericDefault _

）

Me.BackColor = Color.Red

Me.Region = New System.Drawing.Region（g）

End Sub


将其粘贴到一个新项目中 - 你会喜欢它！ ;-)


问候，

Fergus

Hello Jigar,

This snippet comes courtesy of our Herfried:

Private Sub Form1_Load (ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Size = New Size (700, 400)
Dim g As New System.Drawing.Drawing2D.GraphicsPath()
g.AddString ("Jigar", _
System.Drawing.FontFamily.GenericSansSerif, _
System.Drawing.FontStyle.Bold, _
150, _
New Point (50, 50), _
System.Drawing.StringFormat.GenericDefault _
)
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

这篇关于创建地区表格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！