. net graphique
Résolu
cs_yvesyves
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010
-
18 mars 2006 à 09:57
Utilisateur anonyme - 18 mars 2006 à 11:16
Utilisateur anonyme - 18 mars 2006 à 11:16
1 réponse
Utilisateur anonyme
18 mars 2006 à 11:16
18 mars 2006 à 11:16
Salut,
Une façon de faire, c'est de crée une image à l'image du graphique.
On dessine les formes sur l'image, et on affiche l'image dans le Paint.
Une form, 1 bouton, un code:
Private ImgGraphics As System.Drawing.Image
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ImgGraphics)
g.FillRectangle(System.Drawing.Brushes.SkyBlue, _
New System.Drawing.Rectangle(10, 20, 200, 50))
MyBase.Invalidate()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
ImgGraphics = New System.Drawing.Bitmap(MyBase.ClientSize.Width, _
MyBase.ClientSize.Height)
End Sub
Private Sub Form1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawImage(ImgGraphics, 0, 0)
End Sub
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Une façon de faire, c'est de crée une image à l'image du graphique.
On dessine les formes sur l'image, et on affiche l'image dans le Paint.
Une form, 1 bouton, un code:
Private ImgGraphics As System.Drawing.Image
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ImgGraphics)
g.FillRectangle(System.Drawing.Brushes.SkyBlue, _
New System.Drawing.Rectangle(10, 20, 200, 50))
MyBase.Invalidate()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
ImgGraphics = New System.Drawing.Bitmap(MyBase.ClientSize.Width, _
MyBase.ClientSize.Height)
End Sub
Private Sub Form1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawImage(ImgGraphics, 0, 0)
End Sub
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
