VB6 - où se trouve le pointeur de ma souris ?Résolu

Question

Bonjour &#224; Tous,

Voil&#224; j'ai une question toute simple mais je bloque dessus 
Dans une forme en VB6 Est-il possible de savoir au-dessus de quel controle se trouve le pointeur de ma souris ?
Merci.



Deluka.

cs_DARKSIDIOUS · Accepted Answer

Oui, mais les solutions que je te propose est assez compliquées pour une chose finalement aussi simple : Récupèrer la position de la souris sur l'écran (API GetCursorPos) puis les traduire en coordonnées fenêtre (API ScreenToClient) et enfin, tester les coordonnées de la souris avec tout les contrôles sur ta feuille. OU : Récupèrer le handle de la fenêtre en dessous de la souris (API GetWindowFromPoint) et tester les handle de fenêtre de tout tes contrôles de ta feuille avec cet handle. _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_franckydeluka · Answer

Voil&#224;,  en fait j'avais peur de m'attaquer &#224; ce genre de codage et je me demandais si finalement il n'existait pas une fonction qui me renverrait le nom du contr&#244;le au-dessus duquel je me trouve. (disons que ce n'est pas tellement compliqu&#233; mais &#231;a para&#238;t &#233;norme pour finalement si peu )

Okay alors je vais utiliser la premi&#232;re solution 
Merci



Deluka.

cs_DARKSIDIOUS · Answer

La deuxième sera bien plus simple à mettre en place bien que moins fiable ! _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

alexmagnus · Answer

Moi je recupere le X et le Y de la souris par la methode MouseDown d'un controle, en ajoutant &#224; ces valeurs la position du controle sur la form. Cependant, ca ne marche que pour des valeurs de la form (pas de l'ecran)

cs_DARKSIDIOUS · Answer

alexmagnus : tu ne peux pas récupèrer le mousedown de toute ta feuille à partir d'un simple contrôle : il suffit que l'utilisateur clique sur un bouton par exemple, alors le mousedown ne se déclenche que pour ce bouton. De plus, le but ici est de récupèrer les coordonnées de la souris lors du survol apparement et non au clic. Il y a un moyen pour rediriger tout les événements souris vers un contrôle facilement (API SetCapture) mais le problème c'est que les événements de la souris sont alors interceptés, et ils ne sont plus acheminés aux contrôles de la feuille (ni même tout les événements des autres feuilles hors application !!!). _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_franckydeluka · Answer

Darksidious : Au risque de poser une question basique je n'ai pas bien compris la deuxi&#232;me solution  :
Qu'est-ce que tu entends par handle de la fen&#234;tre ? puis handle de fen&#234;tre de tous tes contr&#244;les de ta feuille avec cet handle ?



Deluka.

cs_DARKSIDIOUS · Answer

Bah avec la fonction de l'API Windows GetWindowsFromPoint, tu récupère un long qui correspond à un handle de fenêtre. Il reste plus qu'à tester si cet handle est l'un de tes contrôles, et si oui, lequel, donc il faut tester si le hWnd de tes contrôles (uniquement les contrôles qui en possèdent un, donc pas les labels, ni les lines, ni les shapes, etc.) est égal au handle récupèré par GetWindowsFromPoint _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

cs_franckydeluka · Answer

Merci, j'avais pas bien saisi la notion .
J'ai cherch&#233; aussi sur le web et je suis tomb&#233; sur cette adresse que je partage :

http://xav.prog.power.free.fr/

il y a une liste d'API recens&#233;e concernant le handle mais plus encore.
ainsi que quelques exemples VB6 qui d'ailleurs proviennent de code-source .

++



Deluka.

rayjul · Answer

Je ne sais pas si j'ai bien interprété ta question. Si c'est simplement pour connaitre le nom du contrôle, et si celui-ci contient une propriété tooltyptext, y inscrire le nom ou la caption

evajul

VB6 - où se trouve le pointeur de ma souris ?

9 réponses

Discussions similaires