Lire caractère par caractère dans un TextBox

CaBoTyNe - 15 nov. 2001 à 04:06
 Loïc - 18 nov. 2001 à 14:08
J'aimerais savoir comme faire pour lire les caractères, un par un, dans un TextBox.

Aidez-MOI!!

Merci!

3 réponses

Dim i As Integer

For i = 1 To Len(Text1.Text)
MsgBox Mid(Text1.Text, i, 1)
Next

Voilà !
0
Ton code marche pas Loïc...
Tu as simplement inversé le 1 et le i dans ta commande Mid.
Voilà le bon code:
(Je dois avouer ke j'adore le résultat ;)

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
MsgBox Mid(Text1.Text, 1, i)
Next i
End Sub
0
Ca dépend ce que tu appelles lire caractère par caractère. Moi j'ai compris le pb comme j'ai fait mon code, c'est à dire que tu lis caractère par caractère sans conserver les précédent. Simple question d'interprétation :)
0
Rejoignez-nous