VB 中的 Caliburn.Micro NotifyOfPropertyChange

Question

使用 Caliburn.Micro，NotifyPropertyChange（在基类 PropertyChangedBase 之外）被演示

NotifyOfPropertyChange(() => MyPropertyName)

MyPropertyName 在逻辑上是某种属性。我不太清楚它是如何工作的，但我猜由于返回属性的匿名函数是作为参数给出的，CM 可以做一些反射魔法来找到实际的属性名称。比将“MyPropertyName”作为字符串传递更方便，因为这很容易出现拼写错误。

我的问题是，如何在 VB.Net 中使用它？直译是

NotifyOfPropertyChange(Function() MyPropertyName)

但这给了我

Cannot convert lambda expression to type 'string' because it is not a delegate type.

当 MyPropertyName 实际上不是属性时，C# 中会出现类似的错误，但似乎总是出现在 VB 中。

这可以在 VB 中完成吗？

Answer 1

Public Property FirstName() As String
        Get
            Return _firstName
        End Get
        Set(ByVal value As String)
            _firstName = value
            NotifyOfPropertyChange(NameOf(FirstName))
        End Set
    End Property

Answer 2

不是一个实际的答案，但感谢this answer on another question，我找到了解决方法： 通过实现一个接受委托的扩展方法，我已经能够使用NotifyOfPropertyChange 而不传递字符串文字：

（导入System.Linq.Expressions 以及System.Runtime.CompilerServices:)

<Extension>
Public Sub NotifyOfPropertyChange(Of T)(handler As PropertyChangedBase, propertyExpression As Expression(Of Func(Of T)))
    If handler IsNot Nothing Then
        Dim body As MemberExpression = TryCast(propertyExpression.Body, MemberExpression)
        If body Is Nothing Then Throw New ArgumentException("'propertyExpression' should be a member expression")

        Dim expression As ConstantExpression = TryCast(body.Expression, ConstantExpression)
        If expression Is Nothing Then Throw New ArgumentException("'propertyExpression' body should be a constant expression")

        Dim target = Linq.Expressions.Expression.Lambda(expression).Compile().DynamicInvoke

        handler.NotifyOfPropertyChange(body.Member.Name)
    End If
End Sub

然后我就可以使用了

NotifyOfPropertyChange(Function() MyPropertyName)