begin process at 2012 02 16 05:53:13
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > CLIGNOTEMENT D'UN LABEL

CLIGNOTEMENT D'UN LABEL


 Information sur la source

Note :
Aucune note
Catégorie :Trucs & Astuces Classé sous :clignotement, label Niveau :Débutant Date de création :06/01/2002 Date de mise à jour :06/01/2002 14:28:08 Vu / téléchargé :4 719 / 390
Auteur : thebigbang

Ecrire un message privé
Site perso
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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

  • 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 
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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip DEUX CONNEXIONS SIMULTANNÉES AVEC WINSOCK
Source avec Zip RÉDUIRE TOUTES LES FENÊTRES EN MÊME TEMPS
Source avec Zip Source avec une capture JETER UN FICHIER À LA CORBEILLE
Source avec Zip Source avec une capture GIF ANIMÉS DANS UNE FORM [SANS DLL ET OCX]
Source avec Zip Source avec une capture OPÉRATION SUR LES FENÊTRES
Toutes les sources de thebigbang

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna
Toutes les sources de la catégorie Trucs & Astuces

 Sources en rapport avec celle ci

Source .NET (Dotnet) AMUSONS NOUS AVEC UN LABEL ^^ par Adn56
Source avec une capture Source .NET (Dotnet) AFFICHER UN HISTOGRAMME PERSONNALISÉ par tchconst
Source avec Zip Source avec une capture UN CALCULATEUR DE PUISSANCE D'ÉVAPORATEUR par alinedved
Source avec Zip Source avec une capture LABEL UNICODE par medkarim
Source avec Zip Source avec une capture Source .NET (Dotnet) LABEL ORIENTÉ (VERTICAL OU TOUT AUTRE ANGLE) par Iznogood1

Commentaires et avis

Commentaire de Almandric le 07/01/2002 00:15:54

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

Commentaire de thebigbang le 07/01/2002 12:40:49

wai c'est une autres solution !!!

bigbang
bigbang00@caramail.com

Commentaire de shivan le 07/01/2002 12:47:57

et en BEAUCOUP plus simple, sans variable inutile :

Private Sub Timer1_Timer()
    Label1.Visible = Not Label1.Visible
End Sub

Commentaire de SHIVA le 26/01/2002 12:10:57

bien !!!

Commentaire de yoman64 le 08/06/2002 09:47:08

Cest pour les petits newbie

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

mettre un txt dans une textbox ou une label !!! [ par benji ] ben voila tout est resumer dans le titre !!aidez moi !!!! Sauver un label [ par Francois ] SalutComment sauveguarder le contenue d'un label dans un fichier texteil faut que la nouvelle sauveguarde se fasse par dessus la precedenteMerci Comment écrire en diagonal dans un label [ par Cyber117 ] urgent!!!!!Je cherche comment écrire en diagonal ou de haut en bas dans un label. Merci d'avance!!!Cyber Menu sous un LABEL [ par Yuho ] <img Label [ par FX ] Bonjour a tous,voici mon probleme : Je veut faire aparaitre du texte dans une label box , mais le texte est trop long.... ca serai pour savoir coment Comment changer le "Caption" d'un label plusieurs fois avec un "CommandButton" ? [ par Flit ] Voilà je voudrais savoir comment faire pour changer le texte d'un Label plusieurs en cliquant sur un bouton...C'est a dire que par exemple si je cliqu Faire bouger le texte dans un label [ par Jejedev59 ] J aimerai bien fair bouger le texte dans un label mais le code donner dans le site de vbfrance ne va pas qui peut me donner le code? Command & Label [ par jia2812 ] 'Lut les prog'!J' voulais savoir si cé possible de faire ça:1- POur faire des boutons de commande, il suffit de prendre le commandbutton, ça je sais.. Label [ par Jejedev59 ] Salut, J aimerai savoir comment on fait pour quax passage de la souris le texte change de couleur ( le texte pas le fond )et quil joue un son quand on Transférez le texte d'une Label dans une ListBox [ par Viacman ] Je ne sais pas si ça ce fait mais, j'aurais besoin de convertir une label en ListBox.Pour imprimer ou pour mettre du texte dans un fichier txt, ça ce


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo Iguassu Falls is the largest series of waterfalls on the planet, 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,962 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)