LETTRE PAR LETTRE
z980x
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
-
24 mai 2003 à 20:08
mailliam Messages postés 261 Date d'inscription mardi 2 juillet 2002 Statut Membre Dernière intervention 10 mars 2014 - 8 juin 2003 à 01:59
mailliam Messages postés 261 Date d'inscription mardi 2 juillet 2002 Statut Membre Dernière intervention 10 mars 2014 - 8 juin 2003 à 01:59
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/7214-lettre-par-lettre
https://codes-sources.commentcamarche.net/source/7214-lettre-par-lettre
8 juin 2003 à 01:59
a$ est la variable a faire apparaitre lettre par lettre ds le label33
Label33.Caption = ""
ii = Label32.Caption
i = Len(a$)
Label33.Caption = Label33.Caption + Left$(a$, ii)
Label32.Caption = Label32.Caption + 1
If Len(Label33.Caption) = Len(a$) Then
Timer3.Enabled = False
Label32.Caption = 1
End If
25 mai 2003 à 22:12
Le titre devrait juste être un peu plus explicite, c'est le seul tout petit mauvais point, mais bon, je vais pas en faire toute une histoire, 8/10.
Continue comme ça,
Saros
25 mai 2003 à 10:28
25 mai 2003 à 10:28
24 mai 2003 à 20:08
Tu t'es gouré sur un truc...
Pour définir l'intervalle du timer (des timers), il ne faut pas mettre
Text2.Text = Effacer.Interval
Mais Effacer.Interval = Text2.Text
Comme ca, l'intervalle du timer est égale au text2.
Alors qu'avant, le texte2 etait egal a l'intervalle, c'est pour cela que l'on voyait toujours 10 et que l'on ne pouvait pas changer...
Bon code, simple et efficace... 8/10