cs_Yaourth
Messages postés6Date d'inscriptionmardi 1 novembre 2005StatutMembreDernière intervention 1 novembre 2005
-
1 nov. 2005 à 10:38
cs_Yaourth
Messages postés6Date d'inscriptionmardi 1 novembre 2005StatutMembreDernière intervention 1 novembre 2005
-
1 nov. 2005 à 13:23
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...
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
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 1 nov. 2005 à 10:45
Utilise la fonction de l'API Windows SetCurposPos, elle te permet de
définir la position du curseur sur l'écran (à utiliser en parallèle
avec GetCursorPos pour récupèrer la position du curseur).
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
cs_Yaourth
Messages postés6Date d'inscriptionmardi 1 novembre 2005StatutMembreDernière intervention 1 novembre 2005 1 nov. 2005 à 12:06
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 ?