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
|