Détecter la souris sur un objet

Commenter

Contenu du snippet

C'est tout simple et ça peut servir de temps en temps, lorsque l'on veux qu'il se passe quelque chose lorsque l'on approche la souris sur un label ou tout autre objet.

Source / Exemple : 


Prenons l'exemple avec un label que le label change de couleur et se remet à sa couleur initial lorsque l'on est plus dessus:

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.backcolor=rgb(255,0,0)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.backcolor=rgb(0,255,0)
End Sub

Conclusion :


Ici, on a dit que l'orsuqe l'on est sur le label, il est rouge sinon, il est vert. Collez ce code puis regarder. C'est tout con mais c'est simplement que beaucoup de gens ne le savent pas.

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 (Vincentsoft)