Bonjour -:)
Sans drag drop
'----------------
Private picStartX As Long
Private picStartY As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
picStartX = X: picStartY = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Picture1.Left = IIf(X > picStartX, Picture1.Left + Abs(X - picStartX), Picture1.Left - Abs(X - picStartX))
Picture1.Top = IIf(Y > picStartY, Picture1.Top + Abs(Y - picStartY), Picture1.Top - Abs(Y - picStartY))
End Sub
L'évènement drag drop ne concernne que des éléments étranger au contrôle qui déclenche l'évènement en question... je sais c'est pas très clair mais bon !!
'Avec drag & drop
Private picStartX As Long
Private picStartY As Long
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - picStartX
Source.Top = Y - picStartY
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Mettre la propriété dragMode sur Automatic (1)
picStartX = X: picStartY = Y
End Sub
@+, VIC
-------------------------------
Réponse au message :
-------------------------------
> J'ai un objet picturebox sur ma Form, avec ma souris j'aimerais la déplacer à un autre endroit de la form...
> Drag & Drop ?? Comment ça marche ? Petit exemple TRES bien venu... Merci.
|