直线,贝塞尔,椭圆,多边形,圆(空心的与实心的)

1. DimgAsGraphics=Me.CreateGraphics
2. DimmypenAsNewPen(Color.Red)
3. mypen.Width=5
4. 'g.DrawLine(mypen,1,1,45,45)
5. 'g.DrawBezier(mypen,15,15,30,30,45,30,90,20)'画贝塞尔曲线
6. g.DrawEllipse(mypen,NewRectangle(30,45,40,60))'绘制由边框(该边框由一对坐标/高度和宽度指定)定义的椭圆
7. g.DrawPolygon(mypen,NewPointF(){NewPointF(1,1),NewPointF(20,10),NewPointF(5,4),NewPointF(100,6),_
8. NewPointF(200,100),NewPointF(40,50)}) '画多边形

画圆圈

1. DimgAsGraphics=Me.CreateGraphics
2. DimmypenAsNewPen(Color.Red)
3. g.DrawEllipse(mypen,1,1,100,100)'画圆圈

画实心多边形,实心的矩形,实心的扇形

1. DimgAsGraphics=Me.CreateGraphics
2. DimmybrushAsNewSolidBrush(Color.Blue)
3. '填充由一组point结构定义的多边形区域
4. g.FillPolygon(mybrush,NewPointF(){NewPointF(2,10),NewPointF(20,30),NewPointF(40,30),NewPointF(100,6),_
5. NewPointF(80,20),NewPointF(40,50)})
6. '填充由一对坐标,一个宽度和一个高度指定的矩形的内部
7. g.FillRectangle(mybrush,NewRectangle(60,60,30,20))
9. '填充由一对坐标,一个宽度和一个高度以及两条射线指定的椭圆所定义的扇形区的内部
10. g.FillPie(mybrush,NewRectangle(70,70,60,60),0,90)