Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Using overloaded methods

Public Class Tester    Public Shared Sub Main       Console.WriteLine("The square of Integer 7 is " & _          Square(7) & vbCrLf & "The square of Double " & _          "7.5 is " & Square(7.5))    End Sub         Shared Function Square(ByVal value As Integer) As Integer       Return Convert.ToInt32(value ^ 2)    End Function ' Square    Shared Function Square(ByVal value As Double) As Double       Return value ^ 2    End Function ' Square End Class The square of Integer 7 is 49 The square of Double 7.5 is 56.25