Drag d'un control sur le click

Signaler
Messages postés
60
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
28 novembre 2009
-
Messages postés
60
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
28 novembre 2009
-
Bonjour,
je désirerais avoir de l'aide sur le "comment" déplacer un control sur un Form.

Quand j'essaie, avec un timer au 100ms, d'affecter ma position de souris a la location du contrôle il se trouve a avoir un énorme vide entre le curseur et le dit contrôle. Je ne sais vraiment pas pourquoi! Peut-être il essaie d'affecter la position de la souris relative a l'écran entier , si c'est le cas alors comment obtenir la position de la souris a l'intérieur d'un container, exemple: Form?

---
Dim l As New Point
l.X = MousePosition.X
l.Y = MousePosition.y

<nom_du_control>.location = l
---

Merci d'avance!...

1 réponse

Messages postés
60
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
28 novembre 2009

Bon,
j'ai "bypasser" cela de façon un peu barbare en mettant au Timer_tick de mon custom control:

---
Dim l As New Point

l.X = MousePosition.X - Parent.Location.X - 50
l.Y = MousePosition.Y - Parent.Location.Y - 50

Me.Location = l
---

Par contre j'aimerais croire qu'il y a quelque chose de mieu et plus absolue. :)