Instruções passo a passo: implementando a herança com objetos COM (Visual Basic)

Artigo
06/08/2015

Você pode derivar classes de Visual Basic de Public classes de objetos COM, mesmo aqueles criados em versões anteriores do Visual Basic. As propriedades e métodos das classes herdadas de objetos COM podem ser substituídos ou sobrecarregados assim como propriedades e métodos de qualquer outra classe base podem ser substituídos ou sobrecarregados. Herança de objetos COM é útil quando você tem uma biblioteca de classe existente que você não deseja recompilar.

O procedimento a seguir mostra como usar o Visual Basic 6.0 para criar um objeto COM que contém uma classe e usá-lo como uma classe base.

Dica

Seu computador pode mostrar nomes ou locais diferentes para alguns dos elementos da interface do usuário do Visual Studio nas instruções a seguir. A edição do Visual Studio que você possui e as configurações que você usa determinam esses elementos. Para obter mais informações, consulte Personalizando configurações de desenvolvimento no Visual Studio.

Para criar o objeto COM usado nesta explicação passo a passo

No Visual Basic 6.0, abra um novo projeto de DLL de ActiveX. Um projeto chamado Project1 é criado. Ele tem uma classe chamada Class1.
No Project Explorer, com o botão direito Projeto1e, em seguida, clique em Propriedades de Projeto1. O Propriedades do projeto caixa de diálogo é exibida.
No Geral guia da Propriedades do projeto diálogo, altere o nome do projeto digitando ComObject1 na Nome do projeto campo.
No Project Explorer, com o botão direito Class1e, em seguida, clique em Propriedades. O Propriedades janela para a classe é exibida.
Alterar o Name propriedade para MathFunctions.
No Project Explorer, com o botão direito MathFunctionse, em seguida, clique em Exibir código. O O Editor de código é exibida.

Adicione uma variável local para armazenar o valor da propriedade:

' Local variable to hold property value
Private mvarProp1 As Integer

Adicionar propriedade de Let e a propriedade Get os procedimentos de propriedade:

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

Adicione uma função:

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

   AddNumbers = SomeNumber + AnotherNumber
End Function

Criar e registrar o objeto COM, clicando em ComObject1.dll fazer sobre o arquivo menu.

Dica

Embora você também pode expor uma classe criada com Visual Basic como um objeto COM, ele não é um objeto do COM verdadeiro e não podem ser usado nesta explicação.Para obter detalhes, consulte:Interoperabilidade COM em aplicativos .NET Framework (Visual Basic).

Assemblies de interoperabilidade

O procedimento a seguir, você criará um assembly de interoperabilidade, que atua como uma ponte entre o código não gerenciado (como um objeto COM) e o código gerenciado Visual Studio usa. O assembly de interoperabilidade que Visual Basic cria alças muitos detalhes de como trabalhar com objetos, tais como interop marshaling, o processo de parâmetros de empacotamento e valores de retorno em dados equivalentes tipos à medida que mudam para e de objetos COM. A referência a Visual Basic pontos do aplicativo para o assembly de interoperabilidade, não o objeto COM real.

Para usar um objeto COM o Visual Basic 2005 e versões posteriores

Abra um novo projeto de Aplicativo do Windows Visual Basic.
No menu Project, escolha Add Reference.

A caixa de diálogo Add Reference é exibida.
No COM da sala, clique duas vezes em ComObject1 na Nome do componente lista e clique em OK.
No menu Project, clique em Add New Item.

A caixa de diálogo Add New Item é exibida.
No modelos de painel, clique em classe.

O nome de arquivo padrão, Class1.vb, consta o nome campo. Alterar este campo para MathClass.vb e clique em Add. Isso cria uma classe chamada MathClasse exibe seu código.

Adicione o seguinte código para o topo da MathClass para herdar da classe 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

Sobrecarregar o método público da classe base, adicionando o seguinte código para 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

Estende a classe herdada, adicionando o seguinte código para 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

A nova classe herda as propriedades da classe base no objeto COM, sobrecarrega um método e define um novo método para estender a classe.

Para testar a classe herdada

Adicionar um botão no formulário de inicialização e, em seguida, clique duas vezes nele para exibir seu código.

O botão Click procedimento manipulador de evento, adicione o seguinte código para criar uma instância de MathClass e chamar os métodos sobrecarregados:

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)

Execute o projeto pressionando F5.

Quando você clica no botão no formulário, o AddNumbers método é chamado pela primeira vez com Short tipo de dados de números, e Visual Basic escolhe o método apropriado da classe base. A segunda chamada para AddNumbers é direcionada para o método de sobrecarga do MathClass. A terceira chamada chamadas a SubtractNumbers método, que estende a classe. A propriedade na classe base é definida e o valor é exibido.

Próximas etapas

Você deve ter notado que o sobrecarregado AddNumbers função parece ter os dados do mesmos tipo que o método herdado da classe base do objeto COM. Isso ocorre porque os argumentos e os parâmetros do método de classe base são definidos como números inteiros de 16 bits em Visual Basic 6.0, mas eles são expostos como inteiros de 16 bits do tipo Short em versões posteriores do Visual Basic. A nova função aceita inteiros de 32 bits e sobrecarrega a função da classe base.

Ao trabalhar com objetos COM, certifique-se de que você verifique se o tamanho e tipos de dados de parâmetros. Por exemplo, quando você estiver usando um objeto COM que aceita um objeto da coleção Visual Basic 6.0 como um argumento, você não pode fornecer uma coleção de uma versão posterior do Visual Basic.

Propriedades e métodos herdados de classes COM podem ser substituídos, o que significa que você pode declarar uma propriedade local ou o método que substitui uma propriedade ou método herdado de uma classe base do COM. As regras para a substituição COM as propriedades herdadas são semelhantes às regras de substituição de outras propriedades e métodos com as seguintes exceções:

Se você substituir qualquer propriedade ou método herdado de uma classe COM, você deve substituir todas as outras propriedades herdadas e métodos.
Propriedades que usam ByRef parâmetros não podem ser substituídos.