如何进行VB.NET继承实现多态应用

这篇文章将为大家详细讲解有关如何进行VB.NET继承实现多态应用，文章内容质量较高，因此小编分享给大家做个参考，希望大家阅读完这篇文章后对相关知识有一定的了解。

最为一款面向对象的编程语言，VB.NET同样也可以通过继承进行多态的实现。我们今天就为大家介绍一下有关VB.NET继承实现多态的具体代码编写，希望能给大家带来一些帮助，提高编程效率。

大部分面向对象的程序开发系统都是通过继承来实现多态。比如说跳蚤类和狗类都是从动物类继承过来的。为了突出每一种动物走动的特点，则每一种特定动物类都要重载动物类的"Move"方法。

VB.NET继承实现多态的问题是因为用户可以需要在还不知道是要对哪种特定动物进行处理的时候，就要调用多种从动物类中派生出来的特定的动物类中的"Move"方法。

在下面的这个TestPolymorphism过程中，VB.NET继承实现多态的代码示例：

MustInherit Public Class Amimal 
'基本类  
MustOverride Public Sub Bite
(Byval What As Object)  
MustOverride Public Sub Move
(ByRef Distance As Double)  
End Class  
Public Class Flea  
Inherits Amimal  
Overrides Sub bite(Byval What 
As Object)  
'Bite something  
End Sub  
Overrides Sub Move(ByRef 
Distance As Double)  
distance=Distance+1  
End Sub  
End Class  
Public Class Dog  
Inherits Animal  
Overrides Public Sub bite
(Byval What As Object)  
'Bite something  
End Sub  
Overrides Sub Move(ByRef 
Distance As Double)  
distance=Distance+100  
End Sub  
End Class  
Sub TestPolymorphism()  
Dim aDog As New Dog()  
Dim aFlea As New Flea()  
UseAnimal(aFlea) 'Pass a flea 
object to UseAnimal procedure  
UseAnimal(aDog) 'Pass a Dog 
object to UseAnimal procedure  
End Sub  
Sub UseAnimal(Byval AnAnimal As Animal)  
Dim distance As Double=0 
'UseAnimal does not care what 
kind of animal it is using  
'The Move method of both the 
Flea and the Dog are inherited  
'from the Animal class and can 
be used interchangeably.  
AnAniml.Move(distance)  
If distance=1 Then  
MessageBox.Show("The animal moved:
"&CStr(distance)&_  
"units,so it must be a Flea.")  
ElseIf distance>1 Then  
MessageBox.Show("The animal 
moved:"&CStr(distance)&_  
"units,so it must be a Dog.")  
End IF  
End Sub 

关于如何进行VB.NET继承实现多态应用就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。