'Visual Basic 2010 Redefinition en Method Overloading Static Typing en Dynamic Binding
Namespace OtherExample
    Class AClass
        Public Shared Function AFunction(ByVal AArgument As Short) As String
            AFunction = "Short"
        End Function
        Public Shared Function AFunction(ByVal AArgument As Integer) As String
            AFunction = "Integer"
        End Function
        Public Shared Function AFunction(ByVal AArgument As Double) As String
            AFunction = "Double"
        End Function
    End Class
    '
    Class Example
        Public Shared Sub Main()
            Dim aByte As Byte
            Dim aShort As Short
            Dim aInteger As Integer
            Dim aSingle As Single
            Dim aDouble As Integer
            '
            Console.WriteLine(AClass.AFunction(aByte))
            Console.WriteLine(AClass.AFunction(aByte * aByte))
            Console.WriteLine(AClass.AFunction(aByte ^ aByte))
            Console.WriteLine(AClass.AFunction(aShort))
            Console.WriteLine(AClass.AFunction(aShort * aShort))
            Console.WriteLine(AClass.AFunction(aShort ^ aShort))
            Console.WriteLine(AClass.AFunction(aInteger))
            Console.WriteLine(AClass.AFunction(aInteger * aInteger))
            Console.WriteLine(AClass.AFunction(aInteger ^ aInteger))       ' (1)
            Console.WriteLine(AClass.AFunction(aSingle))
            Console.WriteLine(AClass.AFunction(aSingle * aSingle))
            Console.WriteLine(AClass.AFunction(aDouble))
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.