Discussion :

[Snooky68]

Bonjour à tous:

J'aimerais créer un programme qui enregistrerais des points précis sur l'ecran (donner par un clic de souris).
Mon premier probléme, et il est de taille! C'est que l'évenement MouseDown ne fonctionne que sur le programme lui-même! (Form, TextBox, etc...)

Je voudrais que cette évenement fonctionne sur l'enssemble de l'écran!
Comment faire?

P.S: Je suis débutant! Expliqué de facon clair SVP! S'il est question d'API, dite moi comment les utilisés! Merci.

[Najdar]

Bonjour Snooky68,

Ta solution est avec les API.
Tu peux essayer ceci :

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
Option Explicit
 
'Capture des coordonnées de la souris depuis un controle donné ----------------------------------
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
 
Private Sub Form_Load()
  SetCapture Me.hwnd
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Me.Caption = X & " x " & Y
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  ReleaseCapture
End Sub

J'ai l'habiture d'utiliser ces API sur des controles, non sur des feuilles, mais cela à l'air de marcher aussi.

[Snooky68]

Bonjour à tous...
Je remet sur le tapis ce vieux sujet.

Je recherche à présent la même chose, mais pour les événements clavier.

Donc je résume, j'aimerais connaitre le moyen d'intercepter les événements clavier qui se produise même si le programme na pas le focus.
Quelqu'un aurait-il une idée?

[ThierryAIM]

Fais une recherche sur

Code :

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

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer