cs_Sipadan
Messages postés125Date d'inscriptionlundi 5 août 2002StatutMembreDernière intervention23 novembre 2011
-
17 oct. 2002 à 19:09
cs_nafee
Messages postés5Date d'inscriptionlundi 2 août 2004StatutMembreDernière intervention11 février 2006
-
11 mai 2006 à 15:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_nafee
Messages postés5Date d'inscriptionlundi 2 août 2004StatutMembreDernière intervention11 février 2006 11 mai 2006 à 15:20
Exellent
Airbornes
Messages postés6Date d'inscriptionjeudi 24 avril 2003StatutMembreDernière intervention23 septembre 2005 23 mai 2004 à 17:33
Super ce code, bravo
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
raffmarseille
Messages postés11Date d'inscriptionlundi 31 mars 2003StatutMembreDernière intervention22 avril 2008 12 févr. 2004 à 13:29
C'est super bien trouvé comme ID. Par contre, Si tu as 2 objets (avec les méthodes identiques pour le déplacement), et que tu drag le 1 sur le 2 (oue le 2 sur le 1), le 2ème se retrouve projeté à un endroit incontrôlé de la feuille. Je te propose un autre code. C'est un peu moins joli, mais ça marche pas mal, et tu déplaces l'objet complet. Dis moi ce que tu en penses
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
Mystcreater
Messages postés10Date d'inscriptionvendredi 11 octobre 2002StatutMembreDernière intervention18 septembre 2003 6 août 2003 à 17:34
Tout simplement génial. Je me demande quand vont-ils faire l'évênement "dragndrop" dans Access car j'ai fait quelques programmes dans Access sur lesquels je n'ai jamais eu le goût des convertir en vb et que j'aurais eu besoin de ce précieux évênement. Enfin, merci!
cs_Koiu
Messages postés269Date d'inscriptionjeudi 26 septembre 2002StatutMembreDernière intervention19 février 2015 18 oct. 2002 à 16:32
C super!!! 10/10
leptidev
Messages postés206Date d'inscriptionmercredi 30 janvier 2002StatutMembreDernière intervention 4 décembre 2007 18 oct. 2002 à 08:03
Bonne idée, maffiche ton code
cs_Sipadan
Messages postés125Date d'inscriptionlundi 5 août 2002StatutMembreDernière intervention23 novembre 2011 17 oct. 2002 à 19:09
Exellent.J'ai fait un essai avec un bouton puis 2 boites text qui prennent a chaque fois la valeur du bouton left pour une et top pour l'autre. Un deuxieme bouton enregistre les valeurs des 2 boites text dans un fichier texte. Puis dans form_load j'ouvre mon fichier texte et redonne les valeurs enregistrées left et top au premier bouton. Qu'en penses tu?
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
18 oct. 2002 à 08:03
17 oct. 2002 à 19:09