2 replies to this topic

[Alberto Dominguez]

Ejemplo de Delegado (puntero a un método) en Visual Basic:

Public Delegate Sub Prueba(ByVal Texto As String)

Module Module1

    Sub Main()
        Dim op As Prueba
        'Instanciamos el delegado y lo apuntamos al metodo Probando
        op = New Prueba(AddressOf Probando)
        op("Hola Mundo")
        Console.ReadLine()
    End Sub

    'Metodo al que apunta el Delegado
    Sub Probando(ByVal Texto As String)
        Console.WriteLine("Estamos probando delegados")
    End Sub

End Module

[Alberto Dominguez]

Usando delegados como eventos:

'Declaramos un tipo delegado
Public Delegate Sub ManejadorTemperatura(ByVal Texto As String)

Public Class Temperatura
    Public EventoX As ManejadorTemperatura
    Public Sub DispararEvento()
        EventoX("Disparando Evento") 'Disparando Evento
    End Sub
End Class
Module Module1
    Sub Main()
        Dim Temperatura1 As New Temperatura
        'Suscribiendonos al Evento
        Temperatura1.EventoX = New ManejadorTemperatura(AddressOf OnEventoX)
        'Ejecutando método que dispara el Evento
        Temperatura1.DispararEvento()
        Console.ReadLine()
    End Sub

    'Metodo al que apunta el Delegado
    Sub OnEventoX(ByVal Texto As String)
        Console.WriteLine(Texto)
    End Sub

End Module

[Alberto Dominguez]

Lo mismo pero con Eventos:

Public Class Temperatura
    Public Event EventoX(ByVal Texto As String)
    Public Sub DispararEvento()
        RaiseEvent EventoX("Disparando Evento") 'Disparando Evento
    End Sub
End Class


Module Module1
    Dim WithEvents Temperatura1 As New Temperatura
    Sub Main()
        'Ejecutando método que dispara el Evento
        Temperatura1.DispararEvento()
        Console.ReadLine()
    End Sub

    'Metodo al que apunta el Evento
    Sub OnEventoX(ByVal Texto As String) Handles Temperatura1.EventoX
        Console.WriteLine(Texto)
    End Sub

End Module