DÉPLACER UN CONTROLE EN DRAGDROP

cs_Sipadan Messages postés 125 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 23 novembre 2011 - 17 oct. 2002 à 19:09
cs_nafee Messages postés 5 Date d'inscription lundi 2 août 2004 Statut Membre Dernière intervention 11 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.

https://codes-sources.commentcamarche.net/source/4780-deplacer-un-controle-en-dragdrop

cs_nafee Messages postés 5 Date d'inscription lundi 2 août 2004 Statut Membre Dernière intervention 11 février 2006
11 mai 2006 à 15:20

Exellent

Airbornes Messages postés 6 Date d'inscription jeudi 24 avril 2003 Statut Membre Dernière intervention 23 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és 11 Date d'inscription lundi 31 mars 2003 Statut Membre Dernière intervention 22 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és 10 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 18 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és 269 Date d'inscription jeudi 26 septembre 2002 Statut Membre Dernière intervention 19 février 2015
18 oct. 2002 à 16:32

C super!!! 10/10

leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007
18 oct. 2002 à 08:03

Bonne idée, maffiche ton code

cs_Sipadan Messages postés 125 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 23 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?

Discussions similaires

Déplacement de contrôle dans une Form

Différences entre Contrôles ActiveX et Formulaire

ActiveX pour Access

Controle de saisie en C

Evènement KeyPress avec touche Entrée

Votre réponse

Discussions similaires