envoyer un text lettre par lettre

Question

voila, mon probleme est simple a comprendre, je veux que quand on appui sur un bouton, on est la 1ere lettre d'un textbox ki s'affiche dans un label, et ainsi de suite ,quand on reclick, ca met la 2eme, lettre, etc...
c'est assez urgent, merci de m'aider, @+++

NitRic · Answer

' Section Général
Dim Position As Long

'*********************************************************

Private Sub Form_Load()

Position = 1

End Sub

'*********************************************************

Private Sub cmdAfficheLettre_Click()

If Len(Text1.Text) <= 0 Then Exit Sub
' Pas de texte alors on quitte
Label1.Caption = Label1.Caption & Mid$(Text1.Text, Position, 1)

' Tu pourrais aussi faire:
'
' Label1.Caption = Mid$(Text1.Text, 1, Position)
'
' T'as qu'à essayer les 2 :)

Position = Position + 1

If Position > Len(Text1.Text) Then

' Plus rien à afficher :(
cmdAfficheLettre.Enabled = False
Position = 1

End If

End Sub

[mailto:NitRic28@Hotmail.com NitRic]

lebsnake · Answer

J'te remerci bqp, @++

Envoyer un text lettre par lettre

2 réponses

Discussions similaires