Bonjour à tous,
Une question, svp.
Comment faire clignoter un bouton de commande (ou en tout cas son étiquette) ?
Avec l'évenemment "SUR MINUTERIE" ?
Je vous remercie par avance.
Luis
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
Tu peux faire entr'autre: Private Sub Form_Timer() Me.Commande200.Caption = IIf(Me.Commande200.Caption = "", "Commande200", "") End Sub
mets le timer à 200 environ pour faire un clignotement normal. il ne faut pas faire clignoter le bouton lui-même car lorsque tu vas cliquer dessus tu risques de tomber sur le bouton invisible. cette méthode implique aussi que tu n'utilises que cette fonction dans le timer. si tu dois l'utiliser pour plusieurs boutons il faudra tester le Screen.activecontrol pour savoir quel bouton il faut faire clignoter.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
a écrit dans le message de news:
Bonjour à tous, Une question, svp. Comment faire clignoter un bouton de commande (ou en tout cas son étiquette) ?
Avec l'évenemment "SUR MINUTERIE" ? Je vous remercie par avance. Luis
Bonjour.
Tu peux faire entr'autre:
Private Sub Form_Timer()
Me.Commande200.Caption = IIf(Me.Commande200.Caption = "", "Commande200", "")
End Sub
mets le timer à 200 environ pour faire un clignotement normal.
il ne faut pas faire clignoter le bouton lui-même car lorsque tu vas cliquer
dessus tu risques de tomber sur le bouton invisible. cette méthode implique
aussi que tu n'utilises que cette fonction dans le timer. si tu dois
l'utiliser pour plusieurs boutons il faudra tester le Screen.activecontrol
pour savoir quel bouton il faut faire clignoter.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
<luis.pedreira@surfeu.ch> a écrit dans le message de
news:19ff1f3e.0312140024.67371635@posting.google.com...
Bonjour à tous,
Une question, svp.
Comment faire clignoter un bouton de commande (ou en tout cas son
étiquette) ?
Avec l'évenemment "SUR MINUTERIE" ?
Je vous remercie par avance.
Luis
Tu peux faire entr'autre: Private Sub Form_Timer() Me.Commande200.Caption = IIf(Me.Commande200.Caption = "", "Commande200", "") End Sub
mets le timer à 200 environ pour faire un clignotement normal. il ne faut pas faire clignoter le bouton lui-même car lorsque tu vas cliquer dessus tu risques de tomber sur le bouton invisible. cette méthode implique aussi que tu n'utilises que cette fonction dans le timer. si tu dois l'utiliser pour plusieurs boutons il faudra tester le Screen.activecontrol pour savoir quel bouton il faut faire clignoter.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
a écrit dans le message de news:
Bonjour à tous, Une question, svp. Comment faire clignoter un bouton de commande (ou en tout cas son étiquette) ?
Avec l'évenemment "SUR MINUTERIE" ? Je vous remercie par avance. Luis
micdeu
Faire clignoter une étiquette ou une image Pour attirer l'attention des usagers sur un contrôle particulier, tel qu'une image ou une étiquette contenant un message, il est possible de faire clignoter le contrôle de formulaire concerné. Cependant, on usera très modérément de cette possibilité en raison de la fatigue visuelle qu'elle engendre On utilisera l'événement Sur minuterie du formulaire et on réglera l'intervalle de minuterie sur 1000. Pour faire clignoter le texte d'une étiquette dénommée ici lblInformation on aura par exemple le code suivant: Private Sub Form_Timer() Static blnIndicateur As Boolean
If blnIndicateur Then lblInformation.ForeColor = vbYellow Else lblInformation.ForeColor = vbGreen End If blnIndicateur = Not blnIndicateur End Sub On peut aussi associer ce code à l'événement Sur souris déplacée (MouseMove) pour obtenir un scintillement lorsque l'usager déplace la souris sur le contrôle concerné.
-----Message d'origine----- Bonjour à tous, Une question, svp. Comment faire clignoter un bouton de commande (ou en tout cas son étiquette) ?
Avec l'évenemment "SUR MINUTERIE" ? Je vous remercie par avance. Luis .
Faire clignoter une étiquette ou une image
Pour attirer l'attention des usagers sur un contrôle
particulier, tel qu'une image ou une étiquette contenant
un message, il est possible de faire clignoter le
contrôle de formulaire concerné. Cependant, on usera très
modérément de cette possibilité en raison de la fatigue
visuelle qu'elle engendre
On utilisera l'événement Sur minuterie du formulaire et
on réglera l'intervalle de minuterie sur 1000.
Pour faire clignoter le texte d'une étiquette dénommée
ici lblInformation on aura par exemple le code suivant:
Private Sub Form_Timer()
Static blnIndicateur As Boolean
If blnIndicateur Then
lblInformation.ForeColor = vbYellow
Else
lblInformation.ForeColor = vbGreen
End If
blnIndicateur = Not blnIndicateur
End Sub
On peut aussi associer ce code à l'événement Sur souris
déplacée (MouseMove) pour obtenir un scintillement
lorsque l'usager déplace la souris sur le contrôle
concerné.
-----Message d'origine-----
Bonjour à tous,
Une question, svp.
Comment faire clignoter un bouton de commande (ou en
tout cas son étiquette) ?
Avec l'évenemment "SUR MINUTERIE" ?
Je vous remercie par avance.
Luis
.
Faire clignoter une étiquette ou une image Pour attirer l'attention des usagers sur un contrôle particulier, tel qu'une image ou une étiquette contenant un message, il est possible de faire clignoter le contrôle de formulaire concerné. Cependant, on usera très modérément de cette possibilité en raison de la fatigue visuelle qu'elle engendre On utilisera l'événement Sur minuterie du formulaire et on réglera l'intervalle de minuterie sur 1000. Pour faire clignoter le texte d'une étiquette dénommée ici lblInformation on aura par exemple le code suivant: Private Sub Form_Timer() Static blnIndicateur As Boolean
If blnIndicateur Then lblInformation.ForeColor = vbYellow Else lblInformation.ForeColor = vbGreen End If blnIndicateur = Not blnIndicateur End Sub On peut aussi associer ce code à l'événement Sur souris déplacée (MouseMove) pour obtenir un scintillement lorsque l'usager déplace la souris sur le contrôle concerné.
-----Message d'origine----- Bonjour à tous, Une question, svp. Comment faire clignoter un bouton de commande (ou en tout cas son étiquette) ?
Avec l'évenemment "SUR MINUTERIE" ? Je vous remercie par avance. Luis .
