VB6. Connaître la position absolue de la souris.

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
Ce document intitulé « VB6. Connaître la position absolue de la souris. » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.