软件工程

本类阅读TOP10

·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八): CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
接口的应用

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

使用接口:

Sub TestInterface()
   Dim RectangleObject2 As New RectangleClass2()
   Dim RightTriangleObject2 As New RightTriangleClass2()
   ProcessShape2(RightTriangleObject2, 3, 14)
   ProcessShape2(RectangleObject2, 3, 5)
End Sub
  
Sub ProcessShape2(ByVal Shape2 As Shape2, ByVal X As Double,     ByVal Y As Double)
   MessageBox.Show("The area of the object is "    & Shape2.CalculateArea(X, Y))
End Sub
'使用了接口,就可以通过同一个方法,处理实现了同一接口的不同类

Public Interface Shape2
   Function CalculateArea(ByVal X As Double, ByVal Y As Double) As Double
End Interface

Public Class RightTriangleClass2
   Implements Shape2
   Function CalculateArea(ByVal X As Double,  ByVal Y As Double) As Double Implements Shape2.CalculateArea
      ' Calculate the area of a right triangle.
      Return 0.5 * (X * Y)
   End Function
End Class

Public Class RectangleClass2
   Implements Shape2
   Function CalculateArea(ByVal X As Double,  ByVal Y As Double) As Double Implements Shape2.CalculateArea
      ' Calculate the area of a rectangle.
      Return X * Y
   End Function
End Class




相关文章

相关软件