Faire defiler un texte dans un label
Soyez le premier à donner votre avis sur cette source.
Vue 21 283 fois - Téléchargée 2 266 fois
Description
Comment puis-je faire pour faire défiler un texte dans un Label ?
Créez un Formulaire avec un Timer (Timer 1) et un Label (Label1)
Mettez l'intervalle de votre timer à 100 (100 milisecondes) par exemple
Puis mettez ce code dans votre Formulaire :
Créez un Formulaire avec un Timer (Timer 1) et un Label (Label1)
Mettez l'intervalle de votre timer à 100 (100 milisecondes) par exemple
Puis mettez ce code dans votre Formulaire :
Source / Exemple :
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
Codes Sources
A voir également
- Défilé string
- Défilé en string - Meilleures réponses
- Defile de string - Meilleures réponses
- Défilement de texte dans un label ✓ - Forum - Visual Basic 6
- Faire flasher un texte dans un label - Codes sources - Visual Basic / VB.NET (Formulaire)
- Scrolling , defilement de texte - Codes sources - Visual Basic / VB.NET (Texte)
- Faire briller un texte dans un label ou textbox - Codes sources - Visual Basic / VB.NET (Texte)
- Défilement de texte mot a mot - Codes sources - Visual Basic / VB.NET (Texte)
Commentaire
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.