Banniére pour label

Commenter

Contenu du snippet

il suffit de placer le Label toute à fais à droite.
L'invocation de la fonction Banner(NomDuLabel,Vitesse)
se fais dans la fonction Timer1_Timer()de l'objet Timer.
Donnée à sa propiété Interval=1 de l'objet Timer

Source / Exemple : 


Dim ValLeft, ValRight, GetVal As Integer
Public Function Banner(Lab As Label, Vitess As Integer)
Dim test As Boolean
test = False
ValLeft = ValLeft + 1
If Lab.Left <= 0 Or ValLeft = 0 Then
test = True
Lab.Left = Lab.Left + Vitess
ValLeft = -1: ValRight = ValRight + 1
Else
GetVal = ValLeft + 1: Lab.Left = Lab.Left - Vitess
End If
If ValRight = GetVal And test = True Then
ValLeft = 0: ValRight = 0
End If
End Function

Conclusion :


Se module permet de defilé un Label comme les banniéres...

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.