Delegados (Visual Basic)

  • Artículo

Los delegados son objetos que hacen referencia a métodos. A veces se describen como punteros de función con seguridad de tipos porque son similares a los punteros de función utilizados en otros lenguajes de programación. Pero, a diferencia de los punteros de función, los delegados de Visual Basic son un tipo de referencia basado en la clase System.Delegate. Los delegados pueden hacer referencia a los métodos compartidos, métodos a los que se puede llamar sin una instancia específica de una clase, y a los métodos de instancia.

Delegados y eventos

Los delegados son útiles en situaciones donde es necesario un intermediario entre un procedimiento que realiza la llamada y el procedimiento que la recibe. Por ejemplo, puede que necesite un objeto que provoca que los eventos puedan llamar a controladores de eventos diferentes en distintas circunstancias. Lamentablemente, el objeto que provoca los eventos no puede conocer de antemano qué controlador de eventos controla un evento específico. Visual Basic permite asociar los controladores de eventos de forma dinámica con eventos mediante la creación de un delegado para cuando se utiliza la instrucción AddHandler . En tiempo de ejecución, el delegado reenvía las llamadas al controlador de eventos adecuado.

Aunque puede crear sus propios delegados, en la mayoría de los casos Visual Basic crea el delegado y se encarga de los detalles automáticamente. Por ejemplo, una instrucción Event define implícitamente una clase delegada denominada <EventName>EventHandler como una clase anidada de la clase que contiene la instrucción Event, y con la misma firma que el evento. La instrucción AddressOf crea implícitamente una instancia de un delegado que hace referencia a un procedimiento específico. Las dos líneas de código siguientes son equivalentes. En la primera línea, verá que la creación explícita de una instancia de EventHandler, con una referencia al método Button1_Click enviada como argumento. La segunda línea es una manera más práctica de conseguir el mismo resultado.

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

Puede utilizar la forma abreviada para crear delegados en cualquier lugar en que el compilador puede determinar el tipo de delegado en función del contexto.

Declaración de eventos que usan un tipo de delegado existente

En algunas situaciones, puede declarar un evento para utilizar un tipo de delegado existente como su delegado subyacente. La sintaxis siguiente muestra cómo:

Delegate Sub DelegateType()
Event AnEvent As DelegateType

Esto es útil cuando desea enrutar diversos eventos hacia el mismo controlador.

Variables y parámetros delegados

Puede utilizar delegados para otras tareas relacionadas sin eventos, como un subproceso libre, o con procedimientos que necesiten llamar a diferentes versiones de funciones en tiempo de ejecución.

Por ejemplo, suponga que tiene una aplicación de anuncios clasificados que incluye un cuadro de lista con los nombres de los automóviles. Los anuncios se ordenan por título, que suele ser la marca del automóvil. Se puede plantear un problema si algunos coches incluyen el año del automóvil antes de la marca. El problema es que la funcionalidad de ordenación integrada del cuadro de lista ordena únicamente por códigos de caracteres; coloca todos los anuncios que empiezan con las fechas primero, seguidos de los anuncios que empiezan con la marca.

Para solucionar este problema, puede crear un procedimiento de ordenación en una clase que usa la ordenación alfabética estándar en la mayoría de los cuadros de lista, pero puede cambiar en tiempo de ejecución al procedimiento de ordenación personalizado para los anuncios de los automóviles. Para ello, pasa el procedimiento de ordenación personalizado a la clase de ordenación en tiempo de ejecución, mediante el uso de delegados.

Expresiones lambda y AddressOf

Cada clase delegada define un constructor que se pasa la especificación de un método de objeto. Un argumento para un constructor delegado debe ser una referencia a un método o una expresión lambda.

Para especificar una referencia a un método, utilice la siguiente sintaxis:

AddressOf [expression.]methodName

El tipo de tiempo de compilación de expression debe ser el nombre de una clase o una interfaz que contiene un método del nombre especificado cuya firma coincida con la firma de la clase delegada. methodName puede ser un método compartido o un método de instancia. methodName no es opcional, incluso si se crea un delegado para el método predeterminado de la clase.

Para especificar una expresión lambda, utilice la siguiente sintaxis:

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

En el ejemplo siguiente se muestran las expresiones lambda y AddressOf usadas para especificar la referencia de un 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

La firma de la función debe coincidir con la del tipo de delegado. Para obtener más información sobre las expresiones lambda, vea Expresiones lambda. Para obtener más ejemplos de expresión lambda y asignaciones de AddressOf a delegados, vea Conversión de delegado flexible.

Title Descripción
Procedimiento para invocar un método delegado Proporciona un ejemplo que muestra cómo asociar un método a un delegado y después invocar ese método a través del delegado.
Cómo: Pasar procedimientos a otro procedimiento en Visual Basic Muestra cómo utilizar los delegados para pasar un procedimiento a otro procedimiento.
Conversión de delegado flexible Describe cómo asignar subfunciones y funciones a delegados o controladores incluso cuando sus firmas no son idénticas.
Eventos Proporciona información general sobre eventos en Visual Basic.