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

 

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