affichage de données dans textbox

Bonjour j'ai une fonction qui me permet d'afficher les données que je recois, dans un textbox mais seulement je n'affiche que la premiere données et je ne compren pas pourquoi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

sub miseEnForme(ByVal data as string)   Dim Tab() as String = Split(data,SEP) Dim i as Integer   For each Element in Tab() TextBoxEtat.Text = TextBoxEtat.Text + "-->" + Tab(i) i = i + 1 Next   End Sub

---

Est-ce que la taille de ta textbox ne serait pas trop petite, et donc masquerait les autres données ?

Egalement as-tu vérifié que Tab() contenait bien toutes les données que tu veux afficher, et Tab() a-t-elle une dimension fixée, et ta quantité de données est-elle aussi fixée ?

je te conseil de lire un cours comme celui ci : http://plasserre.developpez.com/cours/vb-net/

avec un for each ca ne sert à rien d'indexer avec un integer
de plus pour voir pourquoi ca ne fait pas ce que tu veux il suffit de mettre un point d'arret
et pour concaténer en vb c'est & et pas +

Code:

---

1 2 3

For each Element in Tab() TextBoxEtat.Text = TextBoxEtat.Text + "-->" + Element 'ou Tab(Element) je ne suis plus très sûr :-( Next

---

j'ai bien essayer cette solution mais sa ne marche pas non plus

Met un point d'arrêt après ton split et regarde ce que contient ta table.

Normalement Element devrait fonctionner, donc le problème vient surement de ta table.

http://plasserre.developpez.com/cour...age-vb5#LV-Q-6

Citation:

---

et pour concaténer en vb c'est & et pas +

---

:ccool:

le + marche aussi...
Dans ma fonction de récéption je recoi bien les 21 données mais dans Tab il ny en a kune

Donc le problème vient de là :

Et je dirais même que le problème doit être ton séparateur, car ta fonction split est bien écrite :

Code:

---

Dim Tab() as String = Split(data,SEP)

---

j'ai trouvé la réponse.Cétait tou bete.
Dans ma fonction de récéption je fais sa:

Code:

---

1 2 3 4 5 6 7

If Etat = ATTENTE or Etat = CONNECTE then MiseEnforme(returnedata) Else If Etat = AUTHENTIFIE then MiseEnForme2(retrurndata) end if end if

---

je nevais pas mis le Else du coups quand j'étais en état AUTHENTIFIE il ne rentré pas dans la boucle

merci

Encore un petit probleme.Je ne comprends pourquoi mais sa m'afficher les données en double.Voila le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub miseEnForme(ByVal data as string)   Dim Tab() as String = Split(data,SEP)   ' DicoAffM est un module qui contient des dictionnaires et DicEssais en est un For each kvp AS keyValuePair (Of String , String) in DicoAffM.DicEssais TextBoxEtat.Text = TextBoxEtat.Text + "-->" + kvp.Value + Tab(i) Next   End Sub

---

Tu mets :

Code:

---

TextBoxEtat.Text = TextBoxEtat.Text + "-->" + kvp.Value + Tab(i)

---

Mais je ne vois pas i prendre une valeur ...

Donc initialement il vaut 0, et il reste à 0, vu que tu n'itères pas sur "i".