Mega Code Archive

 

Categories / VB.Net Tutorial / Statements

 

For Each with Collection

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 H B E I C D