VB.NET中怎么利用接口實現多態

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 

看完上述內容是否對您有幫助呢？如果還想對相關知識有進一步的了解或閱讀更多相關文章，請關注億速云行業資訊頻道，感謝您對億速云的支持。