vb.net中有没有哪个控件可以自定义形状（如圆形，多边形）和颜色，如果有，希望你您给出代码

记得VB6当中有Shape控件，但是VB.net里这个控件不存在了。

创新互联公司专业为企业提供江苏网站建设、江苏做网站、江苏网站设计、江苏网站制作等企业网站建设、网页设计与制作、江苏企业网站模板建站服务，10年江苏做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

提个思路：使用Picture控件或Label控件，通过代码在控件里绘图想要的图形，可以试试。

怎样在VB.net中画一个点呢？

画点：

在PictureBox的Paint事件里面：

dim myGraphics=e.Graphics

Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}

myGraphics.DrawPolygon(myPen, myPointArray)

画圆：

Dim g As Graphics

g = PictureBox1.CreateGraphics

g.FillEllipse(Brushes.Red, x, y, 10, 10)

VB.NET画多边形

dim bmp as new bitmap(width,height)dim g as graphics=graphics.fromimage(bmp)dim P() as pointf {new pointf(10,10),new pointf(30,30),new pointf(30,50),new pointf(10,50),new pointf(10,30)}g.drawlines(pen.blue,p)backgroundimage=bmp 还有一种方法是用路径(graphicspath),原理差不多，可以参考下MSDN

在VB NET中，在Form_Load中创建graphics类，并绘制直线，为什么执行程序后发现直线绘制不出来？

1. 创建一个Graphics对象实例。

绘制图形必须创建Graphics对象。如果是在窗体上绘图，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = Me.CreateGraphics

如果是在PictrueBox里绘图，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = PictureBox1.CreateGraphics

2. 定义一个Brush对象，用来填充图形(如果你需要填充的话)。

如果填充封闭曲线或者多边形，必须创建Brush对象（或者Brush类的继承类对象），用来确定填充的颜色。例如下面的代码，创建了一个填充红色的画刷对象。在最后的括号里，用Color结构指定的枚举值，确定画刷的颜色。限于篇幅有关Color结构这里不展开，可能在后续博文里介绍。

Dim RedBrush As New SolidBrush(Color.Red)

网页名称：vb.net多边形 vb求多边形面积
文章链接：http://kswsj.cn/article/dojgcgo.html