Exit a For Each loop : For Each « Language Basics « VB.Net

1. VB.Net
2. Language Basics
3. For Each

Exit a For Each loop

Imports System
Imports System.Collections

Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim employees As New Collection
        employees.Add(New Employee("A"))
        employees.Add(New Manager("B"))
        employees.Add(New Employee("C"))

        Dim a_manager As Manager = Nothing

        For Each emp2 As Employee In employees
            If TypeOf emp2 Is Manager Then
                a_manager = CType(emp2, Manager)
                Exit For
            End If
        Next emp2
        Console.WriteLine("Manager: " & a_manager.Name)

    End Sub

End Class



Public Class Employee
    Public Name As String

    Public Sub New(ByVal new_name As String)
        Name = new_name
    End Sub

    Public Overridable Function IsManager() As Boolean
        Return False
    End Function
End Class
Public Class Customer
    Public Name As String

    Public Sub New(ByVal new_name As String)
        Name = new_name
    End Sub
End Class
Public Class Manager
    Inherits Employee

    Public Sub New(ByVal new_name As String)
        MyBase.new(new_name)
    End Sub
    Public Overrides Function IsManager() As Boolean
        Return True
    End Function
End Class
           
       

Related examples in the same category

1.	Use For Each to Loop an Array
2.	Loop through an Array