Encontrar items en una Lista(De

Dim Personas As New List(Of Persona)
Dim BuscarA = "Yuis"
    Sub Prueba()
        Personas.AddRange(
            {New Persona With {.Nombre = "Pep", .Apellido = "Lluis"},
             New Persona With {.Nombre = "Yuis", .Apellido = "Franco"},
             New Persona With {.Nombre = "Juansa", .Apellido = "Yopis"},
             New Persona With {.Nombre = "Marc", .Apellido = "Rubiño"}
            })
Dim ficha As Persona = Personas.Find(AddressOf Buscar)
        If ficha IsNot Nothing Then
            MessageBox.Show(String.Format("Ficha de : {0} {1}", ficha.Nombre, ficha.Apellido))
        Else
            MessageBox.Show("Ficha: " & BuscarA & "Inexistente: ")
        End If
    End Sub



Function Buscar(ByVal p As Persona) As Boolean
     If p.Nombre = BuscarA Then
         Return True
     Else
         Return False
     End If
End Function
.....
.....





Public Class Persona
    Property Nombre As String
    Property Apellido As String
    Property Edad As Integer
End Class


;-)
Pep Lluis,

Leave a Reply

Your email address will not be published. Required fields are marked *


*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>