vb.net圆角,vb圆角矩形

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

相关问答

Q1: vb.net绘图问题

代码：

Public Class Form1

    '*********************************************************************   

    '作者：章鱼哥，QQ：3107073263 群：309816713       

    '如有疑问或好的建议请联系我，大家一起进步     

    '*********************************************************************     

    '绘制圆角矩形函数

    Private Function GetRoundedRectPath(ByVal rect As Rectangle, ByVal radius As Integer) As System.Drawing.Drawing2D.GraphicsPath

        rect.Offset(-1, -1)

        Dim RoundRect As New Rectangle(rect.Location, New Size(radius - 1, radius - 1))

        Dim path As New System.Drawing.Drawing2D.GraphicsPath

        path.AddArc(RoundRect, 180, 90)     '左上角

        RoundRect.X = rect.Right - radius   '右上角

        path.AddArc(RoundRect, 270, 90)

        RoundRect.Y = rect.Bottom - radius  '右下角

        path.AddArc(RoundRect, 0, 90)

        RoundRect.X = rect.Left             '左下角

        path.AddArc(RoundRect, 90, 90)

        path.CloseFigure()

        Return path

    End Function

    '绘制矩形

    Private Sub DrawingRect()

        Dim g As Graphics = Me.CreateGraphics

        Dim Pen As New Pen(Brushes.DarkRed, 2)

        Dim Hei As Integer = Me.Height

        Dim Wid As Integer = Me.Width

        '矩形的位置和长宽随着窗体的变化而改变

        Dim Rec As New Rectangle(Int(Wid / 5), Int(Hei / 5), Int(Wid / 2), Int(Hei / 2))

        '  g.DrawRectangle(Pen, Rec)

        '清楚现有的矩形

        g.Clear(Me.BackColor)

        g.DrawPath(Pen, GetRoundedRectPath(Rec, 30))

    End Sub

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        DrawingRect()

    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged

        Me.Invalidate() '此函数可引发Paint事件

    End Sub

End Class

效果截图:

原窗口：

缩小后：

Q2: 如何在vb.net中创建圆角窗体

如下所示：

Private Sub Type(ByVal sender As Control, ByVal p_1 As Integer, ByVal p_2 As Double)

        Dim oPath As New Drawing2D.GraphicsPath()

        oPath.AddClosedCurve(New Point() {New Point(0, sender.Height / p_1), New Point(sender.Width / p_1, 0), New Point(sender.Width - sender.Width / p_1, 0), New Point(sender.Width, sender.Height / p_1), New Point(sender.Width, sender.Height - sender.Height / p_1), New Point(sender.Width - sender.Width / p_1, sender.Height), _

        New Point(sender.Width / p_1, sender.Height), New Point(0, sender.Height - sender.Height / p_1)}, CSng(p_2))

        sender.Region = New Region(oPath)

    End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

                Type(Me, 20, 0.1)

    End Sub

Q3: vb.net如何将form表单设计成圆角

你是指web吗？如果是，可以用如下css:

border-radius:20px;

PS:需要支持CSS3的浏览器

Q4: VB.NET中怎样画圆弧

用Circle 画圆 圆弧 椭圆 都 具体参照面详细说明 Circle(一000,一000),500,吧,-陆,-三 一000,一000,圆坐标 500,半径 面别代表起始角,终止角,短轴比率 吧,详细点,Circle都说遍 象画圆、椭圆或弧 语 object.Circle [Step] (x, y), radius, [color, start, end, aspect] Circle 语象限定符部： 部 描述 object 选 象表达式其值应用于列表象object 省略具焦点窗体作object Step 选关键字 指定圆、椭圆或弧相于前 object CurrentX CurrentY 属性提供坐标 (x, y) 必需 Single （单精度浮点数）圆、椭圆或弧坐标object ScaleMode 属性决定使用度量单位 radius 必需Single （单精度浮点数）圆、椭圆或弧半径 object ScaleMode 属性决定使用度量单位 color 选Long （整型数）圆轮廓 RGB 颜色省略则使用 ForeColor 属性值用 RGB 函数或 QBColor 函数指定颜色 start, end 选 Single （单精度浮点数）弧、或部圆或椭圆画完start end 指定（弧度单位）弧起点终点位置其范围 -二 pi 二 pi 起点缺省值0; 终点缺省值二 * pi aspect 选 Single （单精度浮点数）圆纵横尺寸比缺省值 一.0何屏幕都产标准圆（非椭圆） 说明 想要填充圆使用圆或椭圆所属象 FillColor FillStyle 属性封闭图形才能填充封闭图形包括圆、椭圆、或扇形 画部圆或椭圆 start 负Circle 画半径 start并角度处理； end 负Circle 画半径 end并角度处理Circle 总逆针（）向绘图 画圆、椭圆或弧线段粗细取决于 DrawWidth 属性值背景画圆取决于 DrawMode DrawStyle 属性值 画角度 0 扇形要画条半径（向右画水平线段）给 start 规定负值要给 0 .省略语间某参数能省略隔参数逗号您指定参数面逗号省略 Circle 执行CurrentX CurrentY 属性参数设置点 能用 With匛nd With 语句块 -------------------------------------------------------------------------------- Circle 示例 示例用Circle 窗体央画许同圆要运行示例代码放入窗体 General 部按 F5 并单击窗体 Sub Form_Click () Dim CX, CY, Radius, Limit ' Declare variable. ScaleMode = 三 ' 像素单位 CX = ScaleWidth / 二 ' X 位置 CY = ScaleHeight / 二 ' Y 位置 If CX CY Then Limit = CY Else Limit = CX For Radius = 0 To Limit ' 半径 Circle (CX, CY), Radius,RGB(Rnd * 二55, Rnd * 二55, Rnd * 二55) Next Radius End Sub -------------------------------------------------------------------------------

Q5: vb.net 怎么吧combobox的边框四个直角变成弧形

可以使用onpaint事件进行重绘使combobox的是边框四个直角变成弧形。这里需要用到gdi+绘制的知识和onpait事件。窗体和combobox设置自动重绘为true即可。你可以参考下gdi的圆角绘制的知识的。这里很容易做到的。希望能帮到你。有疑问继续提问哈。