Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Two classes implement one interface

public class Test    public Shared Sub Main         Dim rect As New Rectangle()         Dim trap As New Trapezoid()         rect.Draw()         trap.Draw()    End Sub End class Public Interface IShape     Function Draw() As String End Interface Public Class Rectangle     Implements IShape     Public Function Draw() As String Implements IShape.Draw         Return "Drawing Rectangle"     End Function End Class Public Class Trapezoid     Implements IShape     Public Function Draw() As String Implements IShape.Draw         Return "Drawing Trapezoid"     End Function End Class