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

**méphistopheles** · 11/01/2006, 14h29

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

**jmfmarques** · 11/01/2006, 14h47

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

**méphistopheles** · 11/01/2006, 16h35

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...

**jmfmarques** · 11/01/2006, 17h25

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
...

**jmfmarques** · 11/01/2006, 17h28

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)

**méphistopheles** · 11/01/2006, 17h47

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

**méphistopheles** · 11/01/2006, 17h48

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

Xo · 11/01/2006, 17h57

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

**jmfmarques** · 11/01/2006, 18h10

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

**méphistopheles** · 11/01/2006, 18h14

les frappes de touches?
tu veut dire le clavier c'est ça?

**jmfmarques** · 11/01/2006, 18h15

Oui, bien sur

**jmfmarques** · 11/01/2006, 21h42

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")

**méphistopheles** · 12/01/2006, 16h17

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

**méphistopheles** · 13/01/2006, 21h06

Posté Sur le forum dévellopement windows.

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

merci à tous.

**méphistopheles** · 15/01/2006, 10h42

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

**jmfmarques** · 15/01/2006, 11h10

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 !)

**jmfmarques** · 15/01/2006, 11h32

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é...

**méphistopheles** · 15/01/2006, 16h42

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.