visibilité label par rapport au curseur vb6 Fermé

Question

Bonjour, 

j'aimerai savoir comment rendre invisible un label après qu'on éloigne le curseur de la souris de ce dernier ?
par exemple on écrit 
"
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.Visible = True
End Sub
"
qu'est ce qu'on doit écrire si on veut le rendre invisible à nouveau après l'éloignement du curseur

Configuration: Windows XP / Firefox 12.0

Paf · Answer

Bonjour,

la seule solution (que je connaisse ) consiste à "délimiter" une zone en périphérie de l'objet sur laquelle le curseur souris passera en sortant et qui permettra de déclencher une action.

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Marge = 3 ' on détermine la largeur "sensible"

'si le curseur a franchi la marge
If (X > Marge And X < Label2.Width - Marge) And (Y > Marge And Y < Label2.Height - Marge) Then
    Label3.Visible = True
Else    ' dès qu'on est en périphérie
    Label3.Visible = False
End If

End Sub

Bonne suite

Visibilité label par rapport au curseur vb6

1 réponse

Discussions similaires