形式边框式问题 [英] form border style question
问题描述
有没有办法显示没有标题栏的表单（因此没有
控制框/最小化框/标题等）但仍然看起来很好看
喜欢3D吗？
属性FormBorderStyle为None - 这不提供标题栏等但
表格边框看起来不像3D。
如果我没有解释我想要的东西，我想要一个看起来像一个没有文字的按钮的表格（即带有可爱3D边框的表格）但是
没有标题栏等）。
谢谢
Colin
* co *********** @ lycos .co.uk （Colin McGuire）scripsit：有没有办法显示没有标题栏的表单（因此没有
控制框/最小化框/标题等等但仍然看起来像3D一样？
属性FormBorderStyle为None - 这没有提供标题栏等但是
形式边框不看3D。
如果我没有解释我想要的东西，我想要一个看起来像一个没有文字的按钮的表格（即一个表格）带有可爱的3D边框，但没有标题栏等。）
尝试将其文字属性设置为"及其''ControlBox''属性为''False''。
-
Herfried K. Wagner
MVP ·VB Classic，VB.NET
< http://www.mvps.org/dotnet>
Hi Collin，
来自HKW，Fergus和Cor的联合制作
你必须将它粘贴在一个表格中，上面有一个按钮。
\\
Private Sub Form1_Load（_
ByVal sender As System.Object，_
ByVal e As System.EventArgs _
）处理MyBase.Load
Dim g As New System.Drawing.Drawing2D.GraphicsPath（）
g.AddString（_
" m"，_
System.Drawing.FontFamily.GenericSansSerif，_
System.Drawing.FontStyle.Bold，_
100，_
新点（0,0），_
System.Drawing.StringFormat.GenericDefault _
）
Me.BackColor = Color.Red
Me.Region = New System.Drawing.Region（g）
g.dispose
结束次级
///
我希望这有点帮助吗？
Cor
你好Colin，
我确实送了一个很旧的，这是合作生产HKW，Fergus，Cor。
所以一个表单上有一个按钮。
\\\
Private Sub Form1_Load（ByVal sender As System.Object，ByVal e As
System.EventArgs）处理MyBase.Load
Dim g As New System.Drawing.Drawing2D.GraphicsPath
g.AddString（_
" Colin"，_
System.Drawing.FontFamily.GenericSansSerif，_
System.Drawing.FontStyle.Bold，_
300，_
新点（0,0），_
System.Drawing.StringFormat.GenericDefault _
）
Me.BackColor = Color.Red
Me.Region = New System.Drawing.Region（g）
g.Dispose（）
Me.AutoScaleBaseSize = New System.Drawing.Size（0,0）
Me.ClientSize = New System.Drawing.Size（800,800）
Button1.BackColor = System.Drawing.SystemColors.ActiveCaptionText
Button1.ForeColor = System.Drawing.Color.Red
Button1.Location = New System.Drawing .Point（70,140）
Button1.Size = New System.Drawing.Size（20,20）
Button1.Text =" X"
End Sub
Private Sub Button1_Click（ByVal sender As Object，ByVal e As
System.EventArgs）处理Button1.Click
Me.Close（）
End Sub
///
我希望这有帮助
Cor
Hi, is there a way to show a form without a titlebar (and therefore no
control box/minimize box/title etc) but still have it appear looking
like 3D?
The property FormBorderStyle to None - this gives no titlebar etc but
the form borders don''t look 3D.
In case I haven''t explained what I want well, I want a form that looks
like a button with no text (ie a form with the lovely 3D borders but
no titlebar etc).
Thank you
Colin
* co***********@lycos.co.uk (Colin McGuire) scripsit:Hi, is there a way to show a form without a titlebar (and therefore no
control box/minimize box/title etc) but still have it appear looking
like 3D?
The property FormBorderStyle to None - this gives no titlebar etc but
the form borders don''t look 3D.
In case I haven''t explained what I want well, I want a form that looks
like a button with no text (ie a form with the lovely 3D borders but
no titlebar etc).
Try to set its ''Text'' property to "" and its ''ControlBox'' property to ''False''.
--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>
Hi Collin,
A co production from HKW, Fergus and Cor
You have to paste this in a form, with one button on it.
\\\
Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
Dim g As New System.Drawing.Drawing2D.GraphicsPath()
g.AddString( _
"m", _
System.Drawing.FontFamily.GenericSansSerif, _
System.Drawing.FontStyle.Bold, _
100, _
New Point(0, 0), _
System.Drawing.StringFormat.GenericDefault _
)
Me.BackColor = Color.Red
Me.Region = New System.Drawing.Region(g)
g.dispose
End Sub
///
I hope this helps a little bit?
Cor
Hi Colin,
I did send a very old one, this is the coproduction HKW,Fergus,Cor.
So one form with a button on it.
\\\
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim g As New System.Drawing.Drawing2D.GraphicsPath
g.AddString( _
"Colin", _
System.Drawing.FontFamily.GenericSansSerif, _
System.Drawing.FontStyle.Bold, _
300, _
New Point(0, 0), _
System.Drawing.StringFormat.GenericDefault _
)
Me.BackColor = Color.Red
Me.Region = New System.Drawing.Region(g)
g.Dispose()
Me.AutoScaleBaseSize = New System.Drawing.Size(0, 0)
Me.ClientSize = New System.Drawing.Size(800, 800)
Button1.BackColor = System.Drawing.SystemColors.ActiveCaptionText
Button1.ForeColor = System.Drawing.Color.Red
Button1.Location = New System.Drawing.Point(70, 140)
Button1.Size = New System.Drawing.Size(20, 20)
Button1.Text = "X"
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
///
I hope this helps
Cor
这篇关于形式边框式问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
