Where with a function

    
Imports System.Collections.Generic
Imports System.Linq
Imports System.Runtime.CompilerServices


Public Class Role
    Public ID As Integer
    Public RoleDescription As String
End Class

Public Class Person
    Public ID As Integer
    Public IDRole As Integer
    Public LastName As String
    Public FirstName As String
End Class

Module Module1
    Sub Main()
        Dim people As New List(Of Person)(New Person() { _
            New Person With {.ID = 1, .IDRole = 1, .LastName = "A", .FirstName = "Brad"}, _
            New Person With {.ID = 2, .IDRole = 2, .LastName = "G", .FirstName = "Tom"} _
        })

        Dim roles As New List(Of Role)(New Role() { _
            New Role With {.ID = 1, .RoleDescription = "Manager"}, _
            New Role With {.ID = 2, .RoleDescription = "Developer"} _
        })

        Dim query = people.Where(AddressOf F)


    End Sub
    Function F(ByVal people As Person) As Boolean
        Return people.ID = 1
    End Function

End Module

Related examples in the same category

1.	Check String start-with value
2.	Equals vs = in query
3.	Query for String length
4.	Filtering (Where): Using a Where clause to find all projects that are out of stock.
5.	Where Drilldown
6.	Find files created within the last year
7.	Linq to query File System: shows all mapped network drives
8.	Shows all public methods in an assembly, with duplicates removed
9.	Shows all public methods in an assembly.
10.	Filtering Numbers
11.	Indexed Where
12.	An indexed Where clause that returns digits whose name is shorter than their value

Where with a function : Where « LINQ « VB.Net

Related examples in the same category