Graphic en c ou vb

Dim g as Graphics
Dim newBitmap As Bitmap = New Bitmap(600, 400)
Dim g as Graphics = Graphics.FromImage(newBitmap)
Dessiner une ligne sur le graphique:
Pour dessiner une ligne, on utilise DrawLine.
Dim blackPen As New Pen(Color.Black, 3) 'créer un
stylet noir d'épaisseur 3
' Créer des points
Dim point1 As New Point(120, 120) 'créer des points
Dim point2 As New Point(600, 100)
' Dessine la ligne
e.Graphics.DrawLine(blackPen, point1, point2)
On aurait pu utiliser une surcharge de Drawline en
spécifiant directement les coordonnées des points.
Dim x1 As Integer = 120
Dim y1 As Integer = 120
Dim x2 As Integer = 600
Dim y2 As Integer = 100
e.Graphics.DrawLine(blackPen, x1, y1, x2, y2)
Dessiner une ellipse:
Définir un rectangle dans lequel sera dessiné l'ellipse.
Dim r As New RectangleF(0, 0, 100, 100)
g.DrawEllipse(New Pen(Color.Red), r)' Dessinons l'
ellipse
Dessiner une rectangle:
myGraphics.DrawRectangle(myPen, 100, 50, 80, 40)
Comme d'habitude on peut fournir après le stylet des
coordonnées(4), des points (2) ou un rectangle.
Dessiner un polygone:
Dim MyPen As New Pen(Color.Black, 3)
' Créons les points qui définissent le polygone
Dim point1 As New Point(150, 150)
Dim point2 As New Point(100, 25)
Dim point3 As New Point(200, 5)
Dim point4 As New Point(250, 50)
Dim point5 As New Point(300, 100)
Dim point6 As New Point(350, 200)
Dim point7 As New Point(250, 250)
Dim curvePoints As Point() = {point1, point2, point3,
point4, _
point5, point6, point7}
' Dessinons le Polygone.
e.Graphics.DrawPolygon(MyPen, curvePoints
Dessiner un rectangle plein:
e.FillRectangle(new SolidBrush(Color.red), 300,15,50,50)
Il existe aussi DrawArc, DrawCurve, DrawBezier DrawPie..
Ecrire du texte sur le graphique:
Pour cela on utilise la méthode DrawString de l'objet
graphique:
g.DrawString ("Salut", Me.Font, New SolidBrush
(ColorBlack), 10, 10)
Paramètres:
Texte à afficher.
Police de caractères
Brosse , cela permet d'écrire avec des textures.
Coordonnées.
Si on spécifie un rectangle à la place des 2 derniers
paramètres, le texte sera affiché dans le rectangle avec
passage à la ligne si nécessaire:
Dim rectangle As New RectangleF (100, 100, 150, 150 )
Dim T as String= "Chaîne de caractères très longue"
g.DrawString (T, Me.Font, New SolidBrush (ColorBlack),
Rectangle)
On peut même imposer un format au texte:
Exemple: centrer le texte.
Dim Format As New StringFormat()
Format.Aligment=StringAlignment.Center
g.DrawString (T, Me.Font, New SolidBrush (ColorBlack),
Rectangle, Format)

c'est vraimen cool de ta part.Sinceremen je te di merci