Loop through Collection : Collection « Data Structure « VB.Net

Loop through Collection

Loop through Collection
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)

        ' 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


Related examples in the same category

1.Database Connection state change eventDatabase Connection state change event
2.Store Objects in Collection and retrieveStore Objects in Collection and retrieve
3.For Each loop through a CollectionFor Each loop through a Collection
4.Do While loop through a CollectionDo While loop through a Collection
5.Store Class in a Collection and Retrieve by NameStore Class in a Collection and Retrieve by Name
6.Add string element to String Collection
7.Search item with IndexOf and Contains
8.Insert element at index
9.Assign value by index
10.Remove element and clear the collection