VB.Net Tutorial/Generics/Generic Method

Generic method maximum returns the largest of three objects

<source lang="vbnet">Module MaximumTest

  Sub Main()
     Console.WriteLine(5, Maximum(3, 4, 5))
     Console.WriteLine(Maximum(6.6, 8.8, 7.7))
     Console.WriteLine(Maximum("pear", "apple", "orange"))
  End Sub
  
  Public Function Maximum(Of T As IComparable(Of T))(ByVal x As T, ByVal y As T, ByVal z As T) As

T

     Dim max As T = x
     If y.rupareTo(max) > 0 Then
        max = y
     End If
     If z.rupareTo(max) > 0 Then
        max = z
     End If
     Return max
  End Function

End Module</source>

5
8.8
pear

Using generic methods to print arrays of different types

<source lang="vbnet">Module Tester

  Sub Main()
     Dim integerArray As Integer() = {1, 2, 3, 4, 5, 6}
     Dim doubleArray As Double() = {1.1, 2.2, 3.3, 4.4, 5.5, 6.6, 7.7}
     Dim charArray As Char() = {"H"c, "E"c, "L"c, "L"c, "O"c}
     PrintArray(integerArray)
     PrintArray(doubleArray)
     PrintArray(charArray) 
  End Sub
  
  Public Sub PrintArray(Of E)(ByVal inputArray() As E)
     For Each element As E In inputArray
        Console.Write(element.ToString() & " ")
     Next element
     Console.WriteLine(vbCrLf)
  End Sub 

End Module</source>

1 2 3 4 5 6
1.1 2.2 3.3 4.4 5.5 6.6 7.7
H E L L O