画笔对象,画刷对象

1. DimmypenAsNewPen(Color.Red,10)'定义以红色为线条,10个像素粗的画笔对象
2. DimgAsGraphics=Me.CreateGraphics
3. g.DrawEllipse(mypen,10,10,100,100)'画正圆
4. '---------------------------------
5. DimmypenAsNewPen(Color.blue,10)'定义以蓝色为线条的画笔对象
6. DimgAsGraphics=Me.CreateGraphics
7. g.DrawEllipse(mypen,10,10,100,200)'画椭圆
8. '---------------------------------
9. 最大限度的填充一个黄色的椭圆
10. DimmybrushAsNewSolidBrush(Color.Yellow)
11. DimgAsGraphics=Me.CreateGraphics
12. g.FillEllipse(mybrush,ClientRectangle)
13. '--------------------------------
14. 直接在窗体上绘制文本
15. DimafontAsNewSystem.Drawing.Font("arial",22,FontStyle.Bold)
16. DimgAsGraphics=Me.CreateGraphics
17. g.DrawString("Graphicsarefun!",afont,Brushes.Brown,20,10)
18. g.DrawString("Keenweiwei!",afont,Brushes.BlueViolet,40,40)
19. '--------------------------
20. 旋转文本
21. 'g.RotateTransform(20)'顺时针旋转20度
22. 'g.DrawString("TuoJINGJING!",afont,Brushes.DeepPink,100,40)
23. g.RotateTransform(-20)'逆时针旋转20度
24. g.DrawString("TuoJINGJING!",afont,Brushes.DeepPink,40,150)