Extrait le lambda d'une expression?

Question

Je veux mettre en œuvre cette fonction:

Public Function GetFunc(Of TSource, TResult) _ 
    selector As Expression(Of Func(Of TSource, TResult)) _ 
     As Func(Of TSource, TResult) 
    'Implement here 
End Function 

MISE À JOUR

J'ai la question suivante, il est une partie d'une fonction:

Dim obj As Object = value 
For Each exp In expressions 
    If obj Is Nothing Then Return [default] 
    Select Case exp.NodeType 
    Case ExpressionType.Call 
     Dim method = DirectCast(exp, MethodCallExpression) 
     Dim info = method.Method   

     If method.Object Is Nothing Then 
     Dim args = {obj}.Union(method.Arguments.Skip(1)) 

     'The following line throws the exception, see details bellow 
     obj = info.Invoke(Nothing, args.ToArray) 
     Else 
     obj = info.Invoke(obj, method.Arguments.ToArray) 
     End If 

---

Exception Détails:

ArgumentException: 

Object of type 'System.Linq.Expressions.Expression`1 
[System.Func`3[System.Char,System.Char,System.Char]]' 
cannot be converted to type 
'System.Func`3[System.Char,System.Char,System.Char]'. 

Answer 1

Public Function GetFunc(Of TSource, TResult) _ 
    selector As Expression(Of Func(Of TSource, TResult)) _ 
     As Func(Of TSource, TResult) 
    Return selector.Compile() 
End Function