Por ahora sólo está el código, más adelante puede que comente el código mostrado...
' '------------------------------------------------------------------------------ ' Prueba de sobrecarga de procedimientos (25/Oct/00) ' ' ©Guillermo 'guille' Som, 2000 ' ' Para compilar: ' vbc Prueba1_25Oct.vb /t:exe /r:System.dll '------------------------------------------------------------------------------ Imports System Namespace Guille.Ejemplos.Prueba1_25Oct ' Public Module MPrueba1_25Oct ' El módulo se usará como punto de entrada ' Public Sub Main() Mensaje("Prueba de sobrecarga de procedimientos") Mensaje("--------------------------------------") Mensaje ' Declarar un objeto del tipo Clase25_1 Dim tClase1 As New Clase25_1 Dim unDouble As Double Dim unInteger As Integer ' unInteger = tClase1.Suma(10, 15) Mensaje("Suma de dos enteros: " & unInteger.ToString) ' unDouble = tClase1.Suma(10.3, 15.25) Mensaje("Suma de dos doubles: " & unDouble.ToString) Mensaje ' Mensaje("Parámetro Integer: " & tClase1.aCadena(123)) Mensaje("Parámetro Double: " & tClase1.aCadena(123.25)) ' Mensaje() ' Final Console.Write("Pulsa una INTRO") Dim s As String = Console.ReadLine() End Sub ' ' Método para mostrar los mensajes en la consola ' Los parámetros opcionales siempre tienen que tener un valor por defecto Friend Sub Mensaje(Optional ByVal Msg As String = "") ' Muestra el contenido de la cadena en la consola Console.WriteLine(Msg) End Sub ' End Module ' ' Clase con procedimientos "sobrecargados" Public Class Clase25_1 ' Variables privadas Private m_Nombre As String Private m_Edad As String ' ' Recibe parámetros Integer y devuelve un Integer Public Overloads Function Suma(ByVal a As Integer, ByVal b As Integer) As Integer Return a + b End Function ' Recibe parámetros Double y devuelve un Double Public Overloads Function Suma(ByVal a As Double, ByVal b As Double) As Double Return a + b End Function ' ' Estos procedimientos reciben distintos tipos de parámetros, ' pero devuelven el mismo tipo Public Overloads Function aCadena(ByVal a As Integer) As String Return "Es un Integer convertido a cadena: " & a.ToString End Function ' Public Overloads Function aCadena(ByVal a As Double) As String Return "Es un Double convertido a cadena: " & a.ToString End Function ' End Class End Namespace...
Nos vemos.
Guillermo