VB.NET - Comment passer à l'élément suivant dans une boucle For Each ?

Question

Y a-t-il une déclaration comme Exit For sauf qu'au lieu de sortir de la boucle, il passe simplement à l'élément suivant.

Par exemple :

For Each I As Item In Items

    If I = x Then 
        ' Move to next item
    End If

    ' Do something

Next

Je sais que je pourrais simplement ajouter un Else à la déclaration "Si" pour qu'elle se lise comme suit :

For Each I As Item In Items

    If I = x Then 
        ' Move to next item
    Else
        ' Do something
    End If

Next

Je me demandais juste s'il y avait un moyen de passer à l'élément suivant dans la liste d'éléments de la base de données. Items la liste. Je suis sûr que la plupart des gens se demanderont, à juste titre, pourquoi ne pas simplement utiliser l'option Else mais pour moi, envelopper le code "Do Something" me semble moins lisible. Surtout quand il y a beaucoup plus de code.

Answer 1

For Each I As Item In Items
    If I = x Then Continue For

    ' Do something
Next

Answer 2

J'utiliserais le Continue à la place :

For Each I As Item In Items

    If I = x Then
        Continue For
    End If

    ' Do something

Next

Notez que c'est légèrement différent du déplacement de l'itérateur lui-même - tout ce qui se trouve avant la balise If sera à nouveau exécuté. En général, c'est ce que vous voulez, mais sinon vous devrez utiliser GetEnumerator() et ensuite MoveNext() / Current explicitement plutôt que d'utiliser un For Each boucle.

Answer 3

Qu'en est-il :

If Not I = x Then

  ' Do something '

End If

' Move to next item '

Answer 4

Je tiens à préciser que le code suivant n'est pas une bonne pratique. Vous pouvez utiliser l'étiquette GOTO :

For Each I As Item In Items

    If I = x Then
       'Move to next item
        GOTO Label1
    End If

    ' Do something
    Label1:
Next

Answer 5

Quand j'ai essayé Continue For it Failed, I got a compiler error. En faisant cela, j'ai découvert 'Resume' :

For Each I As Item In Items

    If I = x Then
       'Move to next item
       Resume Next
    End If

    'Do something

Next

Remarque : j'utilise ici le VBA.