画笔对象,画刷对象

 

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