Discussion :

[Invité]

Bonjour,
Lorsque j'appelle la fonction "GetCursorPos", j'ai ce message d’erreur :

Un appel à la fonction PInvoke 'FollowTool!FollowTool.FollowTool::GetCursorPos' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

Voici ma déclaration :

Code :

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

1
2
 
Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Boolean

La structure de POINTAPI :

Code :

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

1
2
3
4
5
 
Public Structure POINTAPI
   Public x As Integer
   Public y As Integer
End Structure

L'appelle de la fonction :

Code :

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

1
2
3
4
 
Dim Position_Curseur As POINTAPI
GetCursorPos(Position_Curseur)
MsgBox("X = " & Position_Curseur.x & ", Y = " & Position_Curseur.y)

Merci pour votre futur aide