Mega Code Archive

 

Categories / VB.Net / Language Basics

 

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