VB.NET - Como passar para o próximo item a For Each Loop?

Existe uma instrução semelhante Exit For, exceto que em vez de sair do loop, ela apenas se move para o próximo item.

Por exemplo:

For Each I As Item In Items

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

    ' Do something

Next

Eu sei que poderia simplesmente adicionar um Elseà instrução If para que fosse lido da seguinte forma:

For Each I As Item In Items

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

Next

Gostaria de saber se há uma maneira de pular para o próximo item da Itemslista. Tenho certeza de que a maioria estará perguntando por que não apenas usar a Elseinstrução, mas, para mim, embrulhar o código "Do Something" parece ser menos legível. Especialmente quando há muito mais código.

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

    ' Do something
Next

Eu usaria a Continuedeclaração em vez disso:

For Each I As Item In Items

    If I = x Then
        Continue For
    End If

    ' Do something

Next

Observe que isso é ligeiramente diferente de mover o próprio iterador - qualquer coisa antes de Ifserá executado novamente. Normalmente é isso que você deseja, mas se não, você terá que usar GetEnumerator()e então MoveNext()/ Currentexplicitamente ao invés de usar um For Eachloop.

A respeito:

If Not I = x Then

  ' Do something '

End If

' Move to next item '

Quero deixar claro que o código a seguir não é uma boa prática. Você pode usar o rótulo GOTO:

For Each I As Item In Items

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

    ' Do something
    Label1:
Next

Quando tentei Continue Forcom falha, recebi um erro do compilador. Enquanto fazia isso, descobri 'Resume':

For Each I As Item In Items

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

    'Do something

Next

Observação: estou usando o VBA aqui.

Apenas o "Continue For" é um padrão aceitável (o resto leva ao "código spaghetti").

Pelo menos com "continue for" o programador sabe que o código vai diretamente para o topo do loop.

Para os puristas, porém, algo assim é melhor, pois é um código puro "não espaguete".

Dim bKeepGoing as Boolean 
For Each I As Item In Items
  bKeepGoing = True
  If I = x Then
    bKeepGoing = False
  End If
  if bKeepGoing then
    ' Do something
  endif
Next

Para facilitar a codificação, porém, "Continue For" está OK. (É uma boa ideia comentar isso).

Usando "Continuar para"

For Each I As Item In Items
  If I = x Then
    Continue For   'skip back directly to top of loop
  End If
  ' Do something
Next