Flashlabel pour vos applis

Soyez le premier à donner votre avis sur cette source.

Vue 3 773 fois - Téléchargée 316 fois

Description

Coucou!!
Bien voila un truc rigolo mais bien marrant
il s'agit de faire clignoter un label pour
avertir par exemple d'un travail en cours
pour vos developpements ViBi.
Ici on notera donc :
un message d'attention suivi d'un message
d'attente.

Source / Exemple :


Public SwitchVal As Boolean

Private Sub Form_Load()
'rien ne se passe ici c le timer qui s'autoexecute
'on aurait pu le mettre à false etc si besoin ici
End Sub

'on charge le timer ici l'interval est de 1000
Private Sub Timer1_Timer()
'on vire le premier texte
If ChangeDeTexte(SwitchVal) = True Then
Label1.Caption = "Process en cours ..."
Else
Label1.Caption = ""
End If
End Sub
Public Function ChangeDeTexte(Switch As Boolean) As Boolean
'et hop une tite boucle
Select Case Switch
Case True
ChangeDeTexte = True
SwitchVal = False
Case False
ChangeDeTexte = False
SwitchVal = True
End Select
End Function

'voilà amuser vous bien bisou Angie

Conclusion :


Reste plus qu'a remettre le timer à false quand vous le devez.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
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
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->
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
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é
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

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.