Cette petite fonction permet de connaître la position de la souris par rapport à l'écran et non par rapport à la feuille ou au contrôle qu'elle contient.
Dans un module
Déclaration
Public Type POINTAPI
x As Long
y As Long
End Type
Public m_CursorPos As POINTAPI
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
La fonction
Sub GetCurseur()
Dim LonCStat As Long
LonCStat = GetCursorPos&(m_CursorPos)
'pour ce servir du résultat, les données doivent êtres transformées en Pixel.
m_CursorPos.x = m_CursorPos.x * Screen.TwipsPixelX
m_CursorPos.y = m_CursorPos.y * Screen.TwipsPixelY
End Sub
Absoluflash
