Creating a List of Objects
The List class can be used to create any type including a class. In this article, we will see how to create a list of a class with several properties.
Example:
We have a class named Author that has five pubic properties Name, Age, BookTitle, IsMVP and PublishedDate of type string, short, string, bool, and DateTime respectively.
Public Class Author
Private m_name As String
Private m_age As Short
Private title As String
Private mvp As Boolean
Private pubdate As DateTime
Public Sub New(name As String, age As Short, title As String, mvp As Boolean, pubdate As DateTime)
Me.m_name = name
Me.m_age = age
Me.title = title
Me.mvp = mvp
Me.pubdate = pubdate
End Sub
Public Property Name() As String
Get
Return m_name
End Get
Set(value As String)
m_name = value
End Set
End Property
Public Property Age() As Short
Get
Return m_age
End Get
Set(value As Short)
m_age = value
End Set
End Property
Public Property BookTitle() As String
Get
Return title
End Get
Set(value As String)
title = value
End Set
End Property
Public Property IsMVP() As Boolean
Get
Return mvp
End Get
Set(value As Boolean)
mvp = value
End Set
End Property
Public Property PublishedDate() As DateTime
Get
Return pubdate
End Get
Set(value As DateTime)
pubdate = value
End Set
End Property
End Class
The following code snippet creates a List of Author type.
Dim AuthorList As New List(Of Author)()
The following code snippet creates the Author objects and adds them to the List. And print all the items in list.
Imports System.Text
Imports System.IO
Imports System.Collections.Generic
Module Module1
Sub Main()
Dim AuthorList As New List(Of Author)()
AuthorList.Add(New Author("Mahesh Chand", 35, "A Prorammer's Guide to ADO.NET", True, New DateTime(2003, 7, 10)))
AuthorList.Add(New Author("Neel Beniwal", 18, "Graphics Development with C#", False, New DateTime(2010, 2, 22)))
AuthorList.Add(New Author("Praveen Kumar", 28, "Mastering WCF", True, New DateTime(2012, 1, 1)))
AuthorList.Add(New Author("Mahesh Chand", 35, "Graphics Programming with GDI+", True, New DateTime(2008, 1, 20)))
AuthorList.Add(New Author("Raj Kumar", 30, "Building Creative Systems", False, New DateTime(2011, 6, 3)))
For Each author In AuthorList
Console.WriteLine("Author: {0},{1},{2},{3},{4}", author.Name, author.Age, author.BookTitle, author.IsMVP, author.PublishedDate)
Next
Console.ReadLine()
End Sub
End Module
Output:
