Mega Code Archive

 

Categories / VB.Net / Generics

 

Generic Class Demo

Public Class MainClass    Public Shared Sub Main()         Dim talker1 As New GenericTalker(Of Dog)()         talker1.Talker = New Dog()         talker1.sayHello()         Dim talker2 As New GenericTalker(Of Cat)()         talker2.Talker = New Cat()         talker2.sayHello()    End Sub End Class Public Class GenericTalker(Of T)     Public Talker As T     Public Sub SayHello()         Dim helloWorld As String         helloWorld = Talker.ToString()         Console.WriteLine(helloWorld)     End Sub End Class Public Class Dog     Public Overrides Function ToString() As String         Return "Dog!"     End Function End Class Public Class Cat     Public Overrides Function ToString() As String         Return "Cat"     End Function End Class Public Class Mouse     Public Overrides Function ToString() As String         Return "Mouse"     End Function End Class Public Class Person     Public Overrides Function ToString() As String         Return "Person"     End Function End Class