Graphic en c ou vb
Fermé
tapsaid
Messages postés
60
Date d'inscription
samedi 26 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2009
-
30 avril 2008 à 16:52
tapsaid Messages postés 60 Date d'inscription samedi 26 avril 2008 Statut Membre Dernière intervention 8 juillet 2009 - 1 mai 2008 à 02:29
tapsaid Messages postés 60 Date d'inscription samedi 26 avril 2008 Statut Membre Dernière intervention 8 juillet 2009 - 1 mai 2008 à 02:29
A voir également:
- Graphic en c ou vb
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Graphic converter - Télécharger - Visionnage & Diaporama
- Graphic converter mac gratuit - Télécharger - Photo & Graphisme
- Vb editor - Télécharger - Langages
2 réponses
sek2008
Messages postés
38
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
19 août 2008
3
30 avril 2008 à 17:19
30 avril 2008 à 17:19
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)
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)
tapsaid
Messages postés
60
Date d'inscription
samedi 26 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2009
1
1 mai 2008 à 02:29
1 mai 2008 à 02:29
c'est vraimen cool de ta part.Sinceremen je te di merci
