Imports System
Imports System.Collections.Generic
Imports System.Text
Namespace GenericsSample
Class Person
Private _Age As Integer
Public Property Age() As Integer
Get
Return _Age
End Get
Set(ByVal value As Integer)
_Age = value
End Set
End Property
Private _Name As [String]
Public Property Name() As [String]
Get
Return _Name
End Get
Set(ByVal value As [String])
_Name = value
End Set
End Property
Private _Address As [String]
Public Property Address() As [String]
Get
Return _Address
End Get
Set(ByVal value As [String])
_Address = value
End Set
End Property
Private _Company As [String]
Public Property Company() As [String]
Get
Return _Company
End Get
Set(ByVal value As [String])
_Company = value
End Set
End Property
Public Sub New()
End Sub 'New
Public Sub New(ByVal Name As [String])
Me.Name = Name
Me.Age = 0
Me.Address = [String].Empty
Me.Company = [String].Empty
End Sub 'New
Public Sub New(ByVal Name As [String], ByVal Age As Integer, ByVal Address As [String])
Me.Name = Name
Me.Age = Age
Me.Address = Address
End Sub 'New
End Class 'Person
Class Program
Overloads Shared Sub Main(ByVal args() As String)
'Generic List Creation
'List is a Generic Class provided by .Net Framework 2.0
'System.Collections.Generics is the Namespace.
List<Person> myPerson = new List<Person>();
myPerson.Add(New Person("Saurabh"))
myPerson.Add(New Person("Manu"))
myPerson.Add(New Person("SomeOne", 24, "Gurgaon"))
myPerson.Add(New Person("SomeoneElse", 24, "Gurgaon"))
'myPerson.Add(new Car());
' This is A Compile Time Error
Dim p As Person
For Each p In myPerson
Console.WriteLine(p.Name)
Console.WriteLine(p.Age)
Console.WriteLine(p.Address)
Console.WriteLine(p.Company)
Next p
Console.ReadLine()
End Sub 'Main
End Class 'Program
End Namespace 'GenericsSample