La souris en dehors de la form

Question

Salut &#224; tous,



Ce th&#232;me me semble &#234;tre le meilleur pour mon probl&#232;me. Je m'explique :

Existe-t-il des API, des constantes, ou tout ce que vous voulez, pour
pouvoir executer quelque chose (par exemple msgbox "Vous avez cliquer
la !") si on clique sur la form (simple &#231;a, je connais) mais si on
clique aussi sur le bureau ! Par exemple, sur une fen&#234;tre msn, quand on
clique pour la mettre en premier plan (on est hors du cadre de la
form), la msgbox s'affiche ! Partout, qu'on clique, tout court !
J'&#233;sp&#232;re que vous comprenez, parce que je vois pas comment expliquer
mieux. 

Quoi qu'il en soit, je repose ma question : existe-t-il des api ou
autre pour que le prog, m&#234;me si il n'est plus en premier plan, prenne
en compte les click de la souris ?



Merci d'avance, @++ !

Gobillot · Answer

Private 
Declare 
Function GetCursorPos 
Lib 
"user32" (lpPoint 
As POINTAPI) 
As 
Long

Daniel

scano93 · Answer

Ouai, je connais cet api, mais il sert surtout &#224; "envoyer" le curseur
de la souris &#224; un endroit x , y, non ? comment peux-t-on s'en servir,
si c'est possible, pour que le programme g&#232;re les lcick m&#234;me en dehors
de la form ?

cs_darunia · Answer

Salut,

Il faut que tu poses un hook sur la souris. Il faut que tu programme &#231;a en C dans une dll native.

Fais une recherche de hook sur cpfrance, tu devrait trouver.

[mailto:D@runia D@runia]

Gobillot · Answer

tu confonds avec SetCursorPos qui permet de positionner le curseur &#224; l'endroit o&#249; on veut.
ici on utilise GetCursorPos qui permet de conna&#238;tre la position du curseur n'importe o&#249; sur l'&#233;cran. j'ai rajout&#233; aussi le handle de ce qui se trouve sous la souris. et avec GeyAsyncKeyState on peut savoir si un bouton a &#233;t&#233; appuy&#233;.
contr&#244;le a ajouter: un Timer et 2 TextBox.

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
    Dim Pt         As POINTAPI
    Dim mWnd   As Long
    GetCursorPos Pt
    Text1 = Pt.X & " - " & Pt.Y
    
    mWnd = WindowFromPoint(Pt.X, Pt.Y)
    Text2 = mWnd
    If GetAsyncKeyState(1) < 0 Then Beep

End Sub

Daniel

BruNews · Answer

Et faudra mettre un timer tellement court pour surveiller la souris que &#231;a va ruiner la CPU.
La seule methode correcte est celle indiquee par darunia, aucun timer et on laisse les performances intactes.

ciao...
BruNews, MVP VC++

La souris en dehors de la form

5 réponses

Discussions similaires