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
