Clignotement d'un label

Soyez le premier à donner votre avis sur cette source.

Vue 7 181 fois - Téléchargée 612 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
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
Cest pour les petits newbie
Messages postés
97
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
1 décembre 2003

bien !!!
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

et en BEAUCOUP plus simple, sans variable inutile :

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

wai c'est une autres solution !!!

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

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.