Blog

VB.Net program to select specified fields using All() LINQ extension method

'VB.NET program to demonstrate the 
'LINQ All() extension method.

Imports System
Imports System.IO
Imports System.Linq

Module Module1
    Public Class Employee
        Public id As Integer
        Public name As String
        Public age As Integer
    End Class

    Sub Main()
        Dim empList = New List(Of Employee) From
        {
            New Employee() With {.id = 101, .name = "Amit", .age = 21},
            New Employee() With {.id = 102, .name = "Arun", .age = 22},
            New Employee() With {.id = 103, .name = "Aman", .age = 23},
            New Employee() With {.id = 104, .name = "Amar", .age = 21},
            New Employee() With {.id = 105, .name = "Akki", .age = 22},
            New Employee() With {.id = 105, .name = "Anuj", .age = 23}
        }

        Dim result As Boolean = empList.All(Function(e) e.age > 22)

        If (result = True) Then
            Console.WriteLine("All employees age is greater than 22")
        Else
            Console.WriteLine("All employees age is not greater than 22")
        End If
    End Sub
End Module

All employees age is not greater than 22
Press any key to continue . . .