Savoir si la souris est dessus un objet
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 262 fois - Téléchargée 66 fois
Contenu du snippet
tout est à mettre dans un Form
La fonction renvoie True si la souris est dessus ou False si elle n'y est pas
L'avantage d'utiliser cette méthode (plutot que Form_mousemove) est que si l'objet en question est sur une feuille avec parmi plein d'autre, la souris peut sauter sur un autre objet sans être passer par dessus la feuille.
Source / Exemple :
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim VarPointAPI As POINTAPI
Dim VarObjRect As RECT
Private Function IsOnObject(Hwnd As Long) As Boolean
GetCursorPos VarPointAPI
GetWindowRect Hwnd, VarObjRect
If VarPointAPI.x > VarObjRect.Left And _
VarPointAPI.x < VarObjRect.Right And _
VarPointAPI.y > VarObjRect.Top And _
VarPointAPI.y < VarObjRect.Bottom Then
IsOnObject = True
Else
IsOnObject = False
End If
End Function
Conclusion :
La fonction renvoie True si la souris est dessus ou False si elle n'y est pas
L'avantage d'utiliser cette méthode (plutot que Form_mousemove) est que si l'objet en question est sur une feuille avec parmi plein d'autre, la souris peut sauter sur un autre objet sans être passer par dessus la feuille.
A voir également
- Savoir si la souris est dessus un objet
- Savoir si la souris est au dessus d'un objet - Codes sources - Visual Basic / VB.NET (Souris, Clavier, etc…)
- Visual Basic / VB.NET : Détecter la souris sur un objet - CodeS SourceS - Guide
- Récupérer un objet graphique en fonction de la position de la souris - Codes sources - C / C++ / C++.NET (API)
- VB 2005 Verrouillé impossible de déplacer les objets avec la souris ✓ - Forum - VB.NET
- Déplacement d'un objet suivant la souris ✓ - Forum - Flash
Commentaires
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
65tout est là :
la fonction se nomme IsOnObject
elle renvoie un boolean (Vrai/Faux)
d'après son nom, on peux dire qu'elle renvoie vrai si le curseur de la souris est au dessus de l'objet...
l'objet en question ? celui dont on passe le hwnd (via le parametre du même nom)
tout ça pour dire :
If IsOnObject ( Command1.hWnd ) Then
MsgBox "le curseur de la souris est au dessus de mon bouton Command1"
End If
PS: si tu trouve que je réponds assez sèchement, c'est bien le cas.
je n'aime pas le ton que tu prend ni ton syle SMS, qui est à proscrire, d'ailleurs (cf. la charte de bonne conduite, ci-dessous)
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
65Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
Private Function IsOnObject(Hwnd As Long) As Boolean
Dim VarPointAPI As POINTAPI
Dim VarObjRect As RECT
GetCursorPos VarPointAPI
GetWindowRect Hwnd, VarObjRect
IsOnObject = (PtInRect(VarObjRect, VarPointAPI.x, VarPointAPI.y) <> 0)
End Function
ou encore mieux :
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Function IsOnObject(Hwnd As Long) As Boolean
Dim Pt As POINTAPI: GetCursorPos Pt
IsOnObject (WindowFromPoint(Pt.x, Pt.y) Hwnd)
End Function
dans un timer ?
avec par ex pour une form :
if IsOnObject form1= then
' action
else
' pas d'action
c'est ca ?
Rnosat
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.