使用 vb.net Action(Of T) 和 lambda 声明匿名方法时出现问题

Question

Imports System.Reflection
Public Class Test
    Private Field As String
End Class

Module Module1
    Sub Main()

        Dim field = GetType(Test).GetField("Field", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)

        Dim test = New Test

        Dim GetValue = New Func(Of Test, String)(Function(t As Test) field.GetValue(test))

        'This line indicates a compile error: 'Expression does not produce a value':
        Dim SetValue = New Action(Of Test, String)(Function(t As Test, value As String) field.SetValue(test, value))
    End Sub
 End Module


Module Module2
    Dim field = GetType(Test).GetField("Field", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance) 'Is Shared (Module)
    Sub Main2()
        Dim test = New Test
        Dim GetValue = New Func(Of Test, String)(Function(t As Test) field.GetValue(test))
        Dim SetValue = New Action(Of Test, String)(Function(t As Test, value As String) field.SetValue(test, value))
    End Sub
End Module

不知道出了什么问题，但 Module2 工作得很好！

Answer 1

编辑划掉我原来的答案，我误读了问题。

无法编译的原因是类型推断和后期绑定的问题。 在第一个示例中，字段是局部变量，因此可以参与类型推断。 编译器将正确推断类型为 FieldInfo。 这意味着 SetValue 调用是静态类型调用。 它是一个 void 返回方法，因此与需要返回值的 Function lambda 表达式不兼容。

不过，第二个示例中的字段值是在模块级别声明的。 这些变量不受类型推断的影响，因此将选择类型对象。 由于类型是对象，因此 SetValue 调用成为后期绑定调用。 假定所有后期绑定调用都指向返回类型为 Object 的函数。 在运行时，如果函数返回 void，则实际上不会返回任何内容。 因此，在这种情况下，它是一个非 void 返回表达式，因此可以编译。

解决此问题的一个选项是在第一个示例中将字段显式键入为 Object。 这将迫使它成为后期绑定调用，并且它将像第二个调用一样进行编译

Dim field As Object = ...

Answer 2

这是基于 JaredPar 的帖子的最终答案：

Module Module1
    Sub Main()
        Dim field = GetType(Test).GetField("Field", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
        Dim test = New Test
        Dim GetValue = New Func(Of Test, String)(Function(t As Test) field.GetValue(test))
        'This line indicates a compile error: 'Expression does not produce a value': 
        Dim SetValue = New Action(Of Test, String)(Function(t As Test, value As String) DirectCast(field, Object).SetValue(test, value))
    End Sub
End Module

Notice thecast to object at

Dim SetValue = New Action(Of Test, String)(Function(t As Test, value As String) DirectCast(field, Object).SetValue(test, value))