0
Merci

Quelques mots de remerciements seront grandement appréciés.

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


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
0
Merci

Quelques mots de remerciements seront grandement appréciés.

Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche
et directeur délégué au développement numérique du groupe Figaro.

Publié par . Dernière mise à jour le par christelle.b.

Ce document intitulé «  VB6. Connaître la position absolue de la souris.  » issu de CommentCaMarche (https://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.

0 Commentaire