Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

One class implements two interfaces 1

Public Class Tester     Public Shared Sub Main         Dim objJohn As New John         objJohn.SetName("John")         objJohn.SetAction("is painting")         Console.WriteLine(objJohn.GetName() & " " & objJohn.GetAction())     End Sub End Class Public Interface Person     Sub SetName(ByVal Name As String)     Function GetName() As String End Interface Public Interface Painter     Sub SetAction(ByVal Name As String)     Function GetAction() As String End Interface Public Class John     Implements Person, Painter     Dim InternalName, InternalAction As String     Sub SetName(ByVal Name As String) Implements Person.SetName         InternalName = Name     End Sub     Function GetName() As String Implements Person.GetName         Return InternalName     End Function     Sub SetAction(ByVal Name As String) Implements Painter.SetAction         InternalAction = Name     End Sub     Function GetAction() As String Implements Painter.GetAction         Return InternalAction     End Function End Class John is painting