vb.net画圆角矩形,vb画圆函数

vb中如何把文本框变为圆角矩形

这个需求不好办。

“专业、务实、高效、创新、把客户的事当成自己的事”是我们每一个人一直以来坚持追求的企业文化。 成都创新互联公司是您可以信赖的网站建设服务商、专业的互联网服务提供商! 专注于成都网站制作、成都网站设计、软件开发、设计服务业务。我们始终坚持以客户需求为导向，结合用户体验与视觉传达，提供有针对性的项目解决方案，提供专业性的建议，创新互联建站将不断地超越自我，追逐市场，引领市场！

建议用shape控件的Shap属性设置为圆角矩形刚好包括住文本框，文本框设置为无边框其背景色与窗体背景色相同，这样文本框看起来就是圆角矩形了。也可以考虑在圆角矩形图像（image控件）上放置文本框控件的方法来模拟，经过恰当设计的图片和恰当设置文本框控件的结合在一起，应该可以做出比较逼真的效果。

VB里面怎么画矩形？

使用Line方法，向Form，PictureBox这些控件都支持这个方法。

语法:

object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

如：

Me.Line (100,100)-(600,600), vbred, bf

加B这个参数就是矩形，加F就是用就边框颜色填充

补充：

Color参数就是边框颜色，如果省略，就用对象的ForeColor（前景色，就是字体的颜色） 属性值

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

效果截图:

原窗口：

缩小后：

vb 怎么画圆角矩形

请用 API 函数 RoundRect。

例子（点击窗体，画圆角矩形）：

Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

Private Sub Form_Click()

Call RoundRect(Me.hdc, 10, 10, 110, 110, 10, 10)

End Sub

参数：

hdc 设备上下文。比如 Me.hDC，Picture1.hDC就可以。

X1,Y1 左上角

X2,Y2 右下角

X3,Y3 圆角内偏移（即圆角半径，0表示直角）

上面的坐标什么的都以像素计，不同于VB默认的Twip