Discussion :

[Speranza]

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

[Speranza]

C'est bon, j'ai trouvé ce qui n'allait pas.
Je ne suis pas sur que ce soit la meilleur maniére mais bon.

En fait, j'ai fait un "copier-coller" du path dans un nouveau path_save en changeant uniquement le point qui devait être modifié.
Ensuite je détruit le path, je le reconstruit et lui remet tout dedans (path=path_save).

Je redessine la zone et sa marche.

Code :

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

1
2
3
4
5
 
            path.Dispose()
            path = New System.Drawing.Drawing2D.GraphicsPath
            path = path_save
            Me.Invalidate()

[murlock]

Ne serait-ce pas plutôt le Me.Update() en Me.Invalidate() qui fait marcher le truc ?

car écrire :

Code :

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

1
2
3
 
            path = New System.Drawing.Drawing2D.GraphicsPath
            path = path_save

me semble étrange pour que cela fonctionne

[Speranza]

j'ai essayé le me.update mais je n'obtient aucun résultat, il ne redessine pas ma fenetre et les coordonnées restent inchangées dans le path.