Passo a passo: Criando e implementando interfaces (Visual Basic)

As interfaces descrevem as características de propriedades, métodos e eventos, mas deixam os detalhes da implementação para estruturas ou classes.

Este passo a passo demonstra como declarar e implementar uma interface.

Para definir uma interface

1. Abra um novo projeto Visual Basic Windows Application.

2. Adicione um novo módulo ao projeto clicando em Adicionar módulo no menu Projeto .

3. Nomeie o novo módulo Module1.vb e clique em Adicionar. O código para o novo módulo é exibido.

4. Defina uma interface com o nome TestInterface de dentro Module1 digitando Interface TestInterface entre as Module instruções e End Module e pressionando ENTER. O Editor de Códigos recua a Interface palavra-chave e adiciona uma End Interface instrução para formar um bloco de código.

5. Defina uma propriedade, método e evento para a interface colocando o seguinte código entre as Interface instruções and End Interface :

   Property Prop1() As Integer
   Sub Method1(ByVal X As Integer)
   Event Event1()
   

Implementação

Você pode notar que a sintaxe usada para declarar membros da interface é diferente da sintaxe usada para declarar membros da classe. Essa diferença reflete o fato de que as interfaces não podem conter código de implementação.

Para implementar a interface

1. Adicione uma classe nomeada ImplementationClass adicionando a seguinte instrução a Module1, após a End Interface instrução, mas antes da End Module instrução e, em seguida, pressionando ENTER:

   Class ImplementationClass
   

   Se você estiver trabalhando no ambiente de desenvolvimento integrado, o Editor de Códigos fornecerá uma instrução correspondente End Class quando você pressionar ENTER.

2. Adicione a seguinte Implements instrução ao ImplementationClass, que nomeia a interface que a classe implementa:

   Implements TestInterface
   

   Quando listada separadamente de outros itens na parte superior de uma classe ou estrutura, a Implements instrução indica que a classe ou estrutura implementa uma interface.

   Se você estiver trabalhando no ambiente de desenvolvimento integrado, o Editor de Códigos implementará os membros de classe exigidos quando TestInterface você pressionar ENTER e você poderá ignorar a próxima etapa.

3. Se você não estiver trabalhando no ambiente de desenvolvimento integrado, deverá implementar todos os membros da interface MyInterface. Adicione o seguinte código para ImplementationClass implementar Event1, Method1e Prop1:

   Event Event1() Implements TestInterface.Event1
   
   Public Sub Method1(ByVal X As Integer) Implements TestInterface.Method1
   End Sub
   
   Public Property Prop1() As Integer Implements TestInterface.Prop1
       Get
       End Get
       Set(ByVal value As Integer)
       End Set
   End Property
   

   A Implements instrução nomeia a interface e o membro da interface que está sendo implementado.

4. Conclua a definição adicionando um campo privado à classe que armazenou o valor da Prop1 propriedade:

   ' Holds the value of the property.
   Private pval As Integer
   

   Devolve o valor do pval acessório da propriedade.

   Return pval
   

   Defina o valor de no acessador do conjunto de pval propriedades.

   pval = value
   

5. Conclua a definição de adicionando o código a Method1 seguir.

   MsgBox("The X parameter for Method1 is " & X)
   RaiseEvent Event1()
   

Para testar a implementação da interface

1. Clique com o botão direito do mouse no formulário de inicialização do seu projeto no Gerenciador de Soluções e clique em Exibir Código. O editor exibe a classe para seu formulário de inicialização. Por padrão, o formulário de inicialização é chamado Form1de .

2. Adicione o seguinte testInstance campo à Form1 classe:

   Dim WithEvents testInstance As TestInterface
   

   Ao declarar testInstance como WithEvents, a Form1 classe pode manipular seus eventos.

3. Adicione o seguinte manipulador de eventos à Form1 classe para manipular eventos gerados por testInstance:

   Sub EventHandler() Handles testInstance.Event1
       MsgBox("The event handler caught the event.")
   End Sub
   

4. Adicione uma sub-rotina nomeada Test à Form1 classe para testar a classe de implementação:

   Sub Test()
       '  Create an instance of the class.
       Dim T As New ImplementationClass
       ' Assign the class instance to the interface.
       ' Calls to the interface members are 
       ' executed through the class instance.
       testInstance = T
       ' Set a property.
       testInstance.Prop1 = 9
       ' Read the property.
       MsgBox("Prop1 was set to " & testInstance.Prop1)
       '  Test the method and raise an event.
       testInstance.Method1(5)
   End Sub
   

   O Test procedimento cria uma instância da classe que implementa MyInterface, atribui essa instância ao testInstance campo, define uma propriedade e executa um método através da interface.

5. Adicione código para chamar o Test procedimento do Form1 Load procedimento do seu formulário de inicialização:

   Private Sub Form1_Load(ByVal sender As System.Object,
                          ByVal e As System.EventArgs) Handles MyBase.Load
       Test() ' Test the class.
   End Sub
   

6. Execute o Test procedimento pressionando F5. A mensagem "Prop1 foi definida como 9" é exibida. Depois de clicar em OK, a mensagem "O parâmetro X para Method1 é 5" é exibida. Clique em OK e a mensagem "O manipulador de eventos detetou o evento" é exibida.

Consulte também

• Declaração de implementos
• Interfaces
• Declaração de interface
• Declaração do Evento