AFFICHR UNE PHRASE LETTRE PAR LETTRE
cs_cheyenne
Messages postés
693
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
17 avril 2017
-
5 nov. 2003 à 00:29
cs_cover Messages postés 11 Date d'inscription lundi 10 mars 2003 Statut Membre Dernière intervention 5 novembre 2003 - 5 nov. 2003 à 15:10
cs_cover Messages postés 11 Date d'inscription lundi 10 mars 2003 Statut Membre Dernière intervention 5 novembre 2003 - 5 nov. 2003 à 15:10
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/17678-affichr-une-phrase-lettre-par-lettre
https://codes-sources.commentcamarche.net/source/17678-affichr-une-phrase-lettre-par-lettre
5 nov. 2003 à 15:10
De plus cette source existe déjà ici :
http://www.vbfrance.com/code.aspx?ID=2686
Avant de mettre une source, un conseil, vérifie bien qu'elle fonctionne correctement et qu'il n'y ait pas de faute dans ce que tu écris.
V'là Bon courage.
5 nov. 2003 à 09:54
5 nov. 2003 à 00:29
Ce code a sûrement été écrit avec le bloc-notes !!!
Si l'on insére les objets (comme suggéré) sans les renommer, le 2ème TextBox se nomme Text2 et non pas Texte2. De plus la propriété de texte d'un TextBox est Text et non pas Txt. Ceci concerne la ligne :
Texte2.Txt = " Afficher une Phrase Lettre par Lettre"
Puis l'on trouve Texte 2.visible= False avec un blanc au lieu de Text2
et lable1.visible = False pour Label1.
Ce code n'a jamais été essayé sous VB
Dommage qu'il n'y ait pas de notes négatives !!!
Voici un autre moyen avec un 1 Label et 1 Timer,
l'utilisation du Tag permet l'économie d'une varaiable
(oui je sais, ce n'est pas très orthodoxe)
---------------------------------------------------------------------
Private Sub Form_Load()
Timer1.Interval 250: Timer1.Tag 1
Label1.Caption = ""
Label1.Tag = "Afficher une Phrase Lettre par Lettre"
End Sub
Private Sub Timer1_Timer()
Timer1.Tag = Timer1.Tag + 1
If Timer1.Tag > Len(Label1.Tag) Then Timer1.Interval = 0: Exit Sub
Label1.Caption = Left(Label1.Tag, Timer1.Tag)
End Sub
---------------------------------------------------------------------
Amicalement quand même.