VB.Net Picturebox dessiner plus d'une ligne
cs_JeffC1977
Messages postés
928
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2023
-
27 sept. 2007 à 20:01
tovin Messages postés 164 Date d'inscription samedi 11 décembre 2004 Statut Membre Dernière intervention 14 août 2013 - 30 sept. 2007 à 08:07
tovin Messages postés 164 Date d'inscription samedi 11 décembre 2004 Statut Membre Dernière intervention 14 août 2013 - 30 sept. 2007 à 08:07
A voir également:
- VB.Net Picturebox dessiner plus d'une ligne
- Vba dernière ligne ✓ - Forum Visual Basic 6
- Comment dessiner un hexagone ✓ - Forum Java
- Chronomètre en ligne - Forum Java
- Comment dessiner un arbre facilement - Forum Java
- Comment dessiner un flocon de neige - Forum Visual Basic
1 réponse
tovin
Messages postés
164
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
14 août 2013
3
30 sept. 2007 à 08:07
30 sept. 2007 à 08:07
Bonjour,
A mon humble avis, c'est parce que le dessin n'est pas conservé dans une variable globale de la feuille (g2 dans mon exemple)
Dim g2 As Graphics = Graphics.FromImage(img)
Dim colour As Byte (couleur à définir)
Dim epaisseur As Byte (épaisseur à définir)
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Dim g1 As Graphics = PictureBox45.CreateGraphics
Dim pencil = New Pen(colour, epaisseur)
rem pour tracer un rectangle
g1.DrawLine(New Pen(colour, 1), e.X - 1, e.Y - 1, e.X + 1, e.Y + 1)
If i >= 1 Then GoTo suite cote(0) e.X : cote(1) e.Y
suite:
g1.DrawLine(New Pen(colour, 1), e.X - 1, e.Y - 1, e.X + 1, e.Y + 1) cote(2) e.X : cote(3) e.Y
i += 1
If i = 3 Then
Dim rc As New Rectangle(cote(0), cote(1), cote(2) - cote(0), cote(3) - cote(1))
g1.DrawRectangle(pencil, rc)
g2.DrawRectangle(pencil, rc)
i = 0
End If
Regardes si ça colle !
A +
A mon humble avis, c'est parce que le dessin n'est pas conservé dans une variable globale de la feuille (g2 dans mon exemple)
Dim g2 As Graphics = Graphics.FromImage(img)
Dim colour As Byte (couleur à définir)
Dim epaisseur As Byte (épaisseur à définir)
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Dim g1 As Graphics = PictureBox45.CreateGraphics
Dim pencil = New Pen(colour, epaisseur)
rem pour tracer un rectangle
g1.DrawLine(New Pen(colour, 1), e.X - 1, e.Y - 1, e.X + 1, e.Y + 1)
If i >= 1 Then GoTo suite cote(0) e.X : cote(1) e.Y
suite:
g1.DrawLine(New Pen(colour, 1), e.X - 1, e.Y - 1, e.X + 1, e.Y + 1) cote(2) e.X : cote(3) e.Y
i += 1
If i = 3 Then
Dim rc As New Rectangle(cote(0), cote(1), cote(2) - cote(0), cote(3) - cote(1))
g1.DrawRectangle(pencil, rc)
g2.DrawRectangle(pencil, rc)
i = 0
End If
Regardes si ça colle !
A +
