FLASHLABEL POUR VOS APPLIS

Messages postés
27
Date d'inscription
dimanche 30 décembre 2001
Statut
Membre
Dernière intervention
22 mai 2004
- - Dernière réponse : Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
- 10 nov. 2003 à 15:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/16998-flashlabel-pour-vos-applis

Afficher la suite 
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
Private Sub Timer1_Timer()
Label1.Caption = IIf(Switch, "Process en cours ...", vbNullString)
End Sub

Public Function Switch() As Boolean
Static SwitchVal As Boolean
SwitchVal = Not SwitchVal
Switch = SwitchVal
End Function
sonoboss
Messages postés
178
Date d'inscription
lundi 17 juin 2002
Statut
Membre
Dernière intervention
2 octobre 2007
-
->Golog

Ho que si et c'est même recommendé! Ca consomme bcp moins de CPU vu que la variable Switch é bolléenne...

Sinon Angie, pense a indenter ton source, là c pas génant mais sur de gros projets ca devient vite prise de tête ;-)

Aoui oups j'allais oublier... Sympathique ton source, simple et efficace

<-a->
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
vraiment facile !

En plus, je cite "Bien voila un truc rigolo mais bien marrant"

Quant c'est rigolo, c'est marrant ! alors le "mais" n'a rien à faire
Golog
Messages postés
224
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
22 décembre 2009
-
Sa marche po si on f sa ?

ds le timer

if label1.caption = "Process en Cours" then
label1.caption = ""
else
label1.caption = "Proess en Cours"
end if

enfin sa dépend comment on veu l'utilisé
cs_ace
Messages postés
27
Date d'inscription
dimanche 30 décembre 2001
Statut
Membre
Dernière intervention
22 mai 2004
-
bravo c 'est genial mci bcp