跟踪声明为 dependencyProperty 的 ICollectionView 的 CurrentChanged 事件

Question

我有一个这样声明的 ICollectionView；

Public Shared ReadOnly DataIcvProperty As DependencyProperty = DependencyProperty.Register("DataIcv", GetType(ICollectionView), GetType(DataNavigator), New PropertyMetadata(Nothing))


<Description("The CollectionView (as an ICollectionView) to be passed to the DataNavigator control"), Category("Navigation Data Source")>
Public Property DataIcv As ICollectionView
    Get
        Return GetValue(DataIcvProperty)
    End Get
    Set(ByVal Value As ICollectionView)
        SetValue(DataIcvProperty, Value)

    End Set
End Property

我想在其上跟踪 CurrentChanged 事件。因此，在 wpf userControl 的构造函数中（其中声明了此属性，我添加了以下内容：

AddHandler DataIcv.CurrentChanged, AddressOf OnDataICVCurrentChanged

然后添加以下内容

Public Sub OnDataICVCurrentChanged(ByVal sender As Object, e As EventArgs) Handles internalIcv.CurrentChanged

    'Do whatever needs doing when the record in the ICollectionView changes

End Sub

当我编译用户控件并在单独的项目中使用它时，我在控件的构造函数中的 AddHandler 行上收到 NullReferenceException（没有任何内部异常详细信息）。

我需要做些什么来跟踪 DataIcv 的当前 Changed 事件，以便我的用户控件的元素可以正确响应这些更改？

谢谢

编辑

这与我描述的here 的问题有关。本质上，我希望导航器控件能够反映最终用户可以独立于导航器选择网格上的行这一事实。

Answer 1

问题是，当您尝试在构造函数中订阅 CurrentChanged 事件时，DependencyProperty DataIcvProperty 具有默认值 Nothing（正如您在属性注册中指定的那样） .所以NullReferenceException。

您可以使用PropertyChangeCallback 解决此问题（请参阅documentation）。

我来自 C# 世界，无法保证 VB.NET 的语法正确，但这种方法肯定会奏效：

Public Shared ReadOnly DataIcvProperty As DependencyProperty =
DependencyProperty.Register("DataIcv",
    GetType(ICollectionView), GetType(DataNavigator),
    New FrameworkPropertyMetadata(
        Nothing,
        New PropertyChangedCallback(AddressOf OnDataIcvChanged)))

那你需要实现OnDataIcvChanged这个静态方法，每次属性值改变都会调用。

Private Shared Sub OnDataIcvChanged(ByVal d As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
    If e.OldValue IsNot Nothing
        RemoveHandler (e.OldValue As ICollectionView).CurrentChanged, AddressOf OnDataICVCurrentChanged
    EndIf
    If e.NewValue IsNot Nothing
        AddHandler (e.NewValue As ICollectionView).CurrentChanged, AddressOf OnDataICVCurrentChanged
    EndIf
End Sub

更新： 如果您的事件处理程序方法不是静态的，那么您应该通过对象实例访问它：

Private Shared Sub OnDataIcvChanged(ByVal d As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
    Dim DataNavigator instance = d As DataNavigator        
    If e.OldValue IsNot Nothing
        RemoveHandler (e.OldValue As ICollectionView).CurrentChanged, AddressOf instance.OnDataICVCurrentChanged
    EndIf
    If e.NewValue IsNot Nothing
        AddHandler (e.NewValue As ICollectionView).CurrentChanged, AddressOf instance.OnDataICVCurrentChanged
    EndIf
End Sub

编辑：最终起作用的代码：

 Public Shared ReadOnly DataIcvProperty As DependencyProperty = DependencyProperty.Register("DataIcv", GetType(ICollectionView), GetType(DataNavigator), New FrameworkPropertyMetadata(Nothing, New PropertyChangedCallback(AddressOf OnDataIcvChanged)))


<Description("The CollectionView (as an ICollectionView) to be passed to the DataNavigator control"), Category("Navigation Data Source")>
Public Property DataIcv As ICollectionView
    Get
        Return CType(GetValue(DataIcvProperty), ICollectionView)
    End Get
    Set(ByVal Value As ICollectionView)
        SetValue(DataIcvProperty, Value)

    End Set
End Property

Private Shared Sub OnDataIcvChanged(ByVal d As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
    Dim dn As DataNavigator = CType(d, DataNavigator)



    If e.OldValue IsNot Nothing Then
        RemoveHandler dn.DataIcv.CurrentChanged, AddressOf dn.OnDataICVCurrentChanged
    End If
    If e.NewValue IsNot Nothing Then
        AddHandler dn.DataIcv.CurrentChanged, AddressOf dn.OnDataICVCurrentChanged
    End If

End Sub

Private Sub OnDataICVCurrentChanged(ByVal sender As Object, ByVal e As EventArgs)

    Record.Text = (DataIcv.CurrentPosition + 1).ToString

End Sub