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

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

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接口实现多态的具体代码编写方式就为大家介绍到这里。