besoin d'aide boucle for

Question

Bonjour,

Je solicite votre aide a propos de ce bout de code qui me pose problème depuis un bon moment:

Private

Sub sock_DataArrival(
ByVal bytesTotal 
As
Integer) 
Handles sock.DataArrival
         
Dim data 
As
String = 
""
         sock.GetData(data)

        
Dim split1 = data.split(Chr(13))

         For i 
As
Integer = 0 
To split1.length

                 Dim split2 = split1(i).split(
":")                  output.Text += split2(0) & 

"---" & split2(1) & Chr(13)

         Nextoutput.Text += 

"test" & Chr(13)

End
Sub

Ce code fonctionne parfaitement . Cependant aprés ma boucle for  donc apres le Next , impossible d'executer quoi que ce soit donc :  output.Text += "test" & Chr(13)

ne fonctionne pas.

jrivet · Answer

Salut, Quand tu dis "ne fonctionne pas" qu'est ce que cela veut dire exactement?

As tu une erreur?
Ou bien est ce que cela ne fait simplement pas ce que tu souhaite?

@+: Ju£i€n Pensez: Réponse acceptée

cs_frenche · Answer

Ca ne fait pas d'erreur cependant la commande :

output.Text += "test" & Chr(13)

N'est pas executer puisqu'elle se trouve apres la boucle

jrivet · Answer

Re,
si tu te places sur cette ligne et que tu met un point d'arret (F9), rien ne se passe en exécution???

@+: Ju£i€n
Pensez: Réponse acceptée

cs_frenche · Answer

Non rien ne se passe j'ai réussi a passer le problème en rajoutant :

            If pa >= lg - 3 Then
                Exit For
            End If

a la fin de ma boucle certe c'est pas terrible mé sa marche

Comme si ma boucle ne s'arretez pas

Besoin d'aide boucle for

4 réponses

Votre réponse

Discussions similaires