记得VB6当中有Shape控件,但是VB.net里这个控件不存在了。
创新互联公司专业为企业提供江苏网站建设、江苏做网站、江苏网站设计、江苏网站制作等企业网站建设、网页设计与制作、江苏企业网站模板建站服务,10年江苏做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
提个思路:使用Picture控件或Label控件,通过代码在控件里绘图想要的图形,可以试试。
画点:
在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)
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
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)