Clignotement d'un label

0/5 (5 avis)

Vue 8 524 fois - Téléchargée 695 fois

Télécharger le projet
Commenter

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
Télécharger le projet

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 2
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
S'inscrire maintenant

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.

Du même auteur (cs_thebigbang)