FAIRE COULISSER LE TITRE D'UNE FORM

matrey Messages postés 399 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 6 septembre 2004 - 12 juin 2004 à 13:33
ramsikechamps Messages postés 15 Date d'inscription jeudi 12 mai 2005 Statut Membre Dernière intervention 6 mai 2006 - 12 août 2005 à 11:53
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

ramsikechamps Messages postés 15 Date d'inscription jeudi 12 mai 2005 Statut Membre Dernière intervention 6 mai 2006
12 août 2005 à 11:53
pas mal j'aime bien c'est drole, inutile mais a peutoujour enbélire les titre qui sont toujour moche.
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
13 juin 2004 à 19:17
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)
Xav88 Messages postés 178 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 25 septembre 2008
13 juin 2004 à 15:37
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
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
13 juin 2004 à 11:52
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
matrey Messages postés 399 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 6 septembre 2004
12 juin 2004 à 20:06
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
whizzup Messages postés 1 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 12 juin 2004
12 juin 2004 à 19:18
Autant mettre que le command1 :

Private Sub Command1_Click()
Form1.Caption= " " & Form1.Caption
End Sub
matrey Messages postés 399 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 6 septembre 2004
12 juin 2004 à 13:33
c tout bête mais çà peut tjs servir !
Rejoignez-nous