Savoir si la souris est au dessus d'un objet

Commenter

Contenu du snippet

On doit utiliser l'évènement MouseMove.
Par exemple : soit une feuille (Form1) possédant une TextBox (Text1) et Une PictureBox (Picture1 dont la Backcolor est rouge par défaut).

Source / Exemple : 


'On affecte ce code à Form1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.BackColor = &HFF&
End Sub

' et celui-ci à Text1

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.BackColor = &H8000&
End Sub

Conclusion :


Si la souris passe sur Text1, le background de Picture1 est vert, sinon, il reste rouge.

A voir également

S'inscrire maintenant

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.

Du même auteur (JCLK)