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

 

1. Dim g As Graphics = Me.CreateGraphics
2.         Dim mypen As New Pen(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, New Rectangle(30, 45, 40, 60)) '绘制由边框(该边框由一对坐标/高度和宽度指定)定义的椭圆
7.         g.DrawPolygon(mypen, New PointF() {New PointF(1, 1), New PointF(20, 10), New PointF(5, 4), New PointF(100, 6), _
8.                                            New PointF(200, 100), New PointF(40, 50)})     '画多边形

画圆圈

1.         Dim g As Graphics = Me.CreateGraphics
2.         Dim mypen As New Pen(Color.Red)
3.         g.DrawEllipse(mypen, 1, 1, 100, 100)                  '画圆圈

 

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

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