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

发布时间：2021-08-06 15:46:26 阅读：170 作者：Leah 栏目：编程语言

开发者测试专用服务器限时活动，0元免费领，库存有限，领完即止！点击查看>>

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

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

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

亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

向AI问一下细节

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

猜你喜欢

最新资讯

相关推荐

开发者交流群：

相关标签