63
1
Imports System
2
Imports System.Linq.Expressions
3
4
5
Public Module Module1
6
Public Sub Main()
7
Dim pe As ParameterExpression = Expression.Parameter(GetType(Student), "s")
8
9
Dim mexp As MemberExpression = Expression.Property(pe, "Age")
10
11
Dim constant As ConstantExpression = Expression.Constant(18, GetType(Integer))
12
13
Dim body As BinaryExpression = Expression.GreaterThanOrEqual(mexp, constant)
14
15
Dim ExpressionTree As Expression(Of Func(Of Student, Boolean)) =
16
Expression.Lambda(Of Func(Of Student, Boolean))(body, New ParameterExpression() {pe})
17
18
Console.WriteLine("Expression Tree: {0}", ExpressionTree)
19
20
Console.WriteLine("Expression Tree Body: {0}", ExpressionTree.Body)
21
22
Console.WriteLine("Number of Parameters in Expression Tree: {0}",
23
ExpressionTree.Parameters.Count)
24
Cached Result
The number 0 appears the most times