Vb.Net Supprimer plusieurs LineShapeRésolu

Question

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.PowerPacksPublic 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 SubEnd Class

vb95 · Answer

Bonjour Karin.code
 Bien que le code suivant est correct
 
 Imports Microsoft.VisualBasic.PowerPacksPublic 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 SubEnd Class

remplace le par celui-ci

Imports Microsoft.VisualBasic.PowerPacksPublic 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 SubEnd 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.

kikou93 · Answer

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

vb95 · Answer

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 = NothingPicturebox1.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.

Karin.code · Answer

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

kikou93 · Answer

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

Karin.code · Answer

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

cs_ShayW · Answer

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

cs_Le Pivert · Answer

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

Karin.code · Answer

Merci tout le monde
Merci infiniment pour votre aide

cs_Le Pivert · Answer

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

Vb.Net Supprimer plusieurs LineShape

10 réponses

Votre réponse