Discussion :

[Lnmex]

Up de mon problème, j'ai fait un petit programme "condensé" pour ceux qui veulent bien voir mon problème... (VS 2008) et peut être aider pour le futur.

Cliquer sur le crayon et dessiner avec la souris en selectionnant un rectangle puis un autre puis un autre etc...
Cliquer sur le triangle puis sur la form pour l'ajouter (picturebox) (il peut être bougé)

Mon problème est que le picturebox efface les lignes créées avec graphics... quand on le bouge ou on l'ajoute dessus (c'est une très bonne gomme en passant mais c'est pas ce que je veux)

Merci, si il y a une bonne âme qui veut bien jeter un oeil sur ce petit programme...

J'ai mis le paint en commentaires car en réalité je sais pas trop que mettre dedans...? je dois changer de place mon dessin?

Merci!!

[tomlev]

En fait il faut enregistrer quelque part les données nécessaires pour refaire le dessin (par exemple, une liste de points), et faire le rendu dans l'évènement Paint. J'ai fait les modifs suivantes :

- Ajouté dans la classe un champ pour conserver la liste des points :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim points As New List(Of Point)

- Modifié Form1_MouseUp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
 
        If dessinertriangle = True Then
            PictureBox1.Location = New System.Drawing.Point(e.X, e.Y)
            PictureBox1.BackgroundImage = Image.FromFile(dirExe & "\images\triangle.png")
        End If
 
        If dessinerlignes = True Then
            ' On ajoute la position de la souris à la liste de points
            points.Add(e.Location)
            'Inutile de faire le dessin ici, on le fait dans le Paint
            'L'instruction suivante force à redessiner la Form et provoque l'évènement Paint
            Me.Invalidate()
 
        End If
    End Sub

- Modifié Form1_Paint :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        ' On dessine les lignes enregistrées
        If (points.Count >= 2) Then
            Dim p As Pen = New Pen(Color.Aqua, 2)
            e.Graphics.DrawLines(p, points.ToArray())
        End If
    End Sub

Je sais pas si c'est exactement le résultat que tu veux, mais tu vois le principe...

[Lnmex]

Merci!
Oui c'est déjà mieux et plus clair: où dessiner et quoi garder (et le code est beaucoup plus propre)
Je te remercie!!
Du coup plus de problème d'effacement, génial!

[adn56]

bien, alors j'attends de lire le code complet de ta source corrigé, cela devrait me servir

[Lnmex]

Le code c'est le même avec les changements de tomlev, il est déjà complet