0/5 (1 avis)
Vue 23 148 fois - Téléchargée 2 393 fois
Private Sub Timer1_Timer() Static Position As Long Static Initialise As Boolean Dim LeTexte As String Dim LeTexteApres As String LeTexte = "Je Défile dans un Label !" If Initialise = False Then Initialise = True Position = Len(LeTexte) End If Position = Position + 1 If Position >= 0 Then LeTexteApres = Space(Position) & LeTexte Else LeTexteApres = Mid(LeTexte, Abs(Position)) If Position < -Len(LeTexte) Then Position = Len(LeTexte) End If End If Label1 = LeTexteApres End Sub
12 févr. 2006 à 17:02
En plus court (un label, un timer - interval 200)
Private Sub Form_Load()
Label1.Caption = " Défilement... Hop! "
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) & Mid(Label1.Caption, 1, 1)
End Sub
Défilement parfait pour un texte court (par rapport à la taille du label), mais pour un long texte, on y voit une p'tite coupure.
[Mais ça défile quand même]
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.