Discussion :

[doudouded]

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

[doudouded]

ca y est trouvé !

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 ?

[Saintelaitlait]

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

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 :

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
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