Discussion :

[scarfunk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[methylene]

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

[methylene]

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 ?

[Pol63]

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 +

[methylene]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scarfunk]

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

[methylene]

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

[methylene]

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

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

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

[scarfunk]

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

[methylene]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scarfunk]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scarfunk]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[methylene]

Tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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".