用VB.NET绘制GDI图形

1. 用VB.NET绘制GDI图形
2. 　　下面的例子通过重载Form1窗体的OnPaint()方法绘制GDI图形
3. ProtectedOverridesSubonpaint(ByValeAsSystem.Windows.Forms.PaintEventArgs)
4. 注释：/绘制任意直线
5. DimgAsGraphics=e.Graphics
6. DimmypenAsPen=NewPen(Color.Red,2)
7. g.DrawLine(mypen,100,100,10,10)
8. 注释：/绘制矩形(任意直线构成的封闭图形)
9. Dimpoint1AsPointF=NewPointF(100F,100F)
10. Dimpoint2AsPointF=NewPointF(200F,100F)
11. Dimpoint3AsPointF=NewPointF(200F,200F)
12. Dimpoint4AsPointF=NewPointF(100F,200F)
13. DimcurvepointsAsPointF()={point1,point2,point3,point4}
14. g.DrawPolygon(NewPen(Color.Blue,2),curvepoints)
15. 注释：文本表示
16. DimFFamilyAsFontFamily=NewFontFamily("Arial")
17. DimfontAsFont=NewFont(FFamily,"20",FontStyle.Bold,FontStyle.Italic,GraphicsUnit.Pixel)
18. DimtextAsString="Iloveyou!"
19. DimsolidbrushAsSolidBrush=NewSolidBrush(Color.Red)
20. DimprAsPointF=NewPointF(100,10)
21. e.Graphics.DrawString(text,font,solidbrush,pr)
22. 注释：平面绘制
23. DimrecAsRectangleF=NewRectangleF(10,10,200,100)
24. g.DrawPie(mypen,rec,150,150)
25. 注释：///封闭图形，0.7应该是个圆
26. g.DrawClosedCurve(mypen,curvepoints,0.7,Drawing.Drawing2D.FillMode.Alternate)
27. 注释：///大家自己试试看吧
28. g.DrawArc(mypen,300,300,200,200,100,100)
29. g.DrawCurve(mypen,curvepoints)
30. g.DrawBezier(mypen,50,50,100,50,100,100,50,100)
31. g.DrawBeziers(mypen,curvepoints)
32. 注释：//这可是一个圆
33. Dimrec1AsRectangleF=NewRectangleF(10,10,100,100)
34. g.DrawEllipse(mypen,rec1)
35. 注释：//这是一个椭圆
36. Dimrec2AsRectangleF=NewRectangleF(10,10,200,100)
37. g.DrawEllipse(mypen,rec2)
39. EndSub