¿Es posible hacer un Para Each Cada Bucle hacia atrás?

Tendrías Que hacer algo como:

For i as integer = myStringList.Count-1 to 0 step -1
    dim s as string = myStringList.Item(i)
    ' Do your stuff with s
Next i

Pero por lo que sé, no puedes hacer un " Para...Cada uno " hacia atrás, aunque eso sería bueno en algunos casos.

Tristemente, los documentos MSDN de on Para Cada establecen que el For Each construct está allí explícitamente para los casos en los que el orden de la iteración no es importante (conjuntos desordenados y similares). Así que desafortunadamente no hay ningún concepto de invertir a Para Cada Uno, ya que el orden no está definido de todos modos.

¡Buena suerte!

Llame a la System.Linq.Enumerable.Reverse método para obtener un IEnuemrable(Of TSource) en el orden inverso de su fuente enumerable.

For Each s As String In myStringList.Reverse
    //' Do stuff here
Next

Testig en el marco 4, el código

For Each s As String In myStringList.Reverse
    //' Do stuff here
Next

No estaba funcionando, la forma correcta de hacerlo es:

myStringList.Reverse() ' it is a method not a function
For Each s As String In myStringList
//' Do stuff here
Next

Mira: MSDN: Reserve

La razón por la que no se puede hacer es que, como característica básica de diseño, cada uno puede iterar sobre un enumerable sin un último elemento, o con un último elemento aún desconocido.

Lo que tiene que hacer es crear una matriz con su para cada uno que tenía antes, luego use matriz.invertir y ejecutar el para cada uno en la matriz. Hecho

Salud

Dependiendo de lo que sucede dentro de su bucle puede hacer un.InsertAt (object, 0) en lugar de an.Agregue y produzca el mismo resultado que una enumeración inversa.

Puede agregar una función extendida a la clase que está tratando de revertir

<Serializable()> Public Class SomeCollection
    Inherits CollectionBase
    Public Sub New()
    End Sub

    Public Sub Add(ByVal Value As Something)
        Me.List.Add(Value)
    End Sub

    Public Sub Remove(ByVal Value As Something)
        Me.List.Remove(Value)
    End Sub

    Public Function Contains(ByVal Value As Something) As Boolean
        Return Me.List.Contains(Value)
    End Function

    Public Function Item(ByVal Index As Integer) As Something
        Return DirectCast(Me.List.Item(Index), Something)
    End Function

    Public Function Reverse() As SomeCollection
        Dim revList As SomeCollection = New SomeCollection()
        For index As Integer = (Me.List.Count - 1) To 0 Step -1
             revList.List.Add(Me.List.Item(index))
        Next
        Return revList
    End Function
End Class

Entonces lo llamarías así

For Each s As Something In SomeCollection.Reverse

Next

Primero debe crear una lista(de cadena) para cada instrucción, y después hacer otra normal para .. paso -1 ..siguiente declaración. ver un ejemplo:

Dim ff As New List(Of Integer)
For Each rRow As DataRow In DeletedRows
Dim item As Integer
item = rRow.Table.Rows.IndexOf(rRow)
ff.Add(item)
Next
For i As Integer = ff.Count - 1 To 0 Step -1
dim item as integer=ff(i)
next i

Espero que sea útil

La respuesta aceptada explica por qué, pero para agregar otro ejemplo, para una colección con clave (SortedList, SortedDictionary, Dictionary, etc.) usted puede hacer

For Each Id as Tkey in MyCollection.Keys.Reverse
   // The item in question is now available as MyCollection(Id)
Next

' crear una lista de lo que sea y paso a través De Loop Collecting

dim revList as New List (of ToolStripItem)  
For each objItem as ToolStripItem in Menu.DropDownItems
    revList.Add(objItem)
next
revList.reverse ' reverse the order of that list

' paso a través de la lista de orden inverso

for each objItem as ToolStripItem in revList   
    ' do whatever (like removing your menu from an ArrayMenu)
next

' reemplazar ToolStripItem y Menú.DropDownItems con lo que necesites