Lettre par lettre

Soyez le premier à donner votre avis sur cette source.

Vue 3 241 fois - Téléchargée 232 fois

Description

Bonne c pas très innovent et je débute mai bon...
Ce prog fais apparaitre un e phrase ou un mots lettre par lettre te le fait disparaitre....
C tous!!!!!!!!!!!!

Source / Exemple :


Dim Letter As Integer

Private Sub Command1_Click()
    Text3.Text = ""
    Letter = 1
    Ecrire.Interval = Text2.Text
    Ecrire.Enabled = True
End Sub

Private Sub Ecrire_Timer()
Text3.Text = Text3.Text + Mid(Text1.Text, Letter, 1)
Letter = Letter + 1
If Text3.Text = Text1.Text Then
    Ecrire.Enabled = False
End If
End Sub

Private Sub Command2_Click()
    If Text3.Text <> "" Then
       Effacer.Interval = Text2.Text
        Effacer.Enabled = True
    End If
End Sub

Private Sub Effacer_Timer()
Letter = Len(Text3.Text) - 1
Text3.Text = Mid(Text3.Text, 1, Letter)
If Text3.Text = "" Then
    Effacer.Enabled = False
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
261
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
10 mars 2014
2
coucou tout le monde, c'est pas mal mais j'ai l'impression que vous vs compliquer un peu, j'avais fait la meme chose ds un de mes prog, moi je l'ai fait comme ca..
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
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

Ca va code simple et clair, rapide et efficace...
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
Messages postés
234
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008

Ouai je sais je me suis planter quand j'ai recopier ma source mais dans le Zip l'erreur est modifiée...
Messages postés
234
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008

Ouai je sais je me suis planter quand j'ai recopier ma source mais dans le Zip l'erreur est modifiée...
Messages postés
898
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
Euh, je dis juste un truc...

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.