オブジェクトの編集中にIsDirtyフラグを使用してCanExecuteコントロールとNavigationコントロールを制御しようとしています。
問題は、これが機能するために、IsDirtyメソッドにonPropertyChangedを使用して、コントロールが変更通知を受け取る必要があると思うことです(オブジェクトIsDirtyのときに一部のコントロールを無効にしたい)残念ながら、スタックオーバーフローが発生するため、厄介です。 IsDirtyの恐ろしいループにスパイラル...hehe..
誰かがこれに似たものを機能させることができましたか?私がしているのは、OnPropertyChangedメソッドでIsDirtyをtrueに設定することだけです。次に、canExecuteメソッドでtrueに設定されているかどうかを確認していますが、コントロールでDatabindする必要があります...これがすべての問題の原因です。
誰かがこのようなものを実装する方法を知っていますか?
これが私の解決策です
::ViewModelBaseで
Private _isdirty As Boolean = False
Protected Property IsDirty As Boolean
Get
Return _isdirty
End Get
Set(ByVal value As Boolean)
If _isdirty = Not value Then
_isdirty = value
If _isdirty = True Then
DisableNavigation()
Else
EnableNavigation()
End If
End If
End Set
End Property
Private _haschanges As Boolean
Public Property HasChanges As Boolean
Get
Return _haschanges
End Get
Set(ByVal value As Boolean)
If value = Not _haschanges Then
_haschanges = value
OnPropertyChanged("HasChanges")
End If
End Set
End Property
Protected Sub EnableNavigation()
'Keep from firing multiple onPropertyChanged events
If HasChanges = True Then
HasChanges = False
End If
GetEvent(Of DisableNavigationEvent).Publish(False)
End Sub
Protected Sub DisableNavigation()
'Keep from firing multiple onPropertyChanged events
If HasChanges = False Then
HasChanges = True
End If
GetEvent(Of DisableNavigationEvent).Publish(True)
End Sub
::ViewModelBaseから派生したEditViewModelBase内。
Protected Overrides Sub OnPropertyChanged(ByVal strPropertyName As String)
MyBase.OnPropertyChanged(strPropertyName)
If SetsIsDirty(strPropertyName) Then
If isLoading = False Then
IsDirty = True
Else
IsDirty = False
End If
End If
End Sub
''' <summary>
''' Helps prevent stackoverflows by filtering what gets checked for isDirty
''' </summary>
''' <param name="str"></param>
''' <returns></returns>
''' <remarks></remarks>
Protected Function SetsIsDirty(ByVal str As String) As Boolean
If str = "CurrentVisualState" Then Return False
If str = "TabsEnabled" Then Return False
If str = "IsLoading" Then Return False
If str = "EnableOfficeSelection" Then Return False
Return True
End Function
::私のviewModelで
Public ReadOnly Property SaveCommand() As ICommand
Get
If _cmdSave Is Nothing Then
_cmdSave = New RelayCommand(Of DoctorOffice)(AddressOf SaveExecute, Function() CanSaveExecute())
End If
Return _cmdSave
End Get
End Property
Private Function CanSaveExecute() As Boolean
'if the object is dirty you want to be able to save it.
Return IsDirty
End Function
Private Sub SaveExecute(ByVal param As DoctorOffice)
BeginWait()
GetService(Of Services.IDoctorOfficesService).Update(SelectedDoctorOffice, False)
EndWait()
End Sub