Forcer la position du pointeur de sourisRésolu

Question

Bonjour !

bon, voila, je suis en train de coder une toute petit appli pour un ami qui est kiné non-voyant.
Il utilise le programme de son hopital pour suivre ses consultations mais sa synthèse vocale ne reconnait pas certains boutons pour passer d'un module à l'autre, ce qui le rend dépendant d'une autre personne.

La solution la plus simple (à mon avis) est de lancer un petit programme avec une liste déroulante contenant la liste des boutons à atteindre et d'envoyer le curseur de souris à l'endroit qui va bien en fonction du choix (la synthèse vocale reconnait le contenu du combobox).

Mon soucis, c'est que si j'arrive à récupérer la position du curseur dans des variables, je ne parviens pas à forcer la position du curseur à un endroit prédéfini.

Ca me parait pas compliqué à faire sauf que je ne sais pas sur quel contrôle agir... 

Quelqu'un peut me filer un coup de main pour ce petit truc tout bête ? J'ai beau fouiller dans toute ma doc, je ne trouve nulle part un moyen d'envoyer ce fichu pointeur où je veux...


Merci !!!

cs_DARKSIDIOUS · Accepted Answer

tu l'appelle comme une fonction normale :



SetCursorPos 100, 100



Ce code te place le curseur de souris &#224; la position 100 x 100 &#224; l'&#233;cran, c'est aussi compliqu&#233; que c&#224; ;)



Il faut pas croire que les fonctions de l'API Windows sont compliqu&#233;es ;)

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

Utilise la fonction de l'API Windows SetCurposPos, elle te permet de
d&#233;finir la position du curseur sur l'&#233;cran (&#224; utiliser en parall&#232;le
avec GetCursorPos pour r&#233;cup&#232;rer la position du curseur).

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

cs_Yaourth · Answer

Aie, j'ai jamais touché aux API... va falloir s'y mettre.

J'ai donc récupéré ça dans l'API Viewver :

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Ca fonctionne comment ?
Je colle ça à quel endroit dans mon code ?
Comment je fais pour passer une valeur sur x et y ?


désolé, j'ai aucune doc là dessus et je suis un peu perdu.

cs_Yaourth · Answer

en effet !!

:-)

bon ben voila, ça fait quatre heures que je rame comme un malade et c'est pas plus compliqué que ça.

Tous mes remerciements pour les tuyaux et cette aide rapide et efficace ! bonne journée à toi !!

cs_Yaourth · Answer

Tiens, par contre, j'arrive pas à piger GetCursorPos :

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

VB me jette sur une erreur de type non défini (apparemment, c'est POINTAPI qui va pas). Je m'attendais à une fonction qui me renvoit X et Y en Long mais là, il me semble que y a un truc à faire avant... 
lpPoint est bien une variable ?

PCPT · Answer

salut
pointapi est &#224; d&#233;clarer avant

pour plus d'infos sur la souris, tu peux jeter un oeil sur LES VACANCES DE MR MULOT    [TUTORIAL]
++
PCPT    [AFCK]

PCPT · Answer

ps : GetCursorPos te renvoie la position du curseur par rapport &#224; l'&#233;cran ;)

Private Type POINTAPI
    X As Long
    Y As Long
End Type

cs_Yaourth · Answer

pcpt : il est sur ce site le tutorial ? je ne le trouve pas... (décidément...)

par contre, quand je déclare POINTAPI en LONG, j'ai un ByRef Mismatch Error si je veux l'afficher dans une texte box. C'est normal ?

PCPT · Answer

http://www.vbfrance.com/code.aspx?ID=34236 Byref ..... c'est pas sûr que l'erreur vienne de l'API [VB6] si c'est sur une Form : Option Explicit ' Private Type POINTAPI X As Long Y As Long End Type ' Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ' ' ' Private Sub Command1_Click() Dim MousePos As POINTAPI Call GetCursorPos(MousePos) MsgBox "la souris est (forcément sur le bouton) en coordonnées..." & vbCrLf & _ vbCrLf & "X : " & MousePos.X & vbCrLf & "Y : " & MousePos.Y End Sub Coloration syntaxique automatique [AFCK] la différence si c'est un module, c'est uniquement de remplacer les Private par Public (donc pas besoin de re-déclarer sur la Form) ++ PCPT [AFCK]

cs_Yaourth · Answer

Ok, en fait l'erreur venait de l'appel de GetCursorPos par Call.

Mon problème est résolu !!

merci à tous !! c'est vraiment sympa !! :)

Forcer la position du pointeur de souris

10 réponses

Discussions similaires