Clignotement d'un label

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

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)