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