Discussion :

[Glorfindel555]

Bonjour,
je suis en train de développer un logiciel de data mining et je suis bloqué par une boucle reste bloquée :

Code :

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

1
2
3
4
5
6
7
Public Sub checkBoxSpecies(ByVal tabSpecies As String())
        Dim temp = varGlob.splitSpecies(tabSpecies)
        For i = 0 To tabSpecies.Length - 1
            chSpecies.CheckedListBox1.Items.Add(temp(i)(1))
        Next i
'là ça ne s’exécute pas
    End Sub

Tout fonctionne à merveille jusqu'à la fin de la boucle, puis les instructions qui sont après ne s'exécute pas (il n'y a pas de message d'erreur, rien et le programme continue à fonctionner comme si les autres instruction n'avais jamais existées)

Merci d'avance pour vos suggestions

[Pol63]

mets un try catch et un point d'arret dans le catch en plus d'un point d'arret en sortie de boucle

[Sankasssss]

+1 Pol63 et recompile ton projet, j'ai déjà eu des parties de code que je venais de taper qui n'étaient pas prisent en compte quand je lançais directement le debug...

[Glorfindel555]

Je commence à peine à comprendre les try catch^^' Je fait un truc comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub checkBoxSpecies(ByVal tabSpecies As String())
        Try
              Dim temp = varGlob.splitSpecies(tabSpecies)
              For i = 0 To tabSpecies.Length - 1
                      chSpecies.CheckedListBox1.Items.Add(temp(i)(1))
              Next i
        Catch
              End sub
    End Sub

[Pol63]

Code :

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

1
2
3
4
5
try
  ' code
catch ex as exception
  msgbox ex.gettype.fullname & vbcrlf & ex.message & vbcrlf & ex.Stacktrace
end try

[Glorfindel555]

Ok merci^^ ça marche ! J'ai réglé le problème grâce ton code (problème de référence)

Merci^^