Generic Class and Interface : Interface « Class « VB.Net

1. VB.Net
2. Class
3. Interface

Generic Class and Interface

Imports System.Collections
Imports System.Collections.Generic

Public Class MainClass

   Public Shared Sub Main()
        Dim aCat As New Talker(Of Cat)(New Cat())
        Dim aDog As New Talker(Of Dog)(New Dog())
        aCat.TalkIt()
        aDog.TalkIt()
   End Sub
End Class

Public Interface ITalker
    Sub Talk()
End Interface

Public Class Talker(Of T As ITalker)
    Dim talkerItem As T

    Public Sub New(ByVal shooterItem As T)
        Me.talkerItem = shooterItem
    End Sub

    Public Sub TalkIt()
        Me.talkerItem.Talk()
    End Sub


End Class


Public Class Dog
    Implements ITalker

    Public Sub Talk() Implements ITalker.Talk
        Console.Out.WriteLine("Dog->Talk")
    End Sub
End Class

Public Class Cat
    Implements ITalker

    Public Sub Talk() Implements ITalker.Talk
        Console.Out.WriteLine("Cat->Talk")
    End Sub
End Class

           
       

Related examples in the same category

1.	One Class implements two Interfaces which have the same name method
2.	Interface inherits interface
3.	Class implements two interfaces
4.	Implements an Interface
5.	Implement an Interface
6.	Define and use Interface Age
7.	Interface Inherits another Interface
8.	Define and use Interface
9.	Implements Two Interfaces