GENERER
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
-
10 févr. 2006 à 09:23
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010 - 14 févr. 2006 à 18:50
Saros Messages postés 921 Date d'inscription vendredi 20 décembre 2002 Statut Membre Dernière intervention 23 septembre 2010 - 14 févr. 2006 à 18:50
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/35969-generer
https://codes-sources.commentcamarche.net/source/35969-generer
14 févr. 2006 à 18:50
Puis pour être un peu plus clair :
Text1.Text = vbNullString
:)
11 févr. 2006 à 23:59
10 févr. 2006 à 10:11
Tu peux aussi remplacer
If te = True Then
par
if te then
10 févr. 2006 à 09:23
> ou les caractères que vous vouler, en plus vous pouver changer la vitesse,
> el le font de ces caractère.
Avec un tel descriptif de source, je n'ai pas la moindre idée de ce que peut faire ton code.
En plus, en regardant rapidement la source ... pas de lignes de commentaires.
-----------------------------------------
Dans le code ci-dessous, pas la peine de mettre le même code dans le Then et dans le Else d'un meme If, tu peux remplacer :
If te = True Then
lbl(x) = Mid(Text1, x + 1, 1)
If x 28 Then b False: Timer1 = False: Exit Sub
x = x + 1
Else
If x 28 Then b False: Timer1 = False: Exit Sub
x = x + 1
End If
par :
If te True Then lbl(x) Mid(Text1, x + 1, 1)
If x 28 Then b False: Timer1 = False: Exit Sub
x = x + 1
-----------------------------------------
Je n'avais jamais rencontré "Text1 = Empty".
Comme quoi, on peut en apprendre tous les jours, même après 5 ans de VB. :o)
Pour rester cohérent avec la façon d'appeler la propriété d'un objet, un p'tit
Text1.Text ="" serait de rigueur.
-----------------------------------------
Avec la génération dynamique de contrôles, tu n'aurais pas été obligé de copier-coller 29 Labels sur ta feuille. Tu aurais pu en créer, disons, facilement un millier, et ton code n'aurait pas été limité à 29 manipulations de lettres.
-----------------------------------------
Je n'ai pas pu tester ton code parce que je n'ai pas VB sur ce PC, mais à vue de nez, je dirai qu'il affiche dans des labels, de manière progressive (style tapage à la machine) un mot écrit dans une Textbox.
Avec options de variation de vitesse.