VB.Net Tutorial/Statements/For Each

For Each with Collection

<source lang="vbnet">Imports System.Collections

public class Test

  public Shared Sub Main
       Dim m_employees As New Collection
       m_employees.Add(New employee("A", "F", "F"))
       m_employees.Add(New employee("B", "E", "H"))
       m_employees.Add(New employee("C", "D", "I"))

       For Each emp1 As employee In m_employees
           If emp1.FirstName = "A" Then Continue For
           Console.WriteLine(emp1.Title & " " & emp1.FirstName & " " & emp1.LastName)
       Next emp1
  End Sub

End class

Public Class Employee

   Public FirstName As String
   Public LastName As String
   Public Title As String
   Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal new_title As String)
       FirstName = first_name
       LastName = last_name
       Title = new_title
   End Sub

End Class</source>

H B E
I C D

Use For Each to loop through Array

<source lang="vbnet">Option Strict On

Imports System
Public Class Employee
    Private empID As Integer
    Public Sub New(ByVal empID As Integer)
        Me.empID = empID
    End Sub 
    Public Overrides Function ToString( ) As String
        Return empID.ToString( )
    End Function 
End Class 


Class Tester
    Shared Sub Main( )
   
        Dim intArray( ) As Integer
        Dim empArray( ) As Employee
        intArray = New Integer(5) {}
        empArray = New Employee(3) {}
   
        Dim i As Integer
        For i = 0 To empArray.Length - 1
            empArray(i) = New Employee(i + 5)
        Next i
   
        Console.WriteLine("The Integer array...")
        Dim intValue As Integer
        For Each intValue In intArray
            Console.WriteLine(intValue.ToString( ))
        Next
   
        Console.WriteLine("The employee array...")
        Dim e As Employee
        For Each e In empArray
            Console.WriteLine(e)
        Next
    End Sub "Run
End Class</source>

The Integer array...
0
0
0
0
0
0
The employee array...
5
6
7
8