VB.Net by API/System.Collections/IEnumerator
IEnumerator.Current
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim m_employees As New Collection m_employees.Add(New employee("A", "B", "Author")) m_employees.Add(New employee("C", "D", "Band")) m_employees.Add(New employee("E", "F", "Artist")) " Iterator. Dim emp As employee Dim employee_enumerator As IEnumerator employee_enumerator = m_employees.GetEnumerator() Do While (employee_enumerator.MoveNext) emp = CType(employee_enumerator.Current, Employee) Console.WriteLine(emp.Title & " " & emp.FirstName & " " & emp.LastName) Loop
" For Each. For Each emp1 As employee In m_employees 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>
IEnumerator.MoveNext
<source lang="vbnet">
Imports System Imports System.Collections Public Class MainClass
Shared Sub Main(ByVal args As String()) Dim m_employees As New Collection m_employees.Add(New employee("A", "B", "Author")) m_employees.Add(New employee("C", "D", "Band")) m_employees.Add(New employee("E", "F", "Artist")) " Iterator. Dim emp As employee Dim employee_enumerator As IEnumerator employee_enumerator = m_employees.GetEnumerator() Do While (employee_enumerator.MoveNext) emp = CType(employee_enumerator.Current, Employee) Console.WriteLine(emp.Title & " " & emp.FirstName & " " & emp.LastName) Loop
" For Each. For Each emp1 As employee In m_employees 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>