Visibilité label par rapport au curseur vb6
Guy_kill
-
Paf -
Paf -
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
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
A voir également:
- Visibilité label par rapport au curseur vb6
- Vb6 - Télécharger - Divers Utilitaires
- Label printer logiciel - Télécharger - Outils professionnels
- Plan rapport de stage - Guide
- Comment faire apparaître le curseur sans souris - Guide
- Curseur souris disparu pc portable asus - Forum Périphériques
1 réponse
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.
Bonne suite
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
