créer un trait entre deux clics de souris

Bonjour j'aimerai savoir comment créer facilement un trait entre deux clics de souris .
je ne veux pas que le trait suive le curseur de ma souris après avoir réalisé le premier clic .
j'ai déjà réalisé un petit programme qui me permet de créer un trait entre les coordonnées 0,0 et ceux du premier clic de ma souris mais je ne sais pas comment poster proprement un code sur ce forum :cry:

ca y est :) trouvé !

Citation:

---

Public Class Form1
Private dessin As Graphics
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
dessin = zonedessin.CreateGraphics
End Sub

Private Sub zonedessin_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles zonedessin.MouseClick
Dim click_x, click_y As Integer
click_x = e.X
click_y = e.Y
dessin.DrawLine(Pens.Black, 0, 0, click_x, click_y)

End Sub
End Class

---

a partir de la y a t-il une façon simple de réaliser ce que je veux faire ?

Salut,

Fait un objet genre myLine avec deux attributs de type point.

Tu instancie ton objet dans ton load.

sur chaque clique de souris tu affecte les attributs point, start devient ton end, et ton end devient ton click de souris.

Voici un exemple, je sais pas si c'est exactement ce que tu voulais mais ca devrais t'aider. L'exemple suivant travalle sensiblement comme l'outil polygone libre de Paint :aie:

J'ai mis les attributs de la classe public, c'est vilain mais j'ai fait ca en 5 minute pour que tu comprenne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Public Class Form1 Dim myLine As myLine Private g As Graphics   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load myLine = New myLine g = Me.CreateGraphics End Sub   Private Sub g_Click(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick myLine.startPt = myLine.endPt myLine.endPt = New Point(e.X, e.Y) g.DrawLine(Pens.AliceBlue, myLine.startPt, myLine.endPt) End Sub   End Class   Public Class myLine Public startPt As Point Public endPt As Point     Public Sub New() startPt = New Point(0, 0) endPt = New Point(0, 0)   End Sub End Class

---