VB.NET接口实现多态实际代码编写
创始人
2024-06-20 22:51:39
0

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

VB.NET接口实现多态的实现,能够通过使用多接口,用户可以在不中断运行代码的情况下,允许运行多种软件的系统组件。

接口象类那样描述属性和方法,但是它和类不同的是,接口不能提供任何implementation。

为了正确的操作VB.NET接口实现多态,用户需先建立一个接口,并且通过其他的几个类实现该接口。用户可以用几乎相同的方法调用其他对象已经实现的方法。

下面这个例子就是VB.NET接口实现多态:

 

  1. Namespace PolyNamespace  
  2. Interface Animal  
  3. Sub Move(ByRef Distance As Double)  
  4. Sub Bite(Byval What As Object)  
  5. End Interface  
  6. Class Flea  
  7. Implements animal  
  8. Public Sub bite(Byval What As 
    Object)Implements animal.bite  
  9. 'Bite something  
  10. End Sub  
  11. Sub Move(ByRef Distance AS Double)
    Implements animal.move  
  12. distance=Distance+1  
  13. End Sub  
  14. End Class  
  15. Class Dog  
  16. Implements animal  
  17. Public Sub bite(Byval What As Object)
    Implements animal.bite  
  18. 'Bite something  
  19. End Sub  
  20. Sub Move(ByRef Distance AS Double)
    Implements animal.move  
  21. distance=Distance+100  
  22. End sub  
  23. End Class  
  24. End Namespace  
  25. 'add this section to the your form  
  26. Protected Sub Button1_Click(Byval
     sender As System.Object,_  
  27. Byval e As System.EventArgs)  
  28. Dim aFlea As New Flea()  
  29. Dim anobj As Object()  
  30. Dim aDog As New Dog()  
  31. GetFood(aflea,anobj)  
  32. GetFood(aDog,anobj)  
  33. End Sub  
  34. Public sub GetFood(Byval Critter
     As Animal,Byval Food As Object)  
  35. Dim dblDistance As Double  
  36. 'Code to calculate distance to food(omitted).  
  37. Critter.Move(dblDistance) 'Early bound(vtable)  
  38. Critter.Bite(Food) 'Early bound(vtable)  
  39. End Sub 

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

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
Windows恶意软件20年“... 在Windows的早期年代,病毒游走于系统之间,偶尔删除文件(但被删除的文件几乎都是可恢复的),并弹...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
着眼MAC地址,解救无法享受D... 在安装了DHCP服务器的局域网环境中,每一台工作站在上网之前,都要先从DHCP服务器那里享受到地址动...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...