Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 315 fois - Téléchargée 43 fois
'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
11 mai 2006 à 15:20
23 mai 2004 à 17:33
Il y a même la possibilité de changer le container du control pour draguer le control, par exemple, du form à un picture box
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Set Source.Container = Picture1
Source.Move X - xTemp, Y - yTemp
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Set Source.Container = Form1
Source.Move X - xTemp, Y - yTemp
End Sub
12 févr. 2004 à 13:29
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Command1.Top = Command1.Top + (Y - Command1.Height)
Command1.Left = Command1.Left + (X - Command1.Width)
End If
End Sub
En tt K bravo pour l'ID c nickel
6 août 2003 à 17:34
18 oct. 2002 à 16:32
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.