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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!