Déplacer un controle en dragdrop

Commenter

Contenu du snippet

Je sais que cette source existe sous d'autres formes, mais la mienne est différente. Vous draguez juste le controle et le déplacer comme par magie ! la source est simple, il fallait juste trouver l'idée.

Source / Exemple : 


'variables TEMPORAIRES
Dim xTemp,xTemp2 As Long
Dim yTemp,yTemp2 As Long

'form ou un autre conteneur
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - xTemp, Y - yTemp
End Sub

'Si on drag sur l'objet
Private Sub csub_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move xTemp2 + X - xTemp, yTemp2 + Y - yTemp
End Sub

'Et votre objet à déplacer
Private Sub csub_MouseDown( Button As Integer, Shift As Integer, X As Single, Y As Single)
csub.Drag
xTemp = X
yTemp = Y
xTemp2 = csub.Left
yTemp2 = csub.Top
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (leptidev)