Animation-faire cligonter un label

Vous pouvez utiliser un timer faire changer la couleur de fond du label à
intervale réguliers.

Cédric

"Olga Petrova" <olgapetrova@hotmail.com> wrote in message
news:2a6f501c39258$ebd4e040$a601280a@phx.gbl...

Hello,

Je voudrais faire clignoter un label tout le temps (ou
qu'il change de couleur tout le temps).

Ya t'il un moyen de le faire ?

Merci d'avance

Olga

Bonjour Olga,

Un copier/coller :

Private Sub Form_Load()

Timer1.Interval = 600
Text1 = "essai2"

End Sub

Private Sub Timer1_Timer()

If Text1.ForeColor = Text1.BackColor Then
Text1.ForeColor = vbBlack
Else
Text1.ForeColor = Text1.BackColor
End If


End Sub




a+
Jean-Pol DAVID
mailto:david.sa@skynet.be
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ?
Quomodo ? Quando ?

"naudy cédric" <cnaudy@online.microsoft.com> a
écrit dans le message news:
eQrvo6lkDHA.2000@TK2MSFTNGP12.phx.gbl...

Vous pouvez utiliser un timer faire changer la

couleur de fond du label à

intervale réguliers.

Cédric

"Olga Petrova" <olgapetrova@hotmail.com> wrote

in message

news:2a6f501c39258$ebd4e040$a601280a@phx.gbl...
> Hello,
>
> Je voudrais faire clignoter un label tout le

temps (ou

> qu'il change de couleur tout le temps).
>
> Ya t'il un moyen de le faire ?
>
> Merci d'avance
>
> Olga

Et plus simplement...

Private Sub Form_Load()
Timer1.Interval = 600
Text1 = "essai2"
End Sub

Private Sub Timer1_Timer()
Me.Text1.Visible = Not Me.Text1.Visible
End Sub

Guy DETIENNE
--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
"David" <david.sa@skynet.be> a écrit dans le message de
news:%233ekUGnkDHA.2616@TK2MSFTNGP11.phx.gbl...

Bonjour Olga,

Un copier/coller :

Private Sub Form_Load()

Timer1.Interval = 600
Text1 = "essai2"

End Sub

Private Sub Timer1_Timer()

If Text1.ForeColor = Text1.BackColor Then
Text1.ForeColor = vbBlack
Else
Text1.ForeColor = Text1.BackColor
End If


End Sub




a+
Jean-Pol DAVID
mailto:david.sa@skynet.be
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ?
Quomodo ? Quando ?

"naudy cédric" <cnaudy@online.microsoft.com> a
écrit dans le message news:
eQrvo6lkDHA.2000@TK2MSFTNGP12.phx.gbl...
> Vous pouvez utiliser un timer faire changer la
couleur de fond du label à
> intervale réguliers.
>
> Cédric
>
> "Olga Petrova" <olgapetrova@hotmail.com> wrote
in message
> news:2a6f501c39258$ebd4e040$a601280a@phx.gbl...
> > Hello,
> >
> > Je voudrais faire clignoter un label tout le
temps (ou
> > qu'il change de couleur tout le temps).
> >
> > Ya t'il un moyen de le faire ?
> >
> > Merci d'avance
> >
> > Olga
>
>