VB.Net/LINQ/Any
Any Example
<source lang="vbnet"> Imports System.Reflection Imports System
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 Public Class Salary
Public IDPerson As Integer Public Year As Integer Public SalaryYear As Double
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 salaries As New List(Of Salary)(New Salary() { _ New Salary With {.IDPerson = 1, .Year = 2004, .SalaryYear = 10000.0}, _ New Salary With {.IDPerson = 1, .Year = 2005, .SalaryYear = 15000.0}, _ New Salary With {.IDPerson = 2, .Year = 2005, .SalaryYear = 15000.0} _ }) AnyExample() End Sub Function anyFunc(ByVal n As Integer) As Boolean Return (n Mod 2 = 1) End Function Public Sub AnyExample() Dim numbers As Integer() = New Integer() {2, 6, 24, 56, 102} Dim allDelegate As New Func(Of Integer, Boolean)(AddressOf anyFunc)
End Sub
End Module
</source>