Discussion :

[ninouchfis]

Bonjour à tous,

Je cherche le moyen de récupérer les coordonnées par rapport à l'écran et non par rapport à l'application, d'un formulaire ou mieux encore, d'un controle d'un formulaire.
Mon but est d'ensuite effectuer un ScreenShot avec les coordonnées récupérées.

Savez vous comment faire? Une API peut être?

Merci par avance

[ClaudeLELOUP]

Bonjour,

Tu trouveras probablement des pistes dans ce tutoriel ou dans les liens que j'y renseigne.

[ninouchfis]

Super, tout y est, voici le 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
Declare Function GetWindowRect Lib "user32" ( _
                         ByVal hwnd As Long, _
                         lpRect As RECT) As Long
Type RECT
     Left As Long
     Top As Long
     Right As Long
     Bottom As Long
End Type
Sub PositionForm(NomDuFormulaire As String) As Position
Dim rectForm As RECT
'Récupérer le rectangle de la fenêtre du formulaire
GetWindowRect Forms(NomDuFormulaire).hwnd, rectForm
'Copier les coordonnées du coin sup gauche
Donnees_left = rectForm.Left
Donnees_top = rectForm.Top
'Calculer la largeur
Donnees_width = rectForm.Right - rectForm.Left
''Calculer la hauteur
Donnees_height = rectForm.Bottom - rectForm.Top
End sub