katamari.wankuma.com

Public Event PropertyChanged(ByVal sender As Object, ByVal e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged

Public Sub OnPropertyChanged(ByVal propertyName As String)
    Me.VerifyPropertyName(propertyName)
    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
End Sub

<Conditional("DEBUG"), DebuggerStepThrough()> _
Public Sub VerifyPropertyName(ByVal propertyName As String)
    If TypeDescriptor.GetProperties(Me)(propertyName) Is Nothing Then
        Dim msg As String = "Invalid property name: " & propertyName
        If Me.ThrowOnInvalidPropertyName Then
            Throw New Exception(msg)
        Else
            Debug.Fail(msg)
        End If
    End If
End Sub

Private privateThrowOnInvalidPropertyName As Boolean = True
Protected Overridable Property ThrowOnInvalidPropertyName() As Boolean
    Get
        Return privateThrowOnInvalidPropertyName
    End Get
    Set(ByVal value As Boolean)
        privateThrowOnInvalidPropertyName = value
    End Set
End Property