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

Artículo
05/10/2023

Puede derivar clases de Visual Basic de clases Public en objetos COM, incluso las creadas en versiones anteriores de Visual Basic. Las propiedades y métodos de las clases heredadas de objetos COM se pueden invalidar o sobrecargar igual que las propiedades y los métodos de cualquier otra clase base. La herencia de objetos COM es útil cuando tiene una biblioteca de clases existente que no desea volver a compilar.

En el siguiente procedimiento se describe cómo usar Visual Basic 6.0 para crear un objeto COM que contiene una clase y usar dicho objeto como clase base.

Nota:

Es posible que tu equipo muestre nombres o ubicaciones diferentes para algunos de los elementos de la interfaz de usuario de Visual Studio en las siguientes instrucciones. 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 Personalizar el IDE.

Para crear el objeto COM que se usa en este tutorial

En Visual Basic 6.0, abra un nuevo proyecto DLL de ActiveX. Se crea un proyecto denominado Project1. Tiene una clase llamada Class1.
En el Explorador de proyectos, haga clic con el botón derecho en Project1 y, a continuación, haga clic en Propiedades de Project1. Se abre el cuadro de diálogo Propiedades del proyecto.
En la pestaña General del cuadro de diálogo Propiedades del proyecto, cambie el nombre del proyecto escribiendo ComObject1 en el campo Nombre del proyecto.
En el Explorador de soluciones, haga clic con el botón derecho en Class1 y, después, haga clic en Propiedades. Se abre la ventana Propiedades de la clase.
Cambie la propiedad Name a MathFunctions.
En el Explorador de soluciones, haga clic con el botón derecho en MathFunctions y, después, haga clic en Vista Código. Se abre el Editor de código.

Agregue una variable local para contener el valor de propiedad:

' Local variable to hold property value
Private mvarProp1 As Integer

Agregue los procedimientos de las propiedades 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 Hacer ComObject1.dll en el menú Archivo.

Nota

Aunque una clase creada con Visual Basic también se puede exponer como objeto COM, no es un objeto COM verdadero y no se puede usar en este tutorial. Para obtener más información, vea Interoperabilidad COM en aplicaciones .NET Framework.

Ensamblados de interoperabilidad

En el siguiente procedimiento creará un ensamblado de interoperabilidad, que actúa como un puente entre un código no administrado (como un objeto COM) y el código administrado que Visual Studio usa. El ensamblado de interoperabilidad que Visual Basic crea controla muchos de los detalles del uso de objetos COM, como la serialización de interoperabilidad, que es el proceso de empaquetado de parámetros y valores devueltos en tipos de datos equivalentes a medida que se mueven hacia y desde objetos COM. La referencia de la aplicación de Visual Basic apunta al ensamblado de interoperabilidad, no al objeto COM real.

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

Abra un proyecto Aplicación Windows de Visual Basic nuevo.
En el menú Proyecto, haga clic en Agregar referencia.

Aparecerá el cuadro de diálogo Agregar referencia.
En la pestaña COM, haga doble clic en ComObject1 en la lista Nombre del componente y 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.

El nombre de archivo predeterminado, Class1.vb, aparece en el campo Nombre. Cambie este campo a MathClass.vb y haga clic en Agregar. Esto crea una clase denominada MathClass y muestra su código.

Agregue el siguiente código en la parte superior 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 siguiente código 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 siguiente código 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 un nuevo método para extender la clase.

Para probar la clase heredada

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

En el procedimiento de controlador de eventos del botón Click, agregue el siguiente código 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.

Al hacer clic en el botón del formulario, se llama al método AddNumbers en primer lugar con números de tipo de datos Short, y Visual Basic elige el método adecuado de la clase base. La segunda llamada a AddNumbers se dirige al método de sobrecarga desde MathClass. La tercera llamada llama al método SubtractNumbers, que extiende la clase. La propiedad de la clase base se establece y se muestra el valor.

Pasos siguientes

Probablemente se haya dado cuenta de 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 clase base se definen como enteros de 16 bits en Visual Basic 6.0, pero se exponen como enteros de 16 bits de tipo Short en versiones posteriores de Visual Basic. La nueva función acepta enteros de 32 bits y sobrecarga la función de clase base.

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

Las propiedades y los métodos heredados de las clases COM se pueden invalidar, es decir, se puede declarar una propiedad local o un método que reemplace una propiedad o un método heredados de una clase COM base. Las reglas para invalidar propiedades COM heredadas son similares a las reglas para invalidar otras propiedades y métodos, con las siguientes excepciones:

Si se invalida una propiedad o un método heredado de una clase COM, se deben invalidar todas las demás propiedades y métodos heredados.
Las propiedades que usan parámetros ByRef no se pueden invalidar.

Compartir a través de