VB.NET

Hola a todos. Hoy me encontré con una consulta que no pude responder enseguida: El uso de delegados en VB.NET. Hasta ahora siempre los había usado en C#; pero en VB.NET no todavía asi que empecé haciendo un ejemplo simple, e investigando un poco.

Llegué al post: http://vbnotebookfor.net/2007/08/23/how-to-use-the-action-and-predicate-delegates/ que me sirvió de mucha ayuda. En el se explica como usar los delegados de Predicate y Action para operar en colecciones.

Bueno aquí les dejo el ejemplo:

Imports System.Text

Module Module1

    Sub Main()
        Dim personas As New List(Of Persona)

        Dim p1 As New Persona(1, “Walter”, “Poch”, “Italia 65?)
        personas.Add(p1)
        Dim p2 As New Persona(2, “Wilfredo”, “Mata”, “San Luis 1928?)
        personas.Add(p2)
        Dim p3 As New Persona(3, “Carlos”, “Memem”, “Anillaco 1000?)
        personas.Add(p3)

        Console.WriteLine(“Personas que empiezan con W”)
        Console.WriteLine(“—————————”)
        Dim personasEmpiezanConW As List(Of Persona)
        personasEmpiezanConW = personas.FindAll(AddressOf empiezaConW)
        personasEmpiezanConW.ForEach(AddressOf mostrarPersona)
        Console.WriteLine()

        Console.WriteLine(“Persona llamada Carlos”)
        Console.WriteLine(“———————-”)
        Dim elCarlos As Persona
        elCarlos = personas.Find(AddressOf buscarElCarlos)
        Console.Write(elCarlos)
        Console.WriteLine()

        Console.ReadKey()
    End Sub

    Public Function empiezaConW(ByVal persona As Persona) As Boolean
        Return persona.Nombre.StartsWith(“”, StringComparison.InvariantCultureIgnoreCase)
    End Function

    Public Function buscarElCarlos(ByVal persona As Persona) As Boolean
        Return persona.Nombre.Equals(“carlos”, StringComparison.InvariantCultureIgnoreCase)
    End Function

    Public Sub mostrarPersona(ByVal persona As Persona)
        Console.Write(persona)
    End Sub

    Class Persona
        Private _id As Integer
        Private _nombre As String
        Private _apellido As String
        Private _direccion As String

        Public Property Id() As Integer
            Get
                Return Me._id
            End Get
            Set(ByVal value As Integer)
                Me._id = value
            End Set
        End Property

        Public Property Nombre() As String
            Get
                Return Me._nombre
            End Get
            Set(ByVal value As String)
                Me._nombre = value
            End Set
        End Property

        Public Property Apellido() As String
            Get
                Return Me._apellido
            End Get
            Set(ByVal value As String)
                Me._apellido = value
            End Set
        End Property

        Public Property Direccion() As String
            Get
                Return Me._direccion
            End Get
            Set(ByVal value As String)
                Me._direccion = value
            End Set
        End Property

        Public Sub New(ByVal id As Integer, _
        ByVal nombre As String, _
        ByVal apellido As String, _
        ByVal direccion As String)
            Me._id = id
            Me._nombre = nombre
            Me._apellido = apellido
            Me._direccion = direccion
        End Sub

        Public Overrides Function ToString() As String
            Dim sb As New StringBuilder()
            sb.AppendFormat(“ID: {0}{1}”, Me._id, ControlChars.NewLine)
            sb.AppendFormat(“Nombre: {0}{1}”, Me._nombre, ControlChars.NewLine)
            sb.AppendFormat(“Apellido: {0}{1}”, Me._apellido, ControlChars.NewLine)
            sb.AppendFormat(“Direccion: {0}{1}”, Me._direccion, ControlChars.NewLine)
            sb.AppendLine()
            Return sb.ToString()
        End Function
    End Class
End Module

Espero que les sirva!

Happy Coding!