Défilement dans un label

Soyez le premier à donner votre avis sur cette source.

Vue 3 807 fois - Téléchargée 247 fois

Description

C'est juste une petit connerie .. si ca interesse quelqu'un

Source / Exemple :


Public stream, intdir

Private Sub Form_Load()
stream = "Quand la musique est bonne sonne sonne"
intdir = 1
End Sub

Private Sub Timer1_Timer()
'Mettez çà dans un Timer avec un interval de 250
'Stream est la string
'26 correspond a la longueur du texte afficher dans le label
'intDir = est la direction

If Right(Labelinfo.Caption, 26) = Right(stream, 26) Then
        intdir = 0
ElseIf Right(Labelinfo.Caption, 26) = Mid(stream, 1, 26) Then
        intdir = 1
End If

If intdir = 0 Then
        Labelinfo.Caption = Mid(stream, (InStr(1, stream, Labelinfo.Caption) - 1), 26)
Else
        Labelinfo.Caption = Mid(stream, (InStr(1, stream, Labelinfo.Caption) + 1), 26)
End If
End Sub

Conclusion :


J'ai pas regardé si ca existait déjà ... alors dans ce cas pas la peine de geuler

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

TheSaib
Messages postés
2368
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
14
Je t'ai rajouté un Zip

++
BlueKnight
Messages postés
7
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
31 janvier 2004

Chez moi, ça ne marche po, il me met: "Argument ou appel de procédure incorrect". Je ne comprends pas pourkoi (je suis débutant...) Quelqu'un peut m'aider ??

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.