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
Partager