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