VB.NET中怎么利用接口实现多态

VB.NET中怎么利用接口实现多态，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

成都创新互联公司是一家专注于做网站、成都网站建设与策划设计,临江网站建设哪家好?成都创新互联公司做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:临江等地区。临江做网站价格咨询:13518219792

VB.NET接口实现多态的实现，能够通过使用多接口，用户可以在不中断运行代码的情况下，允许运行多种软件的系统组件。

接口象类那样描述属性和方法，但是它和类不同的是，接口不能提供任何implementation。

为了正确的操作VB.NET接口实现多态，用户需先建立一个接口，并且通过其他的几个类实现该接口。用户可以用几乎相同的方法调用其他对象已经实现的方法。

下面这个例子就是VB.NET接口实现多态：

Namespace PolyNamespace  
Interface Animal  
Sub Move(ByRef Distance As Double)  
Sub Bite(Byval What As Object)  
End Interface  
Class Flea  
Implements animal  
Public Sub bite(Byval What As 
Object)Implements animal.bite  
'Bite something  
End Sub  
Sub Move(ByRef Distance AS Double)
Implements animal.move  
distance=Distance+1  
End Sub  
End Class  
Class Dog  
Implements animal  
Public Sub bite(Byval What As Object)
Implements animal.bite  
'Bite something  
End Sub  
Sub Move(ByRef Distance AS Double)
Implements animal.move  
distance=Distance+100  
End sub  
End Class  
End Namespace  
'add this section to the your form  
Protected Sub Button1_Click(Byval
 sender As System.Object,_  
Byval e As System.EventArgs)  
Dim aFlea As New Flea()  
Dim anobj As Object()  
Dim aDog As New Dog()  
GetFood(aflea,anobj)  
GetFood(aDog,anobj)  
End Sub  
Public sub GetFood(Byval Critter
 As Animal,Byval Food As Object)  
Dim dblDistance As Double  
'Code to calculate distance to food(omitted).  
Critter.Move(dblDistance) 'Early bound(vtable)  
Critter.Bite(Food) 'Early bound(vtable)  
End Sub 

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注创新互联行业资讯频道，感谢您对创新互联的支持。