vb.net圆形窗体 vb 窗体

VB.Net怎么做圆形窗体

设置Region属性：

十余年的太子河网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整太子河建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“太子河网站设计”,“太子河网站推广”以来，每个客户项目都认真落实执行。

Dim path As New System.Drawing.Drawing2D.GraphicsPath

path.AddEllipse(0, 0, 400, 300)

Region = New Region(path)

VB 怎样实现圆角窗体？

VB.net

示例：

1.

窗体设置

边框模式

2.代码

Declare

Function

CreateRoundRectRgn

Lib

"gdi32"

Alias

"CreateRoundRectRgn"

(ByVal

X1

As

Int32,

ByVal

Y1

As

Int32,

ByVal

X2

As

Int32,

ByVal

Y2

As

Int32,

ByVal

X3

As

Int32,

ByVal

Y3

As

Int32)

As

Int32

Declare

Function

SetWindowRgn

Lib

"user32"

Alias

"SetWindowRgn"

(ByVal

hWnd

As

Int32,

ByVal

hRgn

As

Int32,

ByVal

bRedraw

As

Boolean)

As

Int32

‘GDI重绘API

Private

Sub

Form1_Load(ByVal

sender

As

Object,

ByVal

e

As

System.EventArgs)

Handles

MyBase.Load

Dim

r

As

Integer

=

CreateRoundRectRgn(0,

0,

Me.Width,

Me.Height,

20,

20)

'CreateRoundRectRgn参数([窗体左],[窗体顶],[窗体宽],[窗体高],[向左偏移

],[向

偏移

])

SetWindowRgn(Me.Handle,

r,

True)

End

Sub

VB.NET中windows窗体控件如何画一个圆

VB.NET没用过

VB6的话用form.circle方法画圆,圆的半径和圆点用form.width或者form.height乘以比例数来得到,然后在form_resize事件中重画圆就可以了

不知道和VB.NET差别大不大