- Dim ObjDessin As System.Drawing.Graphics = Me.CreateGraphics() 'Création de l'object graphique
- Dim ObjGraph As New System.Drawing.Rectangle(100, 100, 200, 200) 'Définition d'un objet de taille de 200 x 200 à l'emplacement 100 x 100
- ObjDessin.DrawEllipse(System.Drawing.Pens.Black, ObjGraph) 'Traçage d'une ellipse/Cercle en fonction de ObjGraph
- ObjDessin.DrawRectangle(System.Drawing.Pens.Red, ObjGraph) 'Traçage d'un rectangle en fonction de ObjGraph
- ObjDessin.DrawLine(System.Drawing.Pens.Blue, 100, 100, 200, 200) 'Traçage d'une ligne partant du point de coordonnées (100,100) vers le point de coordonnées (200,200)
Dim ObjDessin As System.Drawing.Graphics = Me.CreateGraphics() 'Création de l'object graphique
Dim ObjGraph As New System.Drawing.Rectangle(100, 100, 200, 200) 'Définition d'un objet de taille de 200 x 200 à l'emplacement 100 x 100
ObjDessin.DrawEllipse(System.Drawing.Pens.Black, ObjGraph) 'Traçage d'une ellipse/Cercle en fonction de ObjGraph
ObjDessin.DrawRectangle(System.Drawing.Pens.Red, ObjGraph) 'Traçage d'un rectangle en fonction de ObjGraph
ObjDessin.DrawLine(System.Drawing.Pens.Blue, 100, 100, 200, 200) 'Traçage d'une ligne partant du point de coordonnées (100,100) vers le point de coordonnées (200,200)