VB.NET接口實現多態實際代碼編寫
作者:佚名
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接口實現多態的具體代碼編寫方式就為大家介紹到這里。
責任編輯:曹凱
來源:
編程入門網