Clignotement d'un label

0/5 (5 avis)

Vue 7 735 fois - Téléchargée 653 fois

Description

Cette source montre comment faire clignoter du texte dans un label sur une forme ... Chaque label est accompagné de deux timers pour effectuer cet effet ...

Il n'y a rien de compliquer là dedans ... mais ça peut toujours servir ... et apprendre aux débutants certains trucs ...

Je mets la source ci-dessous ... notez que le projet doit de composer :
d'une form (form1) sur laquelle se trouera :
- un label qui contient le texte (label1)
- deux timers (Timer1 et Timer2) qui seront initialement, pour le paramètre 'Enabled', à 'False'

Ensuite vous pourrez rajouter ce qui suit dans le code de votre form :

Source / Exemple :


Dim contenu As String

Private Sub Form_Load()
'
' On démarre l'effet
'
contenu = Label1   ' on stocke le contenu du texte pour pouvoir le réafficher à nouveau
Timer1 = True      ' .. et on y va !!!
End Sub

Private Sub Timer1_Timer()
'
' On enleve le contenu de label1 ...
'

Label1 = ""      ' on vide label1
Timer1 = False   ' timer1 se désactive ...
Timer2 = True    ' ..et active timer2
End Sub

Private Sub Timer2_Timer()
'
' ... et on le remets
'

Label1 = contenu    ' C'est ici que l'on remet le contenu initial de label1
Timer2 = False      ' Timer2 se désactive ...
Timer1 = True       ' ... et active Timer1

End Sub

Conclusion :


Si vous voulez des commentaires, voulez faire des remarques, constatez des bugs ou toutes autres choses, n'hésitez surtout pas a me mailez à bigbang00@caramail.com

@+ et bonne prog...

bigbang

Codes Sources

A voir également

Ajouter un commentaire Commentaires
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
8 juin 2002 à 09:47
Cest pour les petits newbie
cs_SHIVA
Messages postés
97
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
1 décembre 2003

26 janv. 2002 à 12:10
bien !!!
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

7 janv. 2002 à 12:47
et en BEAUCOUP plus simple, sans variable inutile :

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub
cs_thebigbang
Messages postés
196
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
25 juillet 2006

7 janv. 2002 à 12:40
wai c'est une autres solution !!!

bigbang
bigbang00@caramail.com
Almandric
Messages postés
31
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
12 août 2003

7 janv. 2002 à 00:15
Tiens le même effet avec un seul timer....
Un timer est déjà assez lourd à gérer comme ca pour éviter d'en mettre 2.

Dim contenu As String

Private Sub Form_Load()

contenu = "Toto"
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If Label1.Caption = "" Then
Label1.Caption = contenu
Else
Label1.Caption = ""
End If

End Sub

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.