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()