[VB6]Détecter un click autre part que sur le projet.

Version imprimable

11/01/2006, 14h29
méphistopheles

[VB6]Détecter un click autre part que sur le projet.

Bonjour.
Vous conaissez peut-être la métode getcursorpos qui permet d'avoir les coordonnée de la souris à tout moment en dehors de la sub (http://vb.developpez.com/faq/?page=Autres#pos_souris)
Je souaite pour ma part savoir si un utilisateur clique avec sa souris (clic droit et gauche) à tout moment hors de la sub.

si vous savez comment faire....

salut :wink:
11/01/2006, 14h47
jmfmarques

NON, je ne sais pas encore mais peux chercher.

Par contre, si tu veux (ça je sais déjà faire), on peut empêcher la souris de "sortir" des limites de la form
11/01/2006, 16h35
méphistopheles

Merci mais ce n'est malheuresement pas le but. en fait, le programme dois controler une certaine zone de l'écran mais sur une autre aplication.
Je cherche donc un équivalent de la fonction getX getY. ce sont normalement des api windows mais je ne les conais pas...

Je ne sais pas si celà peut t'aider :

place sur une form :
1 commandbutton "testecommand"
les labels : "lbltrrl1, "formex", "formey", "ecranx", "ecrany", "ctrlx" et "ctrly"

ajoute ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Type POINTAPI 'structure pour les coordonnées d'un point
  X As Long  'abcisse du point
  Y As Long  'ordonnée du point
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
 
 
Private Sub positions(objet As Object)
  Dim pos As POINTAPI
  If objet.Name = Me.Name Then nom$ = "(La feuille elle même)" Else nom$ = objet.Name
  nom$ = TypeName(objet) & " " & nom$: lblctrl1.Caption = nom$
  GetCursorPos pos
  ecranx.Caption = pos.X: ecrany.Caption = pos.Y
  ScreenToClient Me.hwnd, pos
  formex.Caption = pos.X: formey.Caption = pos.Y
  GetCursorPos pos
  ScreenToClient objet.hwnd, pos
  ctrlx.Caption = pos.X: ctrly.Caption = pos.Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then positions Me 'appel de la procédure positions pour la form
End Sub
 
Private Sub Testecommand_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  positions testecommand 'appel de la procédure positions pour Testecommand
End Sub

démarres, promènes ta souris et vois.

Comment adapter tout celà à ce qui se trouve hors de la form ? Je cherche
...

11/01/2006, 17h28
jmfmarques

PS.

Si tu cherches aussi, c'est du côte du hwnd (iici Me.hwnd) que doivent être portées tes recherches (faudrait établir le handle de l'autre aplli)
11/01/2006, 17h47
méphistopheles

je te remercie mais j'ai déja un code qui fait ça (il suffit d'utiliser le getcursorpos et le screen.activecontrol dans un timer ou une boucle avec doevents)

mon problème est de savoir quand-est-ce que l'utilisateur clique à un endroit, et plus compliqué: comment être sur d'interceptercette comande.

merci :wink:
11/01/2006, 17h48
méphistopheles

Au fait, c'est quoi ce nom$ ?
je ne connais pas cette syntaxe, je l'ai simplement déclaré en string.
11/01/2006, 17h57
Xo

Citation:

Envoyé par méphistopheles

Au fait, c'est quoi ce nom$ ?
je ne connais pas cette syntaxe, je l'ai simplement déclaré en string.

C'est l'ancien typage des variables de VB (un suffxe $ signifie type string).

Certaines habitudes de prog ont la vie dure ;)
11/01/2006, 18h10
jmfmarques

Exact en ce qui concerne nom$.

Bon, je suis allé un peu plus loin et arrive maintenant à détecter les frappes de touches "normales" hors de l'appli, mais pas encore les clicks et double-clicks..

Je continue
11/01/2006, 18h14
méphistopheles

les frappes de touches?
tu veut dire le clavier c'est ça?
11/01/2006, 18h15
jmfmarques

Oui, bien sur
11/01/2006, 21h42
jmfmarques

Désolé pour toi, Mephisto.

Autant je parviens à gérer l'emploi des touches, hors appli, du clavier (avec l'API GetAsyncKeyState), autant je n'y parviens pas en ce qui concerne les événements externes de la souris.

A moins que tu n'y parviennes par l'emploi de l'API (et je suis intéressé de savoir comment), je ne vois rien à te suggérer (sauf si tu as également- le source de l'autre appli et que tu peux en modifier le code en vue de l'envoi d'un "drapeau")
12/01/2006, 16h17
méphistopheles

non, ce n'est malheuresement pas le cas.

je vais aller faire un tour sur le forum dévellopement windows pour voir s'ils onts les noms et parramètres d'appel des api.

merci beaucoup pour tout le mal que tu t'est donné.

salut :wink:
13/01/2006, 21h06
méphistopheles

Posté Sur le forum dévellopement windows.

je vous préviens s'il y as du nouveau.

merci à tous. :wink:
15/01/2006, 10h42
méphistopheles

Bonjour.
j'ai eu sur le sujet plus haut une réponse assez satisfaisante sauf que je n'ai pas compris comment appeler la dll (je ne voit pas où se trouve l'appel dans son aplication d'appel).
si quelqu'un fait égualement du C, pourrait-il m'aider?

merci :wink:
15/01/2006, 11h10
jmfmarques

Aie Aie Aie !!!

Je dis ça par ce que je m'y suis cassé quelques dents, il y a quelques jours, pour tenter de capturer les événements souris externes, comme tu le souhaitais.

J'avais essayé, en effet, d'utiliser SetWindowsHookEx

en m'inspirant de ce que je trouvais là :

http://vbnet.mvps.org/index.html?code/hooks/messageboxhooktimer.htm

Je ne suis hélàs pas parvenu à tout "lier" convenablement... et, fatigué après 3 bonnes heures de tentatives infructueuses, j'ai abandonné (honte à moi !)

:oops:
15/01/2006, 11h32
jmfmarques

PS ! Ah oui, je me rappelle maintenant TOUTES les raisons du cauchemar (ce qui te fera comprendre ce que j'entends par "lier") :

1) il ne sert pas à grand-chose de savoir si l'on a simplement cliqué ailleurs ... il faut également savoir sur quoi !!! (Or, si j'ai bien compris, tu cherches à savoir si l'on a cliqué sur une autre appli, bien déterminée)

2)On pourrait peut-etre rechercher l'application qui a le focus... Mais alors ? Elle a le focus, bon, mais qu'est-ce-qu'on y a touché ? S'il n'y avait pas cette préoccupation (et puisque tu dis ne pas posséder le source de cette 2ème application) on pourrait sans doute, si on détermine qu'elle a le focus, placer un petit drapeau temporaire sur le disque, mais celà impliquerait l'existence, dans la 1ère appli, d'un timer allant constamment vérifier la présence ou l'absence d'un tel drapeau !!!!)

Je me rappelle toutes ces données (et ce ne sont pas les seules) de ce cauchemar...

Encore une fois : honte à moi d'avoir abdiqué... :oops: :oops: :oops:
15/01/2006, 16h42
méphistopheles

ben pour l'apli sur laquelle on à cliqué, je me débrouille effectivement avec le focus. par contre, je n'arrive pas à voir si l'on à cliqué.

bon, je vais compiler cette dll et on verra.
15/01/2006, 22h06
méphistopheles

Je n'y arrive pas. quelqu'un saurais pas par hazard comment compiler une dll avec Visual C++6.0?

merci :wink:
18/01/2006, 11h32
avigeilpro

l'appli sur laquelle on click, c'est une appli que tu as créé ou tu veut que ton morceau de programme fonctionne quelque soit l'appli ?
18/01/2006, 11h39
jmfmarques

Je crois que Mephisto a déjà fait savoir qu'il ne possédait pas le source de l'autre appli (ce serait alors en effet fastoche)..
:(
18/01/2006, 14h35
daladim

Salut tout le monde,

bon je le dis tout de suite : je n'ai rien à proposer (désolé).
Par contre, je voulais, il y a quelque temps, programmer un compteur de clics (savoir combien de fois on a cliqué depuis le démarrage, par exemple)

jmfmarques, j'ai cru comprendre que tu pouvais simplement savoir quand il y avait un clic, mais sans en connaitre les coordonnées ou l'objet sur lequel le clic est effectué.
Pour moi, ca me suffirait. Pourrais-tu me dire comment simplement savoir quand il y a eu un clic ?

Merci (PS : tu veux que j'ouvre un nouveau sujet pour ca, ou tu peux me répondre directement ici ?)

Merci beaucoup, et désolé de ne rien apporter de nouveau dans l'histoire :oops:

bonjour,
es que vous avez essayé l'api peekmessage vous hwnd de l'application que vous allez surveiller et s'il y a un évènement quelconque elle vous retourne une valuer non null

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type MSG
    hwnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
 
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpmsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Const PM_NOREMOVE = &H0
Private Const WM_MOUSEFIRST = &H200
Private Const WM_MOUSELAST = &H209
 
Private Sub Command1_Click()
Dim rs As Long, lpmsg As MSG
   While True
      rs = PeekMessage(lpmsg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_NOREMOVE) = 0
      If rs <> 0 Then
         Debug.Print lpmsg.message
      End If
      DoEvents
   Wend
 
End Sub

18/01/2006, 14h39
jmfmarques

Fais un tour par là :

http://vbnet.mvps.org/index.html?code/hooks/messageboxhooktimer.htm

Bonne chance!...
:)