VB.net接口Interface与继承Inherits(转载)

PublicInterface IDrawable

Sub Draw()
End Interface

PublicInterface IPrintable
Inherits IDrawable '继承IDrawable
SubPrint()
End Interface

PublicInterface IRenderToMemory
Inherits IPrintable '继承IPrintable
Sub Render()
End Interface

Public Class SuperShape
Implements IRenderToMemory '实现IRenderToMemory接口
Public Sub Draw() Implements IDrawable.Draw '实现Draw 方法，来源于IDrawable
Console.WriteLine("Drawing...")
End Sub

Public SubPrint() Implements IPrintable.Print '实现Print 方法，来源于'IPrintable
Console.WriteLine("Printing...")
End Sub

Public SubRender() Implements IRenderToMemory.Render '实现Render 方法，来源于'IRenderToMemory
Console.WriteLine("Rendering...")
End Sub
End Class

' This example illustrates building heirarchies
' of interfaces.

ModuleProgram
Sub Main()
Console.WriteLine("***** The SuperShape*****")

' Call fromobject level.
Dim myShape As New SuperShape
myShape.Draw()

' GetIPrintable explicitly.
' (and IDrawable implicitly!)
Dim iPrint As IPrintable
iPrint = CType(myShape,IPrintable) '强制转换成IPrintable
iPrint.Draw() '隐式转换成IDrawable，调用Draw()方法
iPrint.Print()'调用Pring()方法
Console.ReadLine()

End Sub End Module