Texte

cs_Death Angel Messages postés 52 Date d'inscription mercredi 11 juillet 2001 Statut Membre Dernière intervention 3 février 2007 - 26 août 2003 à 00:23
cs_Death Angel Messages postés 52 Date d'inscription mercredi 11 juillet 2001 Statut Membre Dernière intervention 3 février 2007 - 26 août 2003 à 08:59
Bonjour, voilà mon pb

J'ai un TextBox qui contient une chaine de caracteres comme ceci

Text1.Text = "abcdef"

Je voudrai prendre chaque lettre une par une et les mettre par exemple dans une ListBox, comme celà j'aurai chaque lettre l'une en dessous des autres dans la liste.

J'attend votre réponse. Merci

Death Angel

2 réponses

cs_liquide Messages postés 1016 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 24 juin 2008
26 août 2003 à 00:56
liquide
Dim i As Integer

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

le text2.text sert juste a faire les essais, bonne prog
0
cs_Death Angel Messages postés 52 Date d'inscription mercredi 11 juillet 2001 Statut Membre Dernière intervention 3 février 2007
26 août 2003 à 08:59
Je savais que je devais utiliser Mid, mais je savais plus comment. Merci
0
Rejoignez-nous