Savoir si la souris est au dessus d'un objet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 726 fois - Téléchargée 84 fois

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

Ajouter un commentaire

Commentaire

leleader
Messages postés
24
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
31 octobre 2003
-
C'est bien mais aprés koi ... le background de Picture1 reste vert après le passage de la souris..............

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.