Mega Code Archive

 

Categories / VB.Net / Generics

 

Use Generic List to store your own Object

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