Mega Code Archive

 

Categories / VB.Net Tutorial / Collections

 

Iterator with While End

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"))         Dim emp2 As Employee         Dim employee_enumerator2 As IEnumerator         employee_enumerator2 = m_employees.GetEnumerator()         While (employee_enumerator2.MoveNext)             emp2 = CType(employee_enumerator2.Current, Employee)             If emp2.FirstName = "A" Then Continue While             Console.WriteLine(emp2.Title & " " & emp2.FirstName & " " & emp2.LastName)         End While    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