в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:42:37Z

1 версия

Новая страница

==Generic interface and implementation class==

<source lang="vbnet">
Option Explicit On
Option Strict On
Public Interface IBasicMath(Of T)
Function Add(ByVal a As T, ByVal b As T) As T
Function Subtract(ByVal a As T, ByVal b As T) As T
Function Multiply(ByVal a As T, ByVal b As T) As T
Function Divide(ByVal a As T, ByVal b As T) As T
End Interface
Public Class BasicMath
Implements IBasicMath(Of Integer)
Public Function Add(ByVal a As Integer, ByVal b As Integer) _
As Integer Implements IBasicMath(Of Integer).Add
Return a + b
End Function
Public Function Divide(ByVal a As Integer, ByVal b As Integer) _
As Integer Implements IBasicMath(Of Integer).Divide
Return CInt(a / b)
End Function
Public Function Multiply(ByVal a As Integer, ByVal b As Integer) _
As Integer Implements IBasicMath(Of Integer).Multiply
Return a * b
End Function
Public Function Subtract(ByVal a As Integer, ByVal b As Integer) _
As Integer Implements IBasicMath(Of Integer).Subtract
Return a - b
End Function
End Class
Module Program
Sub Main()
Dim m As New BasicMath()
Console.WriteLine("1 + 1 = {0} ", m.Add(1, 1))
End Sub
End Module

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Generics/Generic Interface - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия