Bonjour,

le petit programme ci-dessous me permet de dessiner un path, ( un série de ligne ), les points etant définis au debut du programme.

Lors de l'appui sur un bouton de la souris, je vérifie si le curseur se trouve sur un point et si c'est le cas, les coordonnées du point doivent prendre celle de la souris. Ce qui devrait me permettre de changer le point de place.

Le problême, c'est que les coordonnées ne prennent pas le changement.
Quelqu'un peu m'éclairer ? parce que mon code a l'air bon, je récupére le bon point, les bonne coordonnées etc...

merci
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
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Dim i As Integer 'variable d'incrémentation
        Dim SurPoint As Integer 'point sélectionné dans le tableau(path)
        Dim TestSurPoint As Boolean = False 'initialisé a false, passe a true si ont est sur un point
        For i = 0 To path.PointCount - 1 'pour chaque point
            If e.X > (path.PathPoints(i).X - 5) And e.X < path.PathPoints(i).X + 5 Then
                If e.Y > (path.PathPoints(i).Y - 5) And e.Y < path.PathPoints(i).Y + 5 Then
                    TestSurPoint = True 'passe a true car le curseur est sur le point a +-5px près
                    SurPoint = i 'chope sur quel point on se trouve
                End If
            End If
        Next
        Label5.Text = "test= " & TestSurPoint
        If TestSurPoint = True Then ' si on est sur le point ( et donc que le bouton de la souris est apuyé )
            path.PathPoints(SurPoint).X = e.X ' alors on déplace en x
            path.PathPoints(SurPoint).Y = e.Y ' et en Y
            Me.Update()
        End If
    End Sub