Déplacement de picturebox avec la fonction .Move [Résolu]

Signaler
Messages postés
23
Date d'inscription
mardi 28 février 2006
Statut
Membre
Dernière intervention
22 janvier 2007
-
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
-
Voila mon probleme.
J'ai une picturebox dans laquelle je dessine des lignes. Je sélectionne ces lignes à l'aide d'une shape et je met cette selection dans une picturebox temporaire. Jusqu'ici tout va bien. Maintenant je voudrai déplcer cette picturebox. J'utilise la fonction .Move dont voici ce que j'ai codé

Private Sub PictTmp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Select_Piece = True
End If
End Sub


Private Sub PictTmp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button vbLeftButton And Select_Piece True Then
    PictTmp.Move PictTmp.Left + X, PictTmp.Top + Y
End If
End Sub

Le probleme est que quand je clique sur ma picttmp et que je bouge le curseur celui-ci se met dans le coin en haut a gauche de ma picttmp pour ensuite boujer. Je voudrai que le curseur reste au même endroit dans la picttmp pour pouvoir la déplacer.
J'espere avoir été assez clair.

1 réponse

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
Salut,


Dim posX As Single

Dim posY As Single


Private Sub PictTmp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    posX = X

    posY = Y

End Sub


Private Sub PictTmp_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbLeftButton Then

       PictTmp.Move PictTmp.Left + X - posX, PictTmp.Top + Y - posY

       End If

End Sub

Daniel