Compartilhar via

Delegados (Visual Basic)

Os delegados são objetos que se referem aos métodos. Às vezes, eles são descritos como ponteiros de função de tipo seguro porque são semelhantes aos ponteiros de função usados em outras linguagens de programação. Mas, ao contrário dos ponteiros de função, os delegados do Visual Basic são um tipo de referência baseado na classe System.Delegate. Os delegados podem fazer referência a ambos os métodos compartilhados: os métodos que podem ser chamados sem uma instância específica de uma classe e os métodos de instância.

Delegados e eventos

Os delegados são úteis em situações em que você precisa de um intermediário entre um procedimento de chamada e o procedimento que está sendo chamado. Por exemplo, talvez você queira que um objeto que gera eventos possa chamar manipuladores de eventos diferentes em circunstâncias diferentes. Infelizmente, o objeto que gera os eventos não pode saber antecipadamente qual manipulador de eventos está tratando um evento específico. O Visual Basic permite associar dinamicamente manipuladores de eventos a eventos criando um delegado para você ao usar a AddHandler instrução. No tempo de execução, o delegado encaminha chamadas para o manipulador de eventos apropriado.

Embora você possa criar seus próprios delegados, na maioria dos casos, o Visual Basic cria o delegado e cuida dos detalhes para você. Por exemplo, uma instrução Event define implicitamente uma classe delegada nomeada <EventName>EventHandler como uma classe aninhada da classe que contém a Event instrução e com a mesma assinatura do evento. A instrução AddressOf cria implicitamente uma instância de um delegado que se refere a um procedimento específico. As duas linhas de código a seguir são equivalentes. Na primeira linha, você vê a criação explícita de uma instância de EventHandler, com uma referência ao método Button1_Click enviado como o argumento. A segunda linha é uma maneira mais conveniente de fazer a mesma coisa.

AddHandler Button1.Click, New EventHandler(AddressOf Button1_Click)
' The following line of code is shorthand for the previous line.
AddHandler Button1.Click, AddressOf Me.Button1_Click

Você pode usar a maneira abreviada de criar delegados em qualquer lugar em que o compilador possa determinar o tipo do delegado pelo contexto.

Declarando eventos que usam um tipo de delegado existente

Em algumas situações, você pode querer declarar um evento para utilizar um tipo de delegado existente como o delegado subjacente ao evento. A sintaxe a seguir demonstra como:

Delegate Sub DelegateType()
Event AnEvent As DelegateType

Isso é útil quando você deseja rotear vários eventos para o mesmo manipulador.

Delegar variáveis e parâmetros

Você pode usar delegados para outras tarefas não relacionadas a eventos, como threading livre ou com os procedimentos que precisem chamar diferentes versões de funções no tempo de execução.

Por exemplo, suponha que você tenha um aplicativo de anúncio classificado que inclua uma caixa de listagem com os nomes dos carros. Os anúncios são classificados por título, que normalmente é a marca do carro. Um problema que você pode enfrentar ocorre quando alguns carros incluem o ano do carro antes da marca. O problema é que a funcionalidade de classificação interna da caixa de listagem ordena apenas por códigos de caractere; ela coloca primeiro todos os anúncios que começam com datas, seguidos pelos anúncios que começam com a marca.

Para corrigir isso, é possível criar um procedimento de classificação em uma classe que utilize a classificação alfabética padrão na maioria das caixas de listagem, mas que possa alternar, em tempo de execução, para o procedimento de classificação personalizado para anúncios de carro. Para fazer isso, você passa o procedimento de classificação personalizada para a classe de classificação no tempo de execução usando delegados.

Expressões lambda e AddressOf

Cada uma das classes delegadas define um construtor que recebe a especificação de um método de objeto. Um argumento para um construtor delegado deve ser uma referência a um método ou a uma expressão lambda.

Para especificar uma referência a um método, use a seguinte sintaxe:

AddressOf [expression.]methodName

O tipo de tempo de compilação do expression deve ser o nome de uma classe ou uma interface que contém um método do nome especificado cuja assinatura coincide com a assinatura da classe delegada. O methodName pode ser um método compartilhado ou um método de instância. O methodName não é opcional, mesmo se você criar um delegado para o método padrão da classe.

Para especificar uma expressão lambda, use a seguinte sintaxe:

Function ([parm Como type, parm2 Como type2, ...]) expression

O exemplo a seguir mostra as expressões AddressOf e lambda usadas para especificar a referência para um delegado.

Module Module1

    Sub Main()
        ' Create an instance of InOrderClass and assign values to the properties.
        ' InOrderClass method ShowInOrder displays the numbers in ascending 
        ' or descending order, depending on the comparison method you specify.
        Dim inOrder As New InOrderClass
        inOrder.Num1 = 5
        inOrder.Num2 = 4

        ' Use AddressOf to send a reference to the comparison function you want
        ' to use.
        inOrder.ShowInOrder(AddressOf GreaterThan)
        inOrder.ShowInOrder(AddressOf LessThan)

        ' Use lambda expressions to do the same thing.
        inOrder.ShowInOrder(Function(m, n) m > n)
        inOrder.ShowInOrder(Function(m, n) m < n)
    End Sub

    Function GreaterThan(ByVal num1 As Integer, ByVal num2 As Integer) As Boolean
        Return num1 > num2
    End Function

    Function LessThan(ByVal num1 As Integer, ByVal num2 As Integer) As Boolean
        Return num1 < num2
    End Function

    Class InOrderClass
        ' Define the delegate function for the comparisons.
        Delegate Function CompareNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Boolean
        ' Display properties in ascending or descending order.
        Sub ShowInOrder(ByVal compare As CompareNumbers)
            If compare(_num1, _num2) Then
                Console.WriteLine(_num1 & "  " & _num2)
            Else
                Console.WriteLine(_num2 & "  " & _num1)
            End If
        End Sub

        Private _num1 As Integer
        Property Num1() As Integer
            Get
                Return _num1
            End Get
            Set(ByVal value As Integer)
                _num1 = value
            End Set
        End Property

        Private _num2 As Integer
        Property Num2() As Integer
            Get
                Return _num2
            End Get
            Set(ByVal value As Integer)
                _num2 = value
            End Set
        End Property
    End Class
End Module

A assinatura da função deve corresponder a do tipo delegado. Para obter mais informações sobre expressões lambda, consulte Expressões Lambda. Para obter mais exemplos de expressão lambda e atribuições AddressOf aos delegados, consulte Conversão de delegado amena.

Título Descrição
Como invocar um método delegado Fornece um exemplo que mostra como associar um método a um delegado e, em seguida, invocar esse método por meio do delegado.
Como passar procedimentos para outro procedimento no Visual Basic Demonstra como usar delegados para passar um procedimento para outro procedimento.
Conversão de delegado reduzida Descreve como você pode atribuir subs e funções a delegados ou manipuladores mesmo quando suas assinaturas não são idênticas
Eventos Fornece uma visão geral dos eventos no Visual Basic.