FAIRE COULISSER LE TITRE D'UNE FORM

Signaler
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004
-
Messages postés
15
Date d'inscription
jeudi 12 mai 2005
Statut
Membre
Dernière intervention
6 mai 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/23635-faire-coulisser-le-titre-d-une-form

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
69
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
69
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
Afficher les 7 commentaires