1 2 3 4 5 6 7 8 9 10 11 12
|
'Déclaration de la variable GraphicsFun qui servira aux appels graphiques
Dim GraphicsFun As System.Drawing.Graphics
GraphicsFun = Me.CreateGraphics
'Utilisez un crayon rouge pr dessiner une ligne et une éllipse
Dim PenColor As New System.Drawing.Pen(Color.Red)
GraphicsFun.DrawLine(PenColor, 20, 30, 100, 80)
GraphicsFun.DrawEllipse(PenColor, 10, 120, 200, 160)
'Utilisez une brosse verte pr remplir un rectangle
Dim BrushColor As New SolidBrush(Color.Green)
GraphicsFun.FillRectangle(BrushColor, 150, 10, 250, 100) |
Partager