我想创建一个执行以下操作的简单函数:
Sub SetValue(Of TInstance As Class, TProperty)(
ByVal instance As TInstance,
ByVal [property] As Expression(Of Func(Of TInstance, TProperty)),
ByVal value As TProperty)
'...
End Sub
用法:
Dim x As New Person
SetValue(x, Function(p) p.FirstName, "John Doe")