Vb.Net Supprimer plusieurs LineShape [Résolu]

Question

Posez votre question Signaler

Vb.Net Supprimer plusieurs LineShape [Résolu]

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

- Modifié par Karin.code le 3/10/2016 à 00:20 - Dernière réponse : cs_Le Pivert

Messages postés: 6135
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 16 juillet 2019

- 6 oct. 2016 à 13:15

VB.NET Posez votre question Signaler

Bonjour ou Bonsoir,
avec l'aide de vb95
j'ai pu corriger mon code qui me permet de créer plusieurs lignes
après avoir utiliser les lignes je veux les supprimées en cliquant sur un autre bouton et pour créer des nouveaux lignes (un nombre différent de lignes)
mais j'arrive pas supprimer les lignes, j'ai bien essais :

If Me.Controls.ContainsKey("yourline1") Then
            Me.Controls.RemoveByKey("yourline1")
 End If

ou

If canvas.Shapes.Contains("yourline1") Then
            canvas.Shapes.Remove("yourline1")
 End If

ou aussi

 canvas.Shapes.Clear()

mais rien ne marche
voici le code :

Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
    Dim a As Integer = 1
    Dim nbr_lignes As Integer 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
        canvas.Parent = Me
        nbr_lignes  = TextBox1.Text
        For a = 1 To nbr_lignes  
            Dim yourline As New LineShape(100, (a * 100), 300, (a * 100))
            yourline.Parent = canvas
        Next
    End Sub
End Class

Afficher la suite

A voir également:

10 réponses

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

64 Modifié par vb95 le 4/10/2016 à 02:32

1

Merci

Bonsoir Karin.code et kikou93
Au cas où tes lignes sont dessinées dans une Picturebox
Pour effacer le contenu d'une PictureBox tu peux faire


Picturebox1.Image = Nothing
Picturebox1.refresh()

En plus Microsoft.VisualBasic.PowerPacks est un dll Vb6 . Ce n'est pas très performant de mélanger du VB 6 avec du VB Net . Il y a longtemps que je ne me sers plus de l'imports de Microsoft.VisualBasic et de ses dérivés ( dont PowerPacks)

Peux-tu expliquer clairement dans quoi tu dessines et ce que tu veux dessiner ? La méthode Draw en VB net est bien plus performante
Une solution plus adéquate devrait être possible à mettre en œuvre !
Salutations à vous

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 130 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

2 5 oct. 2016 à 10:39

1

Merci

Bonjeur vb95,

Désolé de ne pas t'avoir répondu hier j'ai pas pu me connecter

une boucle pour dessiner les 18 rectangles

Je préfère créer des lignes ça sera beaucoup mieux

détermines tu les différentes lignes à y dessiner pour chaque dessin ? 
Y-a-t'il un fichier pour le dessin en haut à gauche par exemple ?

Je vais t'expliquer ce que veux faire
1) Je calcul la longueur de la première linge (elle sera horizontale) et je dessin cette dernier

2) Je choisi le nombre de ligne au dessus de la 1er linge (je peux choisir si il y a le même espace entre eux ou non, je peux les entrer manuellement pour chaque ligne)

bien sûr les lignes horizontales en tous la même longueur
3) Même procédure a suivre pour les lignes verticales

La méthode Draw en VB net est bien plus performante 
Une solution plus adéquate devrait être possible à mettre en œuvre

Quand tu a écrit ça j'ai fait quelque petite recherche et je trouver le code suivant :

 Dim g As Graphics
        g = Me.PictureBox1.CreateGraphics
        Dim p As Pen = New Pen(Color.Green, 2)
        p.DashStyle = Drawing2D.DashStyle.Solid
        g.DrawLine(p, X1, Y1, X2, X2)

je crois que ce code répond a tout les conditions pour dessiner ce que je veux
je peux choisir la couleur et l'épaisseur

Dim p As Pen = New Pen(Color.Green, 2)

et le type de ligne

p.DashStyle = Drawing2D.DashStyle.Solid

Comment ça marche c'est cool!
1000 Merci les Amis

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 130 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Statut: Membre
Dernière intervention: 24 septembre 2018

1 - 5 oct. 2016 à 11:00

Pour le Triangle du dessin qui est à dois tu peux utiliser le code suivant

 Dim Graph As Graphics
        Graph = Me.PictureBox1.CreateGraphics
        Dim paint As Pen = New Pen(Color.Green, 2)
        paint.DashStyle = Drawing2D.DashStyle.Solid
       Graph.DrawLine(paint, X1, Y1, X2, Y2)
       Graph.DrawLine(paint, X1, Y1, X2/2, Y3)
       Graph.DrawLine(paint, X2/2, Y3, X2, Y2)
    End Sub

Car on ne peux pas dessiner un triangle directement
Bonne courage pour la suite

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

2 - Modifié par Karin.code le 5/10/2016 à 11:12

Merci Vb95 et Kikou93 vous m'avez beaucoup aidé (un petite peu trop à mon goût lol)

Merci infiniment

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

64 > Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

- Modifié par vb95 le 5/10/2016 à 11:55

C'est exactement ce que j'allais te proposer Karin.code
Si je t'ai trop aidé je t'enverrai la facture lol !
Bonne fin de semaine à toi

Pour kikou 93
Tu as écrit : Car on ne peux pas dessiner un triangle directement
Si on peut :


Public Sub DrawLinesPoint(ByVal e As PaintEventArgs)

    ' Create pen.
    Dim blackPen As New Pen(Color.Black, 3)

    ' Create array of points that define lines to draw.
    Dim points As Point() = {New Point(10, 10), New Point(10, 100), _
    New Point(200, 50), New Point(250, 300)}

    'Draw lines to screen.
    e.Graphics.DrawLines(blackPen, points)
End Sub

On crée un tableau de points à relier et on appelle la méthode DrawLines
Pour le triangle il faut spécifier 4 points ( P1, P2, P3 et à nouveau P1 pour avoir les 3 côtés : P1-P2 , P2-P3 et P3-P1
Le code en exemple ne dessine pas un triangle par contre

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Statut: Membre
Dernière intervention: 24 septembre 2018

1 > vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

- 5 oct. 2016 à 12:22

Ah oui, je ne savais pas
on apprend tous les jours une nouvelle chose ici
Merci Vb95

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Statut: Membre
Dernière intervention: 24 septembre 2018

1 3 oct. 2016 à 15:13

0

Merci

Bonjour vb95 et Karin.code
Je ne c'est pas si je peux dire que c'est une solution
par exemple si tu créer un certains nombre de ligne au dessus de la PictureBox avec ton code

après tu clique sur le bouton supprimer qui contient le code suivant :
PictureBox1.Invalidate()
les lignes sont effacés

après tu change le nombre de ligne a crée
les nouveaux lignes s'affichent sans les ancien
mais il y a des petites lignes qui s'affiche comme le montre l'image suivante

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

2 - 3 oct. 2016 à 22:08

Merci Kikou93
c'est un bon solution, je vais l'utiliser pour l'instant, mais j'aimerais trouver une solution qui supprime les lignes définitivement (sans laisser des traces)
Merci pour ton aide kikou93

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Statut: Membre
Dernière intervention: 24 septembre 2018

1 > Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

- 3 oct. 2016 à 23:13

De rien
si je trouve une meilleur solution je te tiendrai en courant
Bon courage

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

2 4 oct. 2016 à 10:48

0

Merci

Bonjour vb95,

ce que je veux créer ce sont des dessins de Génie Civil (aussi de
charpente métallique)
Par exemple :

il y a beaucoup d'autre
la PictureBox est juste un arrière plan ( Les lignes de doivent pas dépasser les limites de la PictureBox)
mais si dessin sur la Picturebox et mieux,alors peux-tu m'expliquer la méthode de dessiner une seul ligne et je me débrouille pour la suite
Merci

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

64 - Modifié par vb95 le 4/10/2016 à 13:39

Bonjour
je te réponds de puis mon téléphone portable !

La Picturebox n'est pas l'arrière-plan : c'est le conteneur ( elle contient tes dessins) .
Avec la méthode Draw tu peux :
- dessiner une ligne
- dessiner un rectangle, un carré
- une ellipse ou un cercle
choisir l'épaisseur du trait , sa couleur et bien d'autres choses

Prends ton dessin en haut à gauche
- une boucle pour dessiner les 18 rectangles
- une boucle pour dessiner les 7 pieds et leurs socles ( 2 lignes à dessiner)

Pour la double boucle une seule instruction Draw
Pour le seconde boucle il en faut 2 : une pour le pied une pour le socle

Maintenant tu parles de créer : au début tu as une PictureBox vide . Comment détermines tu les différentes lignes à y dessiner pour chaque dessin ?
Y-a-t'il un fichier pour le dessin en haut à gauche par exemple ?

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Statut: Membre
Dernière intervention: 24 septembre 2018

1 Modifié par kikou93 le 5/10/2016 à 10:35

0

Merci

Moi aussi je croix que la méthode Draw est mieux je l'ai utilisé dans un de mes projets

Signaler Commenter la réponse de cs_ShayW

cs_ShayW

Messages postés: 3247
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 26 décembre 2018

46 5 oct. 2016 à 12:02

0

Merci

Bonjour

tu peux utiliser la methode DrawPolygon pour dessiner un triangle
https://msdn.microsoft.com/fr-fr/library/dd0c4s09(v=vs.110).aspx

Afficher les 8 commentaires

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

64 > Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

- Modifié par vb95 le 5/10/2016 à 16:05

bonjour Karin.code
Aucune question n'est bête rassures-toi surtout lorsqu'elle est bien posée !
Mais là tu me poses une colle ! Je cherche bien je pense connaître la réponse mais sans certitude
Le problème est le paramètre e de la sub ................

Le e vient des évènement Paint de la Form ou de la Picturebox

utilise ton code d'origine et remplace DrawLine par DrawPolygon
C'est plus facile


    Dim p As Pen = New Pen(Color.Green, 2)
    Dim g As Graphics
    g = Me.PictureBox1.CreateGraphics
    g.DashStyle = Drawing2D.DashStyle.Solid
    g.DrawLine(p, X1, Y1, X2, X2)


  ' Create pen.
    Dim blackPen As New Pen(Color.Black, 3)
    Dim g As Graphics
    g = Me.PictureBox1.CreateGraphics

    ' Create points that define polygon.
    Dim point1 As New Point(50, 50)
    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}

    ' Draw polygon to screen.
    g.Graphics.DrawPolygon(blackPen, curvePoints)

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

2 > vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

- 5 oct. 2016 à 16:05

oui c'est vrai
en faite j'ai essayé de faire ça mais sans succès

 Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As PaintEventArgs) Handles Button1.Click
        ' Create pen.
        Dim blackPen As New Pen(Color.Black, 3)
        ' Create points that define polygon.
        Dim point1 As New Point(50, 50)
        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}
        ' Draw polygon to screen.
        e.Graphics.DrawPolygon(blackPen, curvePoints)
    End Sub

et aussi normalement il faut préciser sur quoi on doit dessiner non, comme pour le code suivant

Dim g As Graphics
        g = Me.PictureBox1.CreateGraphics
        Dim p As Pen = New Pen(Color.Green, 2)
        p.DashStyle = Drawing2D.DashStyle.Solid
        g.DrawLine(p, X1, Y1, X2, X2)

on dessine sur la PictureBox1

Signaler Commenter la réponse de cs_ShayW

cs_ShayW

Messages postés: 3247
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 26 décembre 2018

46 > vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

- 5 oct. 2016 à 16:17

Bonjour vb95

Le problème est le paramètre e de la sub

En fin le problème est plutot du coté du codeur
normalement on appelle les sub graphiques dans l'event paint sur
lequel on dessine et on se sert du pararametre e As PaintEventArgs de
l'event paint passé en parametre à la sub

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

64 > cs_ShayW

Messages postés: 3247
Date d'inscription: jeudi 26 novembre 2009
Statut: Membre
Dernière intervention: 26 décembre 2018

- 5 oct. 2016 à 16:25

Merci cs-ShayW de cette précision
bien le bonjour à toi

Signaler Commenter la réponse de kikou93

kikou93

Messages postés: 418
Date d'inscription: mardi 4 février 2014
Statut: Membre
Dernière intervention: 24 septembre 2018

1 > vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

- 5 oct. 2016 à 16:39

Il y a aussi cette possibilité

Dim AfficherTrait As Boolean = False
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AfficherTrait = True                               
        PictureBox1.Invalidate()
    End Sub
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        If AfficherTrait = True Then
        Dim blackPen As New Pen(Color.Black, 3)
        Dim point1 As New Point(50, 50)
        Dim point2 As New Point(100, 25)
        Dim point3 As New Point(150, 200)
        Dim point4 As New Point(50, 50)
        Dim curvePoints As Point() = {point1, point2, point3, point4}
        e.Graphics.DrawPolygon(blackPen, curvePoints)
     End If
    End Sub

mais personnellement je préfère celle de cs_Le Pivert

Signaler Commenter la réponse de cs_Le Pivert

cs_Le Pivert

Messages postés: 6135
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 16 juillet 2019

81 > vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

- 5 oct. 2016 à 16:54

VB95, il y a une erreur sur cette ligne:

 ' Draw polygon to screen.
        g.Graphics.DrawPolygon(blackPen, curvePoints)

comme ceci:

 ' Draw polygon to screen.
        g.DrawPolygon(blackPen, curvePoints)

@+

Signaler Commenter la réponse de vb95

vb95

Messages postés: 1902
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 11 juillet 2019

64 > cs_Le Pivert

Messages postés: 6135
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 16 juillet 2019

- 5 oct. 2016 à 17:45

salut cs_Le Pivert
exact merci

au message 17 modifier


  g.Graphics.DrawPolygon(blackPen, curvePoints)

par


  g..DrawPolygon(blackPen, curvePoints)

Signaler Commenter la réponse de cs_Le Pivert

cs_Le Pivert

Messages postés: 6135
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 16 juillet 2019

81 5 oct. 2016 à 16:02

0

Merci

Bonjour à tous,

Comme ceci:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics
        g = PictureBox1.CreateGraphics
        ' Create pens
        Dim greenPen As New Pen(Color.Green, 2)
        Dim redPen As New Pen(Color.Red, 2)
        ' Create points for polygon.
        Dim p1 As New PointF(40.0F, 50.0F)
        Dim p2 As New PointF(60.0F, 70.0F)
        Dim p3 As New PointF(80.0F, 34.0F)
        Dim p4 As New PointF(120.0F, 180.0F)
        Dim p5 As New PointF(200.0F, 150.0F)
        Dim ptsArray As PointF() = {p1, p2, p3, p4, p5}
        ' Draw polygon
        g.DrawPolygon(greenPen, ptsArray)
        ' Dispose
        greenPen.Dispose()
        redPen.Dispose()
    End Sub

Si on veut le mettre sur le Form on remplace PictureBox par Me

Signaler Commenter la réponse de Karin.code

Karin.code

Messages postés: 183
Date d'inscription: vendredi 2 septembre 2016
Statut: Membre
Dernière intervention: 16 janvier 2018

2 5 oct. 2016 à 16:46

0

Merci

Merci tout le monde
Merci infiniment pour votre aide

Signaler Commenter la réponse de cs_Le Pivert

cs_Le Pivert

Messages postés: 6135
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 16 juillet 2019

81 Modifié par cs_Le Pivert le 6/10/2016 à 13:48

0

Merci

Je me suis amusé a faire un exemple avec une étoile et un autre avec un triangle, un rectangle et des lignes croisées:

Option Strict On
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim g As Graphics
        Dim _y As Integer = 0 'position Top dans la pictureBox
        Dim _x As Integer = 0 'position Left dans la pictureBox
        g = PictureBox1.CreateGraphics
        ' Create pens
        Dim greenPen As New Pen(Color.Green, 2)
        Dim redPen As New Pen(Color.Red, 2)
        ' Créons les points qui définissent l'étoile: tourne dans le sens inverse des aiguilles d'une montre.
        Dim point1 As New Point(_y + 210, _x) 'A pointe supérieure
        Dim point2 As New Point(_y + 165, _x + 100) 'B
        Dim point3 As New Point(_y + 50, _x + 100) 'C pointe
        Dim point4 As New Point(_y + 150, _x + 170) 'D
        Dim point5 As New Point(_y + 100, _x + 280) 'E pointe
        Dim point6 As New Point(_y + 210, _x + 220) 'F
        Dim point7 As New Point(_y + 320, _x + 280) 'G pointe
        Dim point8 As New Point(_y + 280, _x + 170) 'H
        Dim point9 As New Point(_y + 350, _x + 100) 'I pointe
        Dim point10 As New Point(_y + 250, _x + 100) 'J
        Dim ptsArray As Point() = {point1, point2, point3, point4, _
        point5, point6, point7, point8, point9, point10}
        ' Draw polygon
        g.DrawPolygon(redPen, ptsArray)
        ' Dispose
        greenPen.Dispose()
        redPen.Dispose()
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim g As Graphics
        Dim _y As Integer = 10 'position Top dans la pictureBox
        Dim _x As Integer = 10 'position Left dans la pictureBox
        g = PictureBox1.CreateGraphics
        ' Create pens
        Dim redPen As New Pen(Color.Red, 2)
        Dim point1 As New Point(_y + 100, _x) 'A pointe supérieure
        Dim point2 As New Point(_y, _x + 150) 'B
        Dim point3 As New Point(_y + 200, _x + 150) 'C
        Dim rect As New Rectangle(_x, _y + 150, 200, 150)
        Dim curvePoints As Point() = {point1, point2, point3}
        ' Draw polygon
        g.DrawPolygon(redPen, curvePoints)
        g.DrawRectangle(redPen, rect)
        'lignes horizontales
        g.DrawLine(redPen, _x, _y + 200, 210, 210) '_x = pointleft départ, _y pointTop départ, longueur ligne, fin de ligne Top
        g.DrawLine(redPen, _x, _y + 250, 210, 260)
        'lignes verticales
        g.DrawLine(redPen, _x + 50, _y + 300, 60, 160)
        g.DrawLine(redPen, _x + 100, _y + 300, 110, 160)
        g.DrawLine(redPen, _x + 150, _y + 300, 160, 160)
        ' Dispose
        redPen.Dispose()
    End Sub
End Class

Si l'on veut modifier les points _x et _y par rapport à la PictureBox, voir les différences ici:

  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim g As Graphics
        Dim _y As Integer = 0 'position Top dans la pictureBox
        Dim _x As Integer = 0 'position Left dans la pictureBox
        g = PictureBox1.CreateGraphics
        ' Create pens
        Dim redPen As New Pen(Color.Red, 2)
        Dim point1 As New Point(_y + 100, _x) 'A pointe supérieure
        Dim point2 As New Point(_y, _x + 150) 'B
        Dim point3 As New Point(_y + 200, _x + 150) 'C
        Dim rect As New Rectangle(_x, _y + 150, 200, 150)
        Dim curvePoints As Point() = {point1, point2, point3}
        ' Draw polygon
        g.DrawPolygon(redPen, curvePoints)
        g.DrawRectangle(redPen, rect)
        'lignes horizontales
        g.DrawLine(redPen, _x, _y + 200, 200, 200) '_x = pointleft départ, _y pointTop départ, longueur ligne, fin de ligne Top
        g.DrawLine(redPen, _x, _y + 250, 200, 250)
        'lignes verticales
        g.DrawLine(redPen, _x + 50, _y + 300, 50, 150)
        g.DrawLine(redPen, _x + 100, _y + 300, 100, 150)
        g.DrawLine(redPen, _x + 150, _y + 300, 150, 150)
        ' Dispose
        redPen.Dispose()
    End Sub

Voilà bonne programmation

@+ Le Pivert

Répondre Posez votre question

Pour le Triangle du dessin qui est à dois tu peux utiliser le code suivant

Dim Graph As Graphics
Graph = Me.PictureBox1.CreateGraphics
Dim paint As Pen = New Pen(Color.Green, 2)
paint.DashStyle = Drawing2D.DashStyle.Solid
Graph.DrawLine(paint, X1, Y1, X2, Y2)
Graph.DrawLine(paint, X1, Y1, X2/2, Y3)
Graph.DrawLine(paint, X2/2, Y3, X2, Y2)
End Sub

Car on ne peux pas dessiner un triangle directement
Bonne courage pour la suite
Merci Vb95 et Kikou93 vous m'avez beaucoup aidé (un petite peu trop à mon goût lol)

Merci infiniment
C'est exactement ce que j'allais te proposer Karin.code
Si je t'ai trop aidé je t'enverrai la facture lol !
Bonne fin de semaine à toi

Pour kikou 93
Tu as écrit : Car on ne peux pas dessiner un triangle directement
Si on peut :

Public Sub DrawLinesPoint(ByVal e As PaintEventArgs)

' Create pen.
Dim blackPen As New Pen(Color.Black, 3)

' Create array of points that define lines to draw.
Dim points As Point() = {New Point(10, 10), New Point(10, 100), _
New Point(200, 50), New Point(250, 300)}

'Draw lines to screen.
e.Graphics.DrawLines(blackPen, points)
End Sub

On crée un tableau de points à relier et on appelle la méthode DrawLines
Pour le triangle il faut spécifier 4 points ( P1, P2, P3 et à nouveau P1 pour avoir les 3 côtés : P1-P2 , P2-P3 et P3-P1
Le code en exemple ne dessine pas un triangle par contre
Ah oui, je ne savais pas
on apprend tous les jours une nouvelle chose ici
Merci Vb95
Merci Kikou93
c'est un bon solution, je vais l'utiliser pour l'instant, mais j'aimerais trouver une solution qui supprime les lignes définitivement (sans laisser des traces)
Merci pour ton aide kikou93
De rien
si je trouve une meilleur solution je te tiendrai en courant
Bon courage
Bonjour
je te réponds de puis mon téléphone portable !

La Picturebox n'est pas l'arrière-plan : c'est le conteneur ( elle contient tes dessins) .
Avec la méthode Draw tu peux :
- dessiner une ligne
- dessiner un rectangle, un carré
- une ellipse ou un cercle
choisir l'épaisseur du trait , sa couleur et bien d'autres choses

Prends ton dessin en haut à gauche
- une boucle pour dessiner les 18 rectangles
- une boucle pour dessiner les 7 pieds et leurs socles ( 2 lignes à dessiner)

Pour la double boucle une seule instruction Draw
Pour le seconde boucle il en faut 2 : une pour le pied une pour le socle

Maintenant tu parles de créer : au début tu as une PictureBox vide . Comment détermines tu les différentes lignes à y dessiner pour chaque dessin ?
Y-a-t'il un fichier pour le dessin en haut à gauche par exemple ?
Merci Vb95 et cs_SharyW
juste une dernière question pour vous deux
le code est utilisé dans :
Public Sub DrawPolygonPoint(ByVal e As PaintEventArgs)
End Sub

Je ne peux pas faire appel à lui comme quand j'utilise
Sub DrawPolygonPoint
End Sub

J'ai juste à ajouter
DrawPolygonPoint()
dans le bouton
comment je peux faire appel à lui en utilisant un bouton
Désolé si c'est une question bête
bonjour Karin.code
Aucune question n'est bête rassures-toi surtout lorsqu'elle est bien posée !
Mais là tu me poses une colle ! Je cherche bien je pense connaître la réponse mais sans certitude
Le problème est le paramètre e de la sub ................

Le e vient des évènement Paint de la Form ou de la Picturebox

utilise ton code d'origine et remplace DrawLine par DrawPolygon
C'est plus facile

Dim p As Pen = New Pen(Color.Green, 2)
Dim g As Graphics
g = Me.PictureBox1.CreateGraphics
g.DashStyle = Drawing2D.DashStyle.Solid
g.DrawLine(p, X1, Y1, X2, X2)

' Create pen.
Dim blackPen As New Pen(Color.Black, 3)
Dim g As Graphics
g = Me.PictureBox1.CreateGraphics

' Create points that define polygon.
Dim point1 As New Point(50, 50)
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}

' Draw polygon to screen.
g.Graphics.DrawPolygon(blackPen, curvePoints)
oui c'est vrai
en faite j'ai essayé de faire ça mais sans succès
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As PaintEventArgs) Handles Button1.Click
' Create pen.
Dim blackPen As New Pen(Color.Black, 3)
' Create points that define polygon.
Dim point1 As New Point(50, 50)
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}
' Draw polygon to screen.
e.Graphics.DrawPolygon(blackPen, curvePoints)
End Sub

et aussi normalement il faut préciser sur quoi on doit dessiner non, comme pour le code suivant
Dim g As Graphics
g = Me.PictureBox1.CreateGraphics
Dim p As Pen = New Pen(Color.Green, 2)
p.DashStyle = Drawing2D.DashStyle.Solid
g.DrawLine(p, X1, Y1, X2, X2)

on dessine sur la PictureBox1
Bonjour vb95

Le problème est le paramètre e de la sub

En fin le problème est plutot du coté du codeur
normalement on appelle les sub graphiques dans l'event paint sur
lequel on dessine et on se sert du pararametre e As PaintEventArgs de
l'event paint passé en parametre à la sub
Il y a aussi cette possibilité
Dim AfficherTrait As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AfficherTrait = True
PictureBox1.Invalidate()
End Sub
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
If AfficherTrait = True Then
Dim blackPen As New Pen(Color.Black, 3)
Dim point1 As New Point(50, 50)
Dim point2 As New Point(100, 25)
Dim point3 As New Point(150, 200)
Dim point4 As New Point(50, 50)
Dim curvePoints As Point() = {point1, point2, point3, point4}
e.Graphics.DrawPolygon(blackPen, curvePoints)
End If
End Sub

mais personnellement je préfère celle de cs_Le Pivert
VB95, il y a une erreur sur cette ligne:

' Draw polygon to screen.
g.Graphics.DrawPolygon(blackPen, curvePoints)

comme ceci:

' Draw polygon to screen. g.DrawPolygon(blackPen, curvePoints)

@+
salut cs_Le Pivert
exact merci

au message 17 modifier

g.Graphics.DrawPolygon(blackPen, curvePoints)

par

g..DrawPolygon(blackPen, curvePoints)

vb95 · Accepted Answer · 2016-10-03T00:56:01+0200

Bonjour Karin.code
Bien que le code suivant est correct


Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
    Dim a As Integer = 1
    Dim nbr_lignes As Integer 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
        canvas.Parent = Me
        nbr_lignes  = TextBox1.Text
        For a = 1 To nbr_lignes  
            Dim yourline As New LineShape(100, (a * 100), 300, (a * 100))
            yourline.Parent = canvas
        Next
    End Sub
End Class

remplace le par celui-ci


Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
   Dim nbr_lignes As Integer 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
        canvas.Parent = Me
        nbr_lignes  = TextBox1.Text
        For i = 0 To nbr_lignes -1 
            Dim yourline As New LineShape(100, ((i+1) * 100), 300, ((i+1) * 100))
            yourline.Parent = canvas
        Next
    End Sub
End Class

- les variables de boucle sont souvent i et j : c'est une habitude à prendre .
- de plus en informatique on compte à partir de 0 . donc

for i = 1 to nbr_lignes

devient

for i = 0 to nbr_lignes - 1

Si tu manipules des tableaux ou des collections tu me diras merci !

- cette ligne est incorrecte

 nbr_lignes  = TextBox1.Text

nbr_lignes est une variable Integer et la Textbox contient une valeur String
Mets à la place

 nbr_lignes  = Convert.ToInt32(TextBox1.Text)

Dans les propriétés de tous tes projets mets toujours Option Strict et Option Explicit sur ON ( voir l'onglet Compiler)
L'un t'oblige à déclarer toutes tes variables et l'autre évite les conversions implicites

Pour ton problème je verrai demain

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

Vb.Net Supprimer plusieurs LineShape [Résolu]

Votre réponse