Il suffit d'utiliser le déclenchement d'un timer pour y afficher cycliquement une patie d'un chaine texte.
Option Explicit
Dim N As Integer
Dim Message As String
Private Sub Form_Load()
N = 0
Message = "Il fait beau et les oiseaux chantent."
End Sub
Private Sub Timer1_Timer()
N = N + 1
Label1.Caption = Mid$(Message, N, 10)
If N >= Len(Message) Then N = 0
End Sub
|
-------------------------------
Réponse au message :
-------------------------------
peut ton faire defiler du texte ds un label ou textbox ?
Si oui comment fait on ??
Merci !