[الوادي]

ال Overloads هي إذا أردنا اسخدام دالتين لهما نفس الاسم باختلاف المعاملات

---

حالة Overloads التي لا تحتاج لاستخدام كلمة Overloads:
وهي عند إنشاء دالتين في نفس الكلاس لها نفس الاسم باختلاف المعاملات مثل

PHP كود :

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim r As Integer

        r = theFunc(5, 6)

        MsgBox(r)

    End Sub


    Private Function theFunc(p1 As Integer, p2 As Integer)
        Return p1 + p2
    End Function

    Private Function theFunc(p1 As Integer, p2 As Integer, p3 As Integer)
        Return p1 + p2 - p3
    End Function

End Class 


---

حالة Overloads التي لابد من استخدام كلمة Overloads:
وهي عند إنشاء دالة في كلاس ورث من كلاس آخر وفيه نفس اسم الدالة باختلاف المعاملات ونحتاج الى استخدام الدالتين مثل

PHP كود :

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim ccc As New AAAAA

        Dim r As Integer

        r = ccc.theFunc(4, 5)

        MsgBox(r)

    End Sub

End Class


Class AAAAA
    Inherits BBBBB

    '      Overloads
    Public Overloads Function theFunc(p1 As Integer, p2 As Integer, p3 As Integer) As Integer
        Return p1 + p2 - p3
    End Function

End Class


Class BBBBB

    Public Function theFunc(p1 As Integer, p2 As Integer) As Integer
        Return p1 + p2
    End Function

End Class