|
Imports System
Imports System.Data
Imports System.Collections
public class MainClass
Shared Sub Main()
Dim c As New Class1()
Dim i2 As MySecondInterface
c.CommonFunction()
i2 = c
i2.CommonFunction()
End Sub
End Class
Interface MyFirstInterface
Sub UniqueFunction()
Sub CommonFunction()
End Interface
Interface MySecondInterface
Sub SecondUniqueFunction()
Sub CommonFunction()
End Interface
Public Class Class1
Implements MyFirstInterface
Implements MySecondInterface
Sub UniqueFunction() Implements MyFirstInterface.UniqueFunction
End Sub
Sub SecondUniqueFunction() Implements MySecondInterface.SecondUniqueFunction
End Sub
Sub CommonFunction() Implements MyFirstInterface.CommonFunction
Console.WriteLine("Common Function on first interface")
End Sub
Sub CommonFunctionSecondInterface() Implements MySecondInterface.CommonFunction
Console.WriteLine("Common function on second interface")
End Sub
End Class
|
