Lire la position de la souris dans un windows

[SPH]

Dans un code tres simple, comment lire la position et les boutons de la souris ?

Code : Tout sélectionner

OpenWindow(0, 0, 0, 200, 200, "2DDrawing Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow

Une api je parierais...

[dayvid]

Code : Tout sélectionner

OpenWindow(0, 0, 0, 200, 200, "2DDrawing Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Repeat
  Event = WaitWindowEvent()
delay(100)
debug Event
Until Event = #PB_Event_CloseWindow

c'est comme ça que j'ai fait pour comprendre moi
pour la position de la souris tu doit avoir une commande
regarde dans "windows" dans l'aide

je croix que c'est WindowMouseX et Y

[SPH]

Exact. Merci !!

[SPH]

Et pour lire les boutons de la souris ? (pas trouvé)

[falsam]

Code : Tout sélectionner

Procedure EventMouse()
  If GetActiveWindow()<>-1
    ProcedureReturn Abs(GetAsyncKeyState_(#VK_LBUTTON) + GetAsyncKeyState_(#VK_RBUTTON)*2 + GetAsyncKeyState_(#VK_MBUTTON)*3)/$8000     
  EndIf
EndProcedure

Debug EventMouse()
0 : Bouton relâché
1 : Bouton gauche
2 : Bouton droit
3 : Bouton du milieu

[SPH]

Code : Tout sélectionner

Procedure EventMouse()
  If GetActiveWindow()<>-1
    ProcedureReturn Abs(GetAsyncKeyState_(#VK_LBUTTON) + GetAsyncKeyState_(#VK_RBUTTON)*2 + GetAsyncKeyState_(#VK_MBUTTON)*3)/$8000     
  EndIf
EndProcedure

Debug EventMouse()
0 : Bouton relâché
1 : Bouton droit
2 : Bouton droit
3 : Bouton du milieu

Thxxx

[falsam]

Oops une petite erreur dans mon commentaire de code :
0 : Bouton relâché
1 : Bouton Gauche
2 : Bouton droit
3 : Bouton du milieu

je corrige ma réponse précédente

[SPH]

Oops une petite erreur dans mon commentaire de code :
0 : Bouton relâché
1 : Bouton Gauche
2 : Bouton droit
3 : Bouton du milieu

je corrige ma réponse précédente

Oui, j'avais vu mais j'avais compris

[falsam]

Toi oui ....... mais d'autres je ne sais pas :p

[dayvid]

tu as trouvé ton bonheur SPH
heureux de t'avoir aider (pour une fois que j'arrive a aider quelqu'un sans raconté de conneries )