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
|