Comment déplacer un objet PictureBox !!

Question

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.

VicoLaChips2 · Answer

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

Comment déplacer un objet PictureBox !!

1 réponse

Discussions similaires