Private Sub Timer1_Timer()
Form.Caption = Right(Form.Caption, Len(Form.Caption) - 1) & Left(Form.Caption, 1)
End Sub
Conclusion :
Créer sur la form un Timer et mettre son interval a 200.Double cliquer sur le controle pour
obtemir l'evenement timer() et completer comme dans le source joint
Mettre le titre de la form dans sa propriéte caption, et admirez votre form ....
Loulalay
A voir également
Faire défiler un texte dans la barre de titre d'une form
voila le code : Me.Text = Right(Me.Text, Len(Me.Text) - 1) & Left(Me.Text, 1)
pourait tu ecire le code avec le substring stp
comment ecrit on la commande left et right en vb2005
le code :Form.Caption = Right(Form.Caption, Len(Form.Caption) - 1) & Left(Form.Caption, 1)
voila en vb2005 :Me.Text = Right(Me.Text, Len(Me.Text) - 1) & Left(Me.Text, 1)
le problem est que right et left ne sont pas des commandes reconnues comme dans vb6
ac des timer ... ^^ looool
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.