VB.Net by API/System.Collections/CollectionBase
Inherits CollectionBase
<source lang="vbnet"> Imports System Public Class MainClass
Shared Sub Main() Dim e1 As New Employee("E", 50000) Dim e2 As New Employee("S", 60000) Dim myEmployees As New Employees() myEmployees.Add(e1) myEmployees.Add(e2) Dim aEmployee As Employee For Each aEmployee In myEmployees Console.WriteLine(aEmployee.Name) Next End Sub
End Class
Public Class Employees
Inherits System.Collections.CollectionBase Public Sub Add(ByVal aEmployee As Employee) List.Add(aEmployee) End Sub Public Sub Remove(ByVal index As Integer) If index > Count - 1 Or index < 0 Then Console.WriteLine("Can"t add this item") Else List.RemoveAt(index) End If End Sub Default Public ReadOnly Property Item(ByVal index As Integer) As Employee Get Return CType(List.Item(index), Employee) End Get End Property
End Class
Public Class Employee
Private m_Name As String Private m_Salary As Decimal Public Sub New(ByVal theName As String, ByVal curSalary As Decimal) m_Name = theName m_Salary = curSalary End Sub Public ReadOnly Property Name() As String Get Return m_Name End Get End Property Public ReadOnly Property Salary() As Decimal Get Return MyClass.m_Salary End Get End Property
End Class
</source>