Défilement dans un label
Description
C'est juste une petit connerie .. si ca interesse quelqu'un
J'ai pas regardé si ca existait déjà ... alors dans ce cas pas la peine de geuler
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
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.