Menu
Donnez votre avis

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

Posez votre question
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
Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme