Tutorial: Implementar la herencia mediante objetos COM (Visual Basic)

Artículo
08/10/2011

Se pueden derivar clases de Visual Basic de las clases Public de objetos COM, incluso si se crearon en versiones anteriores de Visual Basic. Las propiedades y métodos de las clases heredadas de objetos COM pueden ser invalidados o sobrecargados del mismo modo que las propiedades y métodos de cualquier otra clase base. La herencia de objetos COM resulta útil cuando se tiene una biblioteca de clases que no se desea volver a compilar.

En el procedimiento siguiente se muestra cómo usar Visual Basic 6.0 para crear un objeto COM que contiene una clase y, a continuación, utilizar éste como clase base.

Nota

Es posible que su equipo muestre nombres o ubicaciones diferentes para algunos de los elementos de la interfaz de usuario de Visual Studio incluidos en las instrucciones siguientes. La edición de Visual Studio que se tenga y la configuración que se utilice determinan estos elementos. Para obtener más información, vea Valores de configuración de Visual Studio.

Para generar el objeto COM que se utiliza en este tutorial

En Visual Basic 6.0, abra un proyecto de archivo DLL ActiveX nuevo. Se crea un proyecto denominado Project1. Tiene una clase denominada Class1.
En el Explorador de proyectos, haga clic con el botón secundario del mouse en Project1 y, a continuación, haga clic en Propiedades de Project1. Aparece el cuadro de diálogo Propiedades del proyecto.
En la ficha General del cuadro de diálogo Propiedades del proyecto, escriba ComObject1 en el campo Nombre de proyecto para cambiar el nombre del proyecto.
En el Explorador de proyectos, haga clic con el botón secundario del mouse en Class1 y, a continuación, haga clic en Propiedades. Aparecerá la ventana Propiedades correspondiente a la clase.
Establezca la propiedad Name en MathFunctions.
En el Explorador de proyectos, haga clic con el botón secundario del mouse en MathFunctions y, a continuación, haga clic en Ver código. Aparece el Editor de código.

Agregue una variable local, que contendrá el valor de la propiedad:

' Local variable to hold property value
Private mvarProp1 As Integer

Agregue los procedimientos de propiedad Let y Get:

Public Property Let Prop1(ByVal vData As Integer)
   'Used when assigning a value to the property.
   mvarProp1 = vData
End Property
Public Property Get Prop1() As Integer
   'Used when retrieving a property's value.
   Prop1 = mvarProp1
End Property

Agregue una función:

Function AddNumbers( 
   ByVal SomeNumber As Integer, 
   ByVal AnotherNumber As Integer) As Integer

   AddNumbers = SomeNumber + AnotherNumber
End Function

Cree y registre el objeto COM; para ello, haga clic en Crear ComObject1.dll en el menú Archivo.

Nota

Aunque es posible exponer una clase creada con Visual Basic como un objeto COM, en realidad, no se trata de un verdadero objeto COM y no se puede utilizar en este tutorial. Para obtener información detallada, vea Interoperabilidad COM en aplicaciones .NET Framework (Visual Basic).

Ensamblados de interoperabilidad

En el procedimiento siguiente va a crear un ensamblado de interoperabilidad que servirá como puente entre el código no administrado (como un objeto COM) y el código administrado que utiliza Visual Studio. El ensamblado de interoperabilidad creado por Visual Basic controla muchos de los aspectos del trabajo con objetos COM, como el cálculo de referencias de interoperabilidad, el proceso de empaquetado de parámetros y valores devueltos en los tipos de datos equivalentes enviados a objetos COM (o recibidos de objetos COM). La referencia de la aplicación de Visual Basic apunta al ensamblado de interoperabilidad, no al objeto COM real.

Para utilizar un objeto COM con Visual Basic 2005 y versiones posteriores

Abra un nuevo proyecto de aplicación para Windows de Visual Basic.
Haga clic en la opción Agregar referencia del menú Proyecto.

Aparecerá el cuadro de diálogo Agregar referencia.
En la ficha COM, haga doble clic en ComObject1 en la lista Nombre de componente y, a continuación, haga clic en Aceptar.
En el menú Proyecto, haga clic en Agregar nuevo elemento.

Se abrirá el cuadro de diálogo Agregar nuevo elemento.
En el panel Plantillas, haga clic en Clase.

En el campo Nombre aparecerá el nombre de archivo predeterminado, Class1.vb. Cambie este campo a MathClass.vb y haga clic en Agregar. Esto creará una clase denominada MathClass y mostrará su código.

Agregue el código siguiente al principio de MathClass para heredar de la clase COM.

' The inherited class is called MathFunctions in the base class,
' but the interop assembly appends the word Class to the name.
Inherits ComObject1.MathFunctionsClass

Sobrecargue el método público de la clase base agregando el código siguiente a MathClass:

'  This method overloads the method AddNumbers from the base class.
Overloads Function AddNumbers(
    ByVal SomeNumber As Integer,
    ByVal AnotherNumber As Integer) As Integer

    Return SomeNumber + AnotherNumber
End Function

Amplíe la clase heredada agregando el código siguiente a MathClass:

'  The following function extends the inherited class.
Function SubtractNumbers(
    ByVal SomeNumber As Integer,
    ByVal AnotherNumber As Integer) As Integer

    Return AnotherNumber - SomeNumber
End Function

La nueva clase hereda las propiedades de la clase base del objeto COM, sobrecarga un método y define otro método para extender la clase.

Para probar la clase heredada

Agregue un botón al formulario de inicio y, a continuación, haga doble clic en él para ver su código.

En el procedimiento del controlador de eventos Click del botón, agregue el código siguiente para crear una instancia de MathClass y llamar a los métodos sobrecargados:

Dim Result1 As Short
Dim Result2 As Integer
Dim Result3 As Integer
Dim MathObject As New MathClass
Result1 = MathObject.AddNumbers(4S, 2S) ' Add two Shorts.
Result2 = MathObject.AddNumbers(4, 2) 'Add two Integers.
Result3 = MathObject.SubtractNumbers(2, 4) ' Subtract 2 from 4.
MathObject.Prop1 = 6 ' Set an inherited property.

MsgBox("Calling the AddNumbers method in the base class " &
       "using Short type numbers 4 and 2 = " & Result1)
MsgBox("Calling the overloaded AddNumbers method using " &
       "Integer type numbers 4 and 2 = " & Result2)
MsgBox("Calling the SubtractNumbers method " &
       "subtracting 2 from 4 = " & Result3)
MsgBox("The value of the inherited property is " &
        MathObject.Prop1)

Presione F5 para ejecutar el proyecto.

Cuando haga clic en el botón del formulario, se llamará primero al método AddNumbers con números de tipo de datos Short y Visual Basic elegirá el método apropiado en la clase base. La segunda llamada a AddNumbers se dirige al método de sobrecarga de MathClass. La tercera llamada llama al método SubtractNumbers, que extiende la clase. Se establece el valor de la propiedad en la clase base y se muestra dicho valor.

Pasos siguientes

Es posible que haya observado que la función AddNumbers sobrecargada parece tener el mismo tipo de datos que el método heredado de la clase base del objeto COM. Esto se debe a que los argumentos y parámetros del método de la clase base están definidos como enteros de 16 bits en Visual Basic 6.0, pero se exponen como enteros de 16 bits de tipo Short en las versiones posteriores de Visual Basic. La nueva función acepta enteros de 32 bits y sobrecarga la función de la clase base.

Al trabajar con objetos COM, es importante comprobar el tamaño y los tipos de datos de los parámetros. Por ejemplo, al utilizar un objeto COM que acepta un objeto de colección de Visual Basic 6.0 como argumento, no puede proporcionar una colección de una versión posterior de Visual Basic.

Es posible reemplazar propiedades y métodos heredados de clases COM, lo que significa que se puede declarar una propiedad o método local que reemplace una propiedad o método heredado de una clase base COM. Las reglas para reemplazar propiedades COM heredadas son similares a las reglas para reemplazar otras propiedades y métodos, con las excepciones siguientes:

Si reemplaza cualquier propiedad o método heredado de una clase COM, deberá reemplazar todas las demás propiedades y métodos heredados.
No es posible reemplazar las propiedades que utilizan parámetros ByRef.