1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Public Class XERow
Inherits XElement
Implements INotifyPropertyChanged, IEditableObject
Private copyData As XElement
Private currentData As XElement
Public Sub New(ByVal vXE As XElement)
MyBase.New(vXE)
End Sub
#Region "INotifyPropertyChanged Members"
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
Private Sub NotifyPropertyChanged(ByVal info As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
End Sub
#End Region
#Region "IEditableObject Members"
Public Sub BeginEdit() Implements IEditableObject.BeginEdit
copyData = currentData
End Sub
Public Sub CancelEdit() Implements IEditableObject.CancelEdit
currentData = copyData
NotifyPropertyChanged("")
End Sub
Public Sub EndEdit() Implements IEditableObject.EndEdit
copyData = Nothing
NotifyPropertyChanged("EndEdit")
End Sub
#End Region
End Class |
Partager