Many_hack
Messages postés16Date d'inscriptionlundi 1 décembre 2003StatutMembreDernière intervention 8 septembre 2009
-
8 sept. 2004 à 05:55
smoineau44
Messages postés14Date d'inscriptionjeudi 9 octobre 2003StatutMembreDernière intervention 9 mars 2006
-
9 mars 2006 à 17:00
smoineau44
Messages postés14Date d'inscriptionjeudi 9 octobre 2003StatutMembreDernière intervention 9 mars 2006 9 sept. 2004 à 20:06
Salut.
D'apres ce que j'ai compris (que ce soit text box ou label peu importe) ce que tu veut c'est savoir quand tu fait un drag and drop de l'un de tes controles vers un autre.
Si c'est le cas alors il suffit de les mettres en dragmode = 1 automatic dans les proprietés de tes labels puis de mettre dans le code
Private Sub Lblmanger_DragDrop(Source As Control, X As Single, Y As Single)
...
End Sub
...
...
et tu as la source du drag (ex:label1) et la tu n'a plus qu'a faire ton code (on a meme en plus la position du drop !!!)
J'espers avoir repondu à ta question et si non ba faudra voir le nouveau problème quand tu auras repondu...
8-)
smoineau44
Messages postés14Date d'inscriptionjeudi 9 octobre 2003StatutMembreDernière intervention 9 mars 2006 9 mars 2006 à 17:00
Par exemple tu met ca :
Private Sub Lblmanger_DragDrop(Source As Control, X As Single, Y As Single)
MsgBox "la source est " & Source & " et a été posée a " & X & " : " & Y, vbInformation
End Sub
quand un objet definit en dragmode = 1 automatic (donc que l'on peut deplacer) est posé sur l'objet ou il y a le code on obtient un message disant quel objet on lui a posé dessus et à quel endroit.
Apres vous faitres ce que vous voulez je sais pas ce que vous voullez faire...