Faire coulisser le titre d'une form

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 310 fois - Téléchargée 28 fois

Contenu du snippet

Ce code permet de faire coulliser de la droite vers le gauche le titre de la form

Source / Exemple :


Dim i As Integer
Dim f As String

Private Sub Form_Load()
i = 0
f = Form1.Caption
End Sub

Private Sub Timer1_Timer()
Form1.Caption = " " & Form1.Caption
i = i + 1
If i > Form1.Width / 73 Then ' 73 est environ le bon nombre pour que le titre revienne au début
i = 0
Form1.Caption = f
End If
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
15
Date d'inscription
jeudi 12 mai 2005
Statut
Membre
Dernière intervention
6 mai 2006

pas mal j'aime bien c'est drole, inutile mais a peutoujour enbélire les titre qui sont toujour moche.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
63
Les pointillés viennent de la technique utilisée pour tester le bout de la fenetre....

il faudrai en fait recuperer la taille reele du titre.... (appels API)
Messages postés
178
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
25 septembre 2008

C'est marrant mais ...
...Est-ce-que quelqu'un aurait la solution miracle pour éviter de voir des pointillés quand le titre arrive au bout de la form ??

Xav
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
63
ton code pourrait tout simplement être :

Private Sub Timer1_Timer()
Static i As Integer

Me.Caption = " " & Me.Caption

i = i + 1
If i > Me.Width \ 73 Then
i = 0
Me.Caption = LTrim$(Me.Caption)
End If
End Sub
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004

whizzup, a ton avis "timer" çà signifie quoi ?
non non on se fait pas chier juste pour mettre un espace devant une phrase, ici c'est bien ce qui s'appelle une A-NI-MA-TION :D
Afficher les 7 commentaires

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.