Imports System
Imports System.Collections
Imports System.Collections.Generic
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim student_list As New StudentList
student_list.Add(New Student("A", "B"))
student_list.Add("C", "D")
End Sub
End Class
Public Class Student
Private m_FirstName As String
Private m_LastName As String
Public Sub New(ByVal first_name As String, ByVal last_name As String)
m_FirstName = first_name
m_LastName = last_name
End Sub
Public Overrides Function ToString() As String
Return m_FirstName & " " & m_LastName
End Function
End Class
Public Class StudentList
Inherits List(Of Student)
Public Overloads Sub Add(ByVal first_name As String, ByVal last_name As String)
Dim student As New Student(first_name, last_name)
MyBase.Add(student)
End Sub
End Class
|