VB.NET接口实现多态实际代码编写

VB.NET编程语言为我们带来了非常大的好处。而且其作为一项面向对象语言，也有很多新的功能供大家使用。比如在多态性的实现方面就有很多方法。今天我们先来一起学习其中VB.NET接口实现多态的具体操作步骤。#t#

成都创新互联主要从事网站设计制作、网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务鹿邑,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108

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

VB.NET接口实现多态的具体代码编写方式就为大家介绍到这里。

网页题目：VB.NET接口实现多态实际代码编写
文章网址：http://www.csdahua.cn/qtweb/news6/304706.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：快上网

成都快上网为您推荐相关内容